IntSummaryTableStart = InStrRev(LCase(strPageText), '') + 8 IntSummaryPos = InStr(LCase(strPageText), LCase(strHeading)) StrServicetag = objSWbemObject.SerialNumber Set colSWbemObjectSet = objSWbemServices.ExecQuery('SELECT * FROM win32_bios')įor Each objSWbemObject In colSWbemObjectSet Set objSWbemServices = GetObject('winmgmts:\\.\root\cimv2') Set objHTTP = CreateObject('Msxml2.XMLHTTP') >End>-Warranty Info-=]:>ĪrrHeadings = Array('Service Tag:', 'Days Left') This imported as a Hardware Inventory Class: I've currently got the following setup (which doesn't work)
I know that you can query the Dell warranty website, I've tried a few methods that I've found on Google but none seem to work (seem to be older methods I've been asked by a Director to do a full asset report with purchase and warranty dates/information.
