strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_ComputerSystem")
Set WshNetwork = WScript.CreateObject("WScript.Network")
Set colBIOS = objWMIService.ExecQuery("Select * from Win32_BIOS")
For Each objItem In colItems
WScript.Echo "Make: " & objItem.Manufacturer & VbCr & _
"Model: " & objItem.Model & VbCr & _
"Computer Name: " & WshNetwork.ComputerName & VbCr & _
""
Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery( _
    "SELECT * FROM Win32_BIOS",,48)
For Each objItem in colItems
     Wscript.Echo "Service Tag/Serial Number: " & objItem.SerialNumber
Next