Skip to main content

connectwise

Grab Dell Warranty Date on Dell Devices

upggr Leave a comment

This script will grab the warranty end date based on a server’s/laptop’s/PC’s asset tag number and then, it will create a file on your C drive named warranty.txt
You can modify the behaviour as needed. Just create a new file and put the code in it, then rename it to warrantycheck.vbs.
This is usefull for massive checks on servers and workstation or Labtech automation

 

< View plain text >
code

  1. Option Explicit
  2. Dim SoapRequest
  3. Dim url, regkey, svctag
  4. Dim warrantyRows, warrantyCols
  5. Dim objShell, objXML, objWMI, objHTTP, NodeList
  6. Dim i, result
  7. SoapRequest = &quot;&lt;?xml version=&quot;&quot;1.0&quot;&quot; encoding=&quot;&quot;utf-8&quot;&quot;?&gt; &lt;soap:Envelope xmlns:xsi=&quot;&quot;http://www.w3.org/2001/XMLSchema-instance&quot;&quot; xmlns:xsd=&quot;&quot;http://www.w3.org/2001/XMLSchema&quot;&quot; xmlns:soap=&quot;&quot;http://schemas.xmlsoap.org/soap/envelope/&quot;&quot;&gt; &lt;soap:Body&gt; &lt;GetAssetInformation xmlns=&quot;&quot;http://support.dell.com/JigsawWebServices/&quot;&quot;&gt; &lt;guid&gt;11111111-1111-1111-1111-111111111111&lt;/guid&gt; &lt;applicationName&gt;Warranty Information Lookup&lt;/applicationName&gt; &lt;serviceTags&gt;!SERVICETAG!&lt;/serviceTags&gt; &lt;/GetAssetInformation&gt; &lt;/soap:Body&gt;&lt;/soap:Envelope&gt;&quot;
  8. url = &quot;http://xserv.dell.com/jigsawwebservices/AssetService.asmx&quot;
  9. regkey = &quot;HKEY_LOCAL_MACHINE\Software\DellWarrantyInfo&quot;
  10. set objShell = WScript.CreateObject(&quot;WScript.Shell&quot;)
  11. set objWMI = GetObject(&quot;winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2&quot;)
  12. If InStr(UCase(objWMI.ExecQuery(&quot;Select Manufacturer From Win32_ComputerSystem&quot;).ItemIndex(0).Manufacturer), &quot;DELL&quot;) = 0 then Err.Raise 2, &quot;This is not Dell malaka&quot;
  13. svctag = Trim(objWMI.ExecQuery  (&quot;Select SerialNumber from Win32_BIOS&quot;).ItemIndex(0).SerialNumber)
  14. SoapRequest = Replace(SoapRequest, &quot;!SERVICETAG!&quot;, svctag)
  15. Set objHTTP = CreateObject(&quot;Msxml2.XMLHTTP&quot;)
  16. objHTTP.open &quot;POST&quot;, URL, false
  17. objHTTP.setRequestHeader &quot;Content-Type&quot;, &quot;text/xml&quot;
  18. objHTTP.setRequestHeader &quot;SOAPAction&quot;, &quot;http://support.dell.com/JigsawWebServices/GetAssetInformation&quot;
  19. objHTTP.send SoapRequest
  20. result = objHTTP.responseText
  21. Set objXML = CreateObject (&quot;Msxml2.DOMDocument&quot;)
  22. objXML.LoadXml result
  23. If not objXML.SelectSinglenode (&quot;//faultstring&quot;) is nothing then
  24.     Err.Raise 1,  &quot;Error:&quot; &amp; objXML.SelectSingleNode(&quot;//faultcode&quot;).text, Trim(objXML.SelectSingleNode(&quot;//faultstring&quot;).text)
  25. End If
  26. Set NodeList = objXML.SelectNodes(&quot;//Asset/Entitlements/EntitlementData&quot;)
  27. set warrantyCols = NodeList.item(0)
  28. dim filesys, filetxt, getname, path
  29. Set filesys = CreateObject(&quot;Scripting.FileSystemObject&quot;)
  30. Set filetxt = filesys.CreateTextFile(&quot;c:\warranty.txt&quot;, True)
  31. path = filesys.GetAbsolutePathName(&quot;c:\warranty.txt&quot;)
  32. getname = filesys.GetFileName(path)
  33. filetxt.WriteLine(Mid(warrantyCols.SelectSingleNode(&quot;EndDate&quot;).text,1,10) &amp; &quot; (&quot; &amp; svctag &amp; &quot;)&quot;)
  34. filetxt.Close

Connectwise Analytics

upggr Leave a comment

This project was done on my spare time mostly, for the company I work for. It digs into the connectwise and labtech databases pulling interesting data, presenting them in a nice jquery way. Ideal for your NOC board monitors or your management executive boards / meetings.

Here are some screenshots (company names and technicians’ names are blanked :

I am tempted to release this as opensource. I would love to get some beta testers. The only thing you need to run it on your server is php,mssql extensions and a read only user for labtech and connectwise (or only connectwise.) All configuration is done on a single config file.