This is not my real service tag, but if you put a real service tag in its place it will take you to the warranty page.

Option Explicit

Dim SoapRequest

Dim url, regkey, svctag

Dim warrantyRows, warrantyCols

Dim objShell, objXML, objWMI, objHTTP, NodeList

Dim i, result

SoapRequest = ” 11111111-1111-1111-1111-111111111111 Warranty Information Lookup !SERVICETAG! ”

url = “http://xserv.dell.com/jigsawwebservices/AssetService.asmx”

regkey = “HKEY_LOCAL_MACHINE\Software\DellWarrantyInfo”

set objShell = WScript.CreateObject(“WScript.Shell”)

set objWMI = GetObject(“winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2″)

If InStr(UCase(objWMI.ExecQuery(“Select Manufacturer From Win32_ComputerSystem”).ItemIndex(0).Manufacturer), “DELL”) = 0 then Err.Raise 2, “This is not a Dell dude!”, “No Service Tag”

svctag = Trim(objWMI.ExecQuery (“Select SerialNumber from Win32_BIOS”).ItemIndex(0).SerialNumber)

wscript.echo “Service Tag: ” & svctag

SoapRequest = Replace(SoapRequest, “!SERVICETAG!”, svctag)

result = objShell.Run(“reg.exe delete ‘” & regkey & “‘ /f”, true)

If not result = 0 then Err.Raise result, “Unable to delete registry key!”, “Code ” & result

result = objShell.Run(“reg.exe create ‘” & regkey & “‘ /ve”, true)

If not result = 0 then Err.Raise result, “Unable to delete registry key!”, “Code ” & result

Set objHTTP = CreateObject(“Msxml2.XMLHTTP”)

objHTTP.open “POST”, URL, false

objHTTP.setRequestHeader “Content-Type”, “text/xml”

objHTTP.setRequestHeader “SOAPAction”, “http://support.dell.com/JigsawWebServices/GetAssetInformation”

objHTTP.send SoapRequest

result = objHTTP.responseText

Set objXML = CreateObject (“Msxml2.DOMDocument”)

objXML.LoadXml result

If not objXML.SelectSinglenode (“//faultstring”) is nothing then

Err.Raise 1, “Error:” & objXML.SelectSingleNode(“//faultcode”).text, Trim(objXML.SelectSingleNode(“//faultstring”).text)

End If

wscript.echo objXML.xml

Set NodeList = objXML.SelectNodes(“//Asset/Entitlements/EntitlementData”)

wscript.echo NodeList.length & ” results returned: ”

For i = 0 to NodeList.length – 1

set warrantyCols = NodeList.item(i)

wscript.echo Mid(warrantyCols.SelectSingleNode(“ServiceLevelDescription”).text,4)

objShell.regWrite regkey & “\” & i & “\”, “”

objShell.regWrite regkey & “\” & i & “\Description”, Mid(warrantyCols.SelectSingleNode(“ServiceLevelDescription”).text, 4)

objShell.regWrite regkey & “\” & i & “\Provider”, warrantyCols.SelectSingleNode(“Provider”).text

objShell.regWrite regkey & “\” & i & “\Entitlement Type”, warrantyCols.SelectSingleNode(“EntitlementType”).text

objShell.regWrite regkey & “\” & i & “\Start Date”, Left(warrantyCols.SelectSingleNode(“StartDate”).text, 10)

objShell.regWrite regkey & “\” & i & “\End Date”, Left(warrantyCols.SelectSingleNode(“EndDate”).text, 10)

objShell.regWrite regkey & “\” & i & “\Days Left”, warrantyCols.SelectSingleNode(“DaysLeft”).text

Next

As others have indicated, due to changes that Dell has made the script may not be able to retrieve warranty information, even if it runs.

C:\Dell-Warranty-1.vbs(1, 1) Microsoft
VBScript compilation error: Invalid character

So the following would work.
c:\netdom.exe
c:\en-US\netdom.exe.mui

Share and enjoy.