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 * …
Read More