- Code: Select all
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colSMBIOS = objWMIService.ExecQuery _
("Select * from Win32_SystemEnclosure")
For Each objSMBIOS in colSMBIOS
Wscript.Echo "Serial Number: " & objSMBIOS.SerialNumber
Next
vbscript to find the service tag
1 post
• Page 1 of 1
vbscript to find the service tag
by Praveen » Wed Feb 17, 2010 4:38 pm
Below vbscript for getting the service tag
-
Praveen - Site Admin
- Posts: 83
- Joined: Sat Apr 25, 2009 2:21 pm
1 post
• Page 1 of 1
Return to Windows Scripting/WMI/VBScript
Who is online
Users browsing this forum: No registered users and 0 guests
