0

インストールされている Windows の修正プログラムと更新プログラムの一覧を取得したいと考えています。以下のスクリプトを使用します。

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colQuickFixes = objWMIService.ExecQuery _
("Select * from Win32_QuickFixEngineering")

Set objDateTime = CreateObject("WbemScripting.SWbemDateTime")

For Each objQuickFix in colQuickFixes
Wscript.Echo "Computer: " & objQuickFix.CSName
Wscript.Echo "Description: " & objQuickFix.Description
Wscript.Echo "Hot Fix ID: " & objQuickFix.HotFixID
If Not (IsNull(objQuickFix.InstallDate) Or _
IsEmpty(objQuickFix.InstallDate)) Then
objDateTime.Value = objQuickFix.InstallDate
Wscript.Echo "Installation Date: " & objDateTime.GetFileTime
Else
WScript.Echo "Install Date Type: " &
TypeName(objQuickFix.InstallDate)
End If
Wscript.Echo "Installed By: " & objQuickFix.InstalledBy
Next

このスクリプトを実行すると、次のエラー メッセージが表示されます。

Syntax error
Error Code 800A03EA

このコードの何が問題になっていますか? ありがとう!私の英語が完璧でない場合は申し訳ありません。

4

1 に答える 1

0

ここに行継続文字()がありません_

''#                        -----------
''#                                  |
''#                                  \/

WScript.Echo "Install Date Type: " & _
TypeName(objQuickFix.InstallDate)

それを追加するか、コードを1行に配置します。

WScript.Echo "Install Date Type: " & TypeName(objQuickFix.InstallDate)
于 2010-10-20T18:46:26.723 に答える