0

XP イメージがコンピュータにロードされた後に起動されるポスト イメージ HTA をプログラムしました。HTA は、ユーザーから情報 (プライマリ ユーザー名、部門など) を収集し、カスタム キーでレジストリを更新します。管理者から、コンピューターの保証情報 (具体的には保証終了日) をベンダーの Web サイト (この場合は Lenovo) から取得し、この情報でレジストリを更新できるかどうか尋ねられました。Lenovo では、コンピューターの種類とシリアル番号を使用して匿名で検索でき、保証情報を示すページが返されます。探しているデータの返されたページを解析するために vbscript (またはおそらく javascript?) を使用する方法はありますか?

前もって感謝します、ギル

4

2 に答える 2

2

HTML パーサーを使用する方が確実にこれを行うことができますが、VBScript を使用すると、OLE オートメーションを介してInternet Explorer のスクリプトを作成するだけで簡単に実行できます。

Dim ie, frm

Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = True
ie.Navigate "http://www-307.ibm.com/pc/support/site.wss/" & _
    "document.do?lndocid=LOOK-WARNTY#sw"
Do Until ie.ReadyState = 4 '' READYSTATE_COMPLETE
    WScript.Sleep 100
Loop

Set frm = ie.Document.Forms.warrantyLookup
frm.type.Value = "2644"
frm.serial.Value = "23AB123"
frm.Submit

Do Until ie.Document.ReadyState = "complete"
    WScript.Sleep 100
Loop

'' Locate the information you want to scrape from the
'' ie.Document DOM at this point

ie.Quit
于 2010-01-14T23:07:43.137 に答える
0

返されたページはかなり簡単にスクレイピングできます。実際に必要なのは HTML パーサーだけで、必要な情報が返されたページ内のどこにあるかを知ることができます。VBScript HTML パーサーについては知りませんが、存在することは確かです。ただし、見つからない場合は、ローカルで実行されているコードから外部プログラムを呼び出すことができるため、任意の数の言語でページ スクレイピング ユーティリティを作成できます (または、ある種の grep ユーティリティを使用できます)。探しています。

于 2010-01-14T21:23:34.207 に答える