Option Explicit
Dim user, pc, notesversion
Dim fso, wsshell, logfile, WshNetwork
Set fso = createobject("Scripting.FileSystemObject")
Set WshNetwork = WScript.CreateObject("WScript.Network")
On Error Resume Next
Set logfile = fso.opentextfile("c:\Documents and Settings\gkj\Desktop\inventory.xls", 8, True)
While Err.Number <> "0"
On error Resume Next
Set logfile = fso.opentextfile("c:\Documents and Settings\gkj\Desktop\inventory.xls", 8, True)
Wend
user = WshNetwork.Username
pc = WshNetwork.ComputerName
If fso.fileexists("C:\lotus\notes\notes.exe") Then
notesversion = fso.GetFileVersion("C:\lotus\notes\notes.exe")
Else
notesversion = "Not Installed"
End If
logfile.writeline date & " " & time & "," & user & "," & pc & "," & notesversion
Set fso = Nothing
Set wshnetwork = Nothing
Set logfile = Nothing
I need a script to check if a file exists and if so to write the information to an excel sheet. I have the below script that I've used to tell me a users pc name username and Lotus Notes version. If I could just add to it, to check if a certain file exists under c:\Documents and Settings\*user*\Application Data\Microsoft\Word\STARTUP and if so say yes or no.

Chowhound
Comic Vine
GameFAQs
GameSpot
Giant Bomb
TechRepublic