VB SCRIPTS

strComputer = InputBox (" Please Enter the Computer Name to Know the Service Tag Number",_
"Enter Computer Name")
Set oWMI = GetObject("winmgmts:\\" & sComputer & "\root\cimv2")
Set oCol = oWMI.ExecQuery("Select * from Win32_ComputerSystemProduct")
For Each x in oCol
wscript.echo " The service Tag is : " & x.IdentifyingNumber
Next