Script to Get the Windows Machine Serial Number

On Error Resume Next
Dim strComputer
strComputer = InputBox(“Enter the name of the computer:”)
Set objWMIService = GetObject(“winmgmts:” & “{impersonationLevel=impersonate}!” & strComputer & “rootcimv2”)
Set colSMBIOS = objWMIService.ExecQuery (“Select * from Win32_SystemEnclosure”)
For Each objSMBIOS in colSMBIOS
MsgBox strComputer & “: ” & objSMBIOS.SerialNumber

Similar Posts

Leave a Reply

Your email address will not be published. Required fields are marked *