Question

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

从此我可以获得我的机器的序列号但是如何获取网络中其他计算机的序列号

Answer 1

确保：

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

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

如何根据机器的主机名获取网络中的计算机序列号？

1 个答案: