‎12-08-2009 04:43 PM
Dim objWMI : Set objWMI = GetObject("winmgmts:")
Dim colSettingsComp : Set colSettings = objWMI.ExecQuery("Select * from Win32_ComputerSystem")
Dim colSettingsBios : Set colSettingsBios = objWMI.ExecQuery("Select * from Win32_BIOS")
Dim objComputer, strModel, strSerial
For Each objComputer in colSettings
strModel = objComputer.Model
Next
For Each objComputer in colSettingsBios
strSerial = objComputer.SerialNumber
Next
myarray = Split(strModel, "(")
wscript.echo "Model: ", Replace(myarray(0),"(","")
wscript.echo "Part Number:", Replace(myarray(1),")","")
wscript.echo "Serial: ", strSerial
http://h20000.www2.hp.com/bizsupport/TechSupport/WarrantyResults.jsp?nickname=&sn={SERIALNUMBER}&country=CA&lang=en&cc=us&pn={PARTNUMBER}&find=Display%20Warranty%20Information%20%C2%BB&
http://h10025.www1.hp.com/ewfrf/wc/swPfinder?query={PARTNUMBER}&tool=softwareCategory&lc=en&cc=us&dlc=en
‎11-07-2012 06:28 PM
‎11-08-2012 04:18 PM
labrams wrote:
I would like this same information only from Dell. I also have spiceworks and it pulls purchase dates and warranty information for my systems. Just something for the wishlist I guess.
‎10-30-2012 04:03 PM
‎10-31-2012 02:37 PM
d.i.saunders wrote:
Anything warrant related would be perfect.
‎10-30-2012 11:35 AM
‎10-30-2012 02:39 PM
d.i.saunders wrote:
sorry to drag up an only topic but this would be very usefull..
‎03-07-2011 04:53 PM
http://h20000.www2.hp.com/bizsupport/TechSupport/WarrantyResults.jsp?nickname=&sn=<InsertSerialNumberHere>&country=CA&lang=en&cc=us&pn=<InsertProductNumberHere>#ABA&find=Display%20Warranty%20Information%20%C2%BB&
‎11-08-2010 03:27 PM
‎04-08-2010 12:41 AM
Experience Lansweeper with your own data. Sign up now for a 14-day free trial.
Try Now