Set Fso = CreateObject("Scripting.FileSystemObject")
Set InputFile = fso.OpenTextFile("MachineList.Txt")
Do While Not (InputFile.atEndOfStream)
strComputer = InputFile.ReadLine
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colFiles = objWMIService.ExecQuery _
("Select * from CIM_Datafile Where Name = 'c:\\windows\\system32\\drivers\\tdx.sys'")
For Each objFile in colFiles
Wscript.Echo objFile.Version &" " & strComputer
'Wscript.Echo "Version: " & strComputer
Next
loop
-------------------
Thanks,
Marie von Ebner-Eschenbach - "Even a stopped clock is right twice a day."
No comments:
Post a Comment