This Windows WMI script using VBScript, retrieves the serial number of the local or networked computer.
To use this code, copy it in to a text file and save it with a .vbs file extension for VBScript. Once you have the .vbs file, double click on it and you should get a message box with the names of the logged in user on the specified Windows PC on your network.
Windows WMI VBScript
Function GetComputerSerialNumber(strComputer)
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colComputer = objWMIService.ExecQuery _
("SELECT * FROM Win32_ComputerSystemProduct",,48)
For Each objComputer in colComputer
GetComputerSerialNumber = objComputer.IdentifyingNumber
Next
End Function
'strComputer = "XPS1234"
strComputer = "."
' Pass a . to run this on your own PC or add a string value for another on your network
call msgbox(GetComputerSerialNumber(strComputer))