Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- On Error Resume Next
- Dim strComputer
- strComputer = InputBox("Enter the name of the computer:")
- Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
- Set colSMBIOS = objWMIService.ExecQuery ("Select * from Win32_SystemEnclosure")
- For Each objSMBIOS in colSMBIOS
- Dim tmp
- tmp = InputBox(strComputer,,objSMBIOS.SerialNumber)
- next
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement