保存したサポート記事のファイル名に文書番号をに付ける。
htmlファイルをドロップします。
KB.vbs ファイル
Set ie=CreateObject("InternetExplorer.Application")
ie.Visible=True
ie.Navigate WScript.Arguments.Item(0)
Do While ie.Busy Or ie.ReadyState<>4
WScript.Sleep 100
Loop
For Each elem In ie.Document.getElementsByTagName("META")
NameStr = elem.getAttribute("name")
If Len(NameStr) Then
If LCase(NameStr) = "ms.sup_cid" Then
KB="KB" & elem.getAttribute("content") & " "
Exit For
End If
End If
Next
ie.Quit
If Not IsEmpty(KB) Then
Set fso=CreateObject("Scripting.FileSystemObject")
fso.GetFile(WScript.Arguments.Item(0)).Name=KB & fso.GetFileName(WScript.Arguments.Item(0))
End If