Month: June 2010

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