windows-7 - 如何获取系统的计算机名称并将其输出到 VBScript 中的文件

Question

我正在尝试从注册表中获取计算机名称并将其写入文件。此时，我从注册表获取计算机名称的函数调用不起作用。任何意见，将不胜感激。

Option Explicit
On Error Resume Next

Dim regComputerName, ComputerName

Set objShell = WScript.CreateObject("WScript.Shell")
Set objFileSystem = CreateObject("Scripting.FileSystemObject")

regComputerName = "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\ComputerName\ComputerName\Computername"
ComputerName = obj.shell.RegRead(regComputerName)

oWrite.WriteLine(ComputerName,C:\text)

Answer 1

读取注册表值很容易出错，并且可能需要在 Windows 7 中提升权限。 还有​​另一种获取计算机名称的方法，与您现在正在执行的操作非常相似:

Set objNetwork = WScript.CreateObject("WScript.Network")
ComputerName = objNetwork.ComputerName
MsgBox ComputerName

另外，脚本中的最后一行: oWrite.WriteLine(ComputerName,C:\text)不会工作有两个原因:

C:\text必须用引号引起来，像这样:"C:\text.txt"

在 VB 中，只有产生值的函数才能用括号调用。调用 WriteLine改为这样:oWrite.WriteLine ComputerName, "C:\text.txt"

最后，您确定在您的问题中您不是指的是 VBScript 而不是 VB 吗？