08/06/21 10:49:13 m1Ys5slR
ありがとうございます。 >>211
上のURLを参考に、Vistaのhotfixを取得することができました。
・・でも少し抜けてるんですよね。ServicePack（KB936330）とか。
URLのコードにあった、Win32_QuickFixEngineeringを参考に調べていたら
URLﾘﾝｸ(www.microsoft.com)
でなんかいけるかもなのでがんばってみます。
ありがとうございました！
今回試したスクリプトは以下
'---------------------------------
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colQuickFixes = objWMIService.ExecQuery _
("Select * from Win32_QuickFixEngineering")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set TextFile = objFSO.OpenTextFile("C:\test.txt", 2, True)
TextFile.Write "Computer,Description,Hot Fix ID,Installation Date,Installed By" & vbCrLf
For Each objQuickFix In colQuickFixes
TextFile.Write objQuickFix.CSName & "," & objQuickFix.Description & "," & objQuickFix.HotFixID & ","_
& objQuickFix.InstallDate & "," & objQuickFix.InstalledBy & vbCrLf
Next
TextFile.Close