ps3cheats

Question: I have a number of workstations (listed in a text file) that I need to check periodically for a specific file in a specific directory. I need to show the date/time stamp of "D:\temp\history.tmp" (this drive and directory is always there, the file might not). I need a script that will take the contents of my workstation text file as input, then output either the date/time stamp of the file or state the file doesn't exist to a text file (one line per workstation).

ps3cheats

Will the file alwazs be in D:\temp\? or do you need to search for it?
This should do it, if it is always the same file...

Const ForReading = 1
Const ForWriting = 2
Dim objFSO, objSFile, objDFile
Dim colList, strDate, strComputer

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objSFile = objFSO.OpenTextFile("C:\Computers.txt", ForReading)
Set objDfile = objFSO.CreateTextFile("C:\HistoryReport.log", ForWriting)

colList = Split(objSFile.ReadAll, vbCrLf)

For Each strComputer In colList
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colFiles = objWMIService.ExecQuery _
("Select * From CIM_DataFile Where Name='d:\\temp\\history.tmp'")
For Each objFile In colFiles
strDate = objFile.CreationDate
strDate = Mid(strDate, 5, 2) & "/" & Mid(strDate, 7, 2) & "/" & Left(strDate, 4) & " " & _
Mid(strDate, 9, 2) & ":" & Mid(strDate, 11, 2) & ":" & Mid(strDate, 13, 2)
objDfile.WriteLine strComputer & vbTab & strDate
Next
Next
objDfile.Close

Set objDFile=Nothing
Set objSFile=Nothing
Set objFSO=Nothing