Service Tag - Script

May I have your service tag number please :-)
on error resume next
strComputer=InputBox ("Enter the computer name of the server you'd like to query for Service Tag")
Set objWMIservice = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
set colitems = objWMIservice.ExecQuery("Select * from Win32_BIOS",,48)
For each objitem in colitems
if objitem.serialnumber ="" Then Msgbox "No tag was available!"
Else
Wscript.echo "Dell Service Tag: " & objitem.serialnumber
End If
Next