+ Post New Thread
Results 1 to 14 of 14
Coding Thread, Warranty status hta or script in Coding and Web Development; Hi @ Steve21 @ Arthur Just a query with regards to wanting to know if there was a way to ...
  1. #1

    mac_shinobi's Avatar
    Join Date
    Aug 2005
    Posts
    9,807
    Thank Post
    3,320
    Thanked 1,056 Times in 977 Posts
    Rep Power
    365

    Warranty status hta or script

    Hi
    @Steve21 @Arthur

    Just a query with regards to wanting to know if there was a way to create preferably a hta that could connect to and interact with both the Lenovo and Dell servers.

    1. Open HTA it querries and obtains all the machine information to include ( Computer name, service tag / serial number , asset tag and Model number ( for Lenovo machines ) and basic machine spec ie OS + Service Pack Level, CPU, RAM , HDD

    2. HTA then communicates with the relevant site / server or whatever with the relevant information so for Dell this would just be the service tag and for Lenovo this would be the model ie 4236CP7 and the serial number afaik.

    3. HTA receives all the warranty info ie shipped date, start date and end date of the warranty for the machine that the HTA has or had run on.

    I did find this :

    Dell Warranty Info - Hardware Inventory extension - Sherry Kissinger at myITforum.com

    Not had a chance to look into this fully yet but just wanted thoughts / suggestions on how to go about this, step 1 I can do myself but steps 2 and 3 is where I need help

  2. #2

    Steve21's Avatar
    Join Date
    Feb 2011
    Location
    Swindon
    Posts
    2,698
    Thank Post
    335
    Thanked 516 Times in 484 Posts
    Rep Power
    180
    Easiest way would be as such:

    Code:
    strServiceTag = "ABCDEF"
    url = "http://supportapj.dell.com/support/topics/topic.aspx/ap/shared/support/my_systems_info/en/details?c=in&cs=inbsd1&l=en&s=bsd&ServiceTag=" & strServiceTag & "&~tab=1"
    
    Set writyObject = CreateObject("Scripting.FileSystemObject")
    Set WrityStuff = writyObject.OpenTextFile("MyWarrantyStuff.txt", 8, True)
    WrityStuff.WriteLine(urlget(url))
    WrityStuff.Close
    
    Function URLGet(URL)
      Set Http = CreateObject("MSXML2.ServerXMLHTTP.6.0")
      Http.Open "GET",URL,false
      Http.Send
     URLGet = Http.responseText
    End Function
    Instead of writing it to text file, You'd just put it into a variable, then read through it and rip what information you want. e.g MyWarranty = urlget(url)

    Can't test much past what I did above at work, as I can't get direct access through VTMG on this box.

    Hope above gives a bit of help?

    Steve

  3. Thanks to Steve21 from:

    mac_shinobi (24th February 2012)

  4. #3

    mac_shinobi's Avatar
    Join Date
    Aug 2005
    Posts
    9,807
    Thank Post
    3,320
    Thanked 1,056 Times in 977 Posts
    Rep Power
    365

    error

    Can't upload a screen grab of the error but am getting :

    Line 12, Char 3
    Error : The operation timed out

    Code : 80072EE2
    Source : msxml6.dll

    Any ideas ?

    Windows 7 32 bit enterprise edition.

  5. #4


    Join Date
    Feb 2007
    Location
    51.403651, -0.515458
    Posts
    9,064
    Thank Post
    232
    Thanked 2,717 Times in 2,005 Posts
    Rep Power
    795
    I know it's not a VBScript, but would this PowerShell function be any good? When you run it, all of the warranty details are returned as separate objects. This would enable you to output the info to a CSV file (in different columns) for example, or if you have the ISE installed, Out-GridView.

    Quote Originally Posted by mac_shinobi View Post
    Can't upload a screen grab of the error but am getting
    Btw, CTRL + C will copy the text from the error message dialog box.

  6. #5

    mac_shinobi's Avatar
    Join Date
    Aug 2005
    Posts
    9,807
    Thank Post
    3,320
    Thanked 1,056 Times in 977 Posts
    Rep Power
    365
    Quote Originally Posted by Arthur View Post
    I know it's not a VBScript, but would this PowerShell function be any good? When you run it, all of the warranty details are returned as separate objects. This would enable you to output the info to a CSV file (in different columns) for example, or if you have the ISE installed, Out-GridView.


    Btw, CTRL + C will copy the text from the error message dialog box.
    I can run hta / vbscripts on my work machine but the department who deal with group policies etc have locked down the use of powershell so can't run or do much with powershell at work sigh

  7. #6


    Join Date
    Feb 2007
    Location
    51.403651, -0.515458
    Posts
    9,064
    Thank Post
    232
    Thanked 2,717 Times in 2,005 Posts
    Rep Power
    795
    That's not nice.

  8. Thanks to Arthur from:

    mac_shinobi (24th February 2012)

  9. #7

    mac_shinobi's Avatar
    Join Date
    Aug 2005
    Posts
    9,807
    Thank Post
    3,320
    Thanked 1,056 Times in 977 Posts
    Rep Power
    365
    Quote Originally Posted by Arthur View Post
    That's not nice.
    That's what I thought but I used stronger / possibly harsher language

  10. #8

    Steve21's Avatar
    Join Date
    Feb 2011
    Location
    Swindon
    Posts
    2,698
    Thank Post
    335
    Thanked 516 Times in 484 Posts
    Rep Power
    180
    Quote Originally Posted by mac_shinobi View Post
    Can't upload a screen grab of the error but am getting :

    Line 12, Char 3
    Error : The operation timed out

    Code : 80072EE2
    Source : msxml6.dll

    Any ideas ?

    Windows 7 32 bit enterprise edition.
    Could try increasing the time-out on it, but I'd say it's likely something is blocking it as it should be defaulted to 4~ seconds anyway.

    Try adding
    Code:
    Http.setTimeouts 5000, 60000, 10000, 10000
    after the "Set" line.

    Steve

  11. #9

    mac_shinobi's Avatar
    Join Date
    Aug 2005
    Posts
    9,807
    Thank Post
    3,320
    Thanked 1,056 Times in 977 Posts
    Rep Power
    365
    Quote Originally Posted by Steve21 View Post
    Could try increasing the time-out on it, but I'd say it's likely something is blocking it as it should be defaulted to 4~ seconds anyway.

    Try adding
    Code:
    Http.setTimeouts 5000, 60000, 10000, 10000
    after the "Set" line.

    Steve
    never mind will give that a go, took me a little while to realise you meant this line


    Set Http = CreateObject("MSXML2.ServerXMLHTTP.6.0")

    edit - nope still getting the same error message. Something relating to the msxml6.dll ? Does that file even exist on windows 7 or do I need to install something or register that dll ??

    tried all 3 proxy servers I have access to , left the script to include the extra timeout, done a search on the C: drive and cant find any msxml6.dll file ( including the search of hidden files and directories )

    Not sure where to download or what to download to install the dll file unless there is another way of doing this without that dll ?
    Last edited by mac_shinobi; 24th February 2012 at 03:21 PM.

  12. #10

    Steve21's Avatar
    Join Date
    Feb 2011
    Location
    Swindon
    Posts
    2,698
    Thank Post
    335
    Thanked 516 Times in 484 Posts
    Rep Power
    180
    It's part of Microsofts main MXL parser, should have it if you've got all updates.

    Can try to do it without dll if you prefer

    Steve

  13. #11

    mac_shinobi's Avatar
    Join Date
    Aug 2005
    Posts
    9,807
    Thank Post
    3,320
    Thanked 1,056 Times in 977 Posts
    Rep Power
    365
    Quote Originally Posted by Steve21 View Post
    It's part of Microsofts main MXL parser, should have it if you've got all updates.

    Can try to do it without dll if you prefer

    Steve
    without would be easier if poss as am struggling to make this work.

    I did find this :

    http://stackoverflow.com/questions/7...in-classic-asp

    More with regards to

    Code:
      Http.Open "GET", url, False, PROXY_USERNAME, PROXY_PASSWORD
    But attempted to use my own windows logon credentials and it still gave me the time out error.
    Last edited by mac_shinobi; 24th February 2012 at 03:29 PM.

  14. #12


    Join Date
    Feb 2007
    Location
    51.403651, -0.515458
    Posts
    9,064
    Thank Post
    232
    Thanked 2,717 Times in 2,005 Posts
    Rep Power
    795
    Quote Originally Posted by mac_shinobi View Post
    Does that file even exist on Windows 7
    It comes with Windows.

  15. Thanks to Arthur from:

    mac_shinobi (24th February 2012)

  16. #13

    mac_shinobi's Avatar
    Join Date
    Aug 2005
    Posts
    9,807
    Thank Post
    3,320
    Thanked 1,056 Times in 977 Posts
    Rep Power
    365
    Quote Originally Posted by Arthur View Post
    It comes with Windows.
    Let's just say it should by default but the image that was created had .Net Framework missing so wouldn't surprise me if that xml file was missing too.

  17. #14

    mac_shinobi's Avatar
    Join Date
    Aug 2005
    Posts
    9,807
    Thank Post
    3,320
    Thanked 1,056 Times in 977 Posts
    Rep Power
    365
    @Steve21 - any update on this yet ?

SHARE:
+ Post New Thread

Similar Threads

  1. need .reg file or script please
    By Grommit in forum Windows
    Replies: 6
    Last Post: 30th December 2009, 01:56 PM
  2. Placing the My Documents on Desktop via GPO or Script
    By ninjabeaver in forum Windows Server 2000/2003
    Replies: 3
    Last Post: 29th August 2009, 12:14 AM
  3. Promethean extended warranty: worth it or not?
    By AngryTechnician in forum AV and Multimedia Related
    Replies: 12
    Last Post: 6th July 2009, 08:49 AM
  4. Program or Script to add URLS to a URL sets in ISA server.
    By FN-GM in forum Internet Related/Filtering/Firewall
    Replies: 9
    Last Post: 3rd July 2009, 06:44 PM
  5. ADMT and or Scripting ACL changes.
    By pete in forum Windows
    Replies: 4
    Last Post: 25th October 2006, 08:38 PM

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •