如何根據機器的主機名得到網絡中計算機的序列號？

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