On Error Resume Next
strPC = WScript.Arguments(0)
If strPC = "" Then
strPC = InputBox("Remote Computer:", "Remote PC Asset Tag")
End if
strComputer = strPC
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_SystemEnclosure",,48)

For Each objItem in colItems
	
	strTag = "Asset Tag: " & objItem.SMBIOSAssetTag

Next

On Error Resume Next

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_BIOS",,48)

For Each objItem in colItems

	strSerial = "Serial Number: " & objItem.SerialNumber

Next

WScript.Echo "Computer Name: " & strComputer & vbCrLf & strSerial & vbCrLf & strTag