0 
ComputerName = InputBox("Enter the name of the computer you wish to query")

winmgmt1 = "winmgmts:{impersonationLevel=impersonate}!//"& ComputerName &""

'WScript.Echo winmgmt1

Set SNSet = GetObject( winmgmt1 ).InstancesOf ("Win32_BIOS")

for each SN in SNSet
MsgBox "The serial number for the specified computer is: " & SN.SerialNumber
Next

从这里我可以得到我的机器的序列号但是怎么做才能得到网络中其他计算机的序列号

4

1 回答 1

0

确保：

  • (Windows) 远程计算机上的防火墙/DCOM 设置不会阻止您的请求
  • 您有远程计算机的凭据

可以在 MSDN 站点上找到更多信息和代码示例：http: //msdn.microsoft.com/en-us/library/aa389290%28v=vs.85%29.aspx

于 2013-09-27T16:14:44.623 回答