Set Fso = CreateObject("Scripting.FileSystemObject") Set InputFile = fso.OpenTextFile("MachineList.Txt") Do While Not (InputFile.atEndOfStream) strComputer = InputFile.ReadLine   Set objWMIService = GetObject("winmgmts:" & strComputer & "rootcimv2") Set colFiles = objWMIService.ExecQuery _
    ("Select * from CIM_Datafile Where Name = 'c:windowssystem32driverstdx.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."

 

Leave a Reply

Your email address will not be published. Required fields are marked *