Sernum.vbs - Getting the serial number of a remote PC

Copy the following to a notepad file

ComputerName = InputBox("Machine Name To Query")
winmgmt1 = "winmgmts:{impersonationLevel=impersonate}!//"& ComputerName &""Set SerialN = GetObject( winmgmt1 ).InstancesOf ("Win32_BIOS")
For each Serial in SerialNMsgBox "Serial Number: " & Serial.SerialNumberNext

Safe as sernum.vbs - doubleclick to run - enter machine name and press ok/enter