I need help with a script I am working on. I am looking to find a file by extension, put that script in the All Users profile and have it run on startup. The problem is I need the script to go out search the C: drive and find the file by the file extension not the file name. I have written a similar program here that finds it via the full file name. If anyone can help it would be really appreciated.
set wshShell=CreateObject("Wscript.Shell")
Set objNetwork = CreateObject("WScript.Network")
Set objFSO = CreateObject("Scripting.FileSystemObject")
strCompName = objNetwork.ComputerName
'CSG Startup
If Instr(1,LCase(strCompName),"VCAE",1) > 1 Then
wshShell.run chr(34) & "C:\Program Files\Avaya\Avaya IP Agent\IpAgent.exe" & chr(34) & "/lang enu",1,true
ElseIf objFSO.FileExists("C:\Documents and Settings\All Users\Start Menu\Programs\CSG Systems\acsr.lnk") Then
wshShell.run chr(34) & "C:\Documents and Settings\All Users\Start Menu\Programs\CSG Systems\acsr.lnk" & CHR(34),1,false
Else wshShell.run chr(34) & "C:\Documents and Settings\All Users\Start Menu\Programs\CSG Systems\nt acsr.lnk" & CHR(34),1,false
End If
'Rumba Startup
If objFSO.FileExists("C:\Program Files\WallData\MFRAME\rumbaprt.exe") Then
wshShell.run chr(34) & "C:\Program Files\WallData\MFRAME\rumbaprt.exe" & CHR(34),1,false
End If
set wshShell=CreateObject("Wscript.Shell")
Set objNetwork = CreateObject("WScript.Network")
Set objFSO = CreateObject("Scripting.FileSystemObject")
strCompName = objNetwork.ComputerName
'CSG Startup
If Instr(1,LCase(strCompName),"VCAE",1) > 1 Then
wshShell.run chr(34) & "C:\Program Files\Avaya\Avaya IP Agent\IpAgent.exe" & chr(34) & "/lang enu",1,true
ElseIf objFSO.FileExists("C:\Documents and Settings\All Users\Start Menu\Programs\CSG Systems\acsr.lnk") Then
wshShell.run chr(34) & "C:\Documents and Settings\All Users\Start Menu\Programs\CSG Systems\acsr.lnk" & CHR(34),1,false
Else wshShell.run chr(34) & "C:\Documents and Settings\All Users\Start Menu\Programs\CSG Systems\nt acsr.lnk" & CHR(34),1,false
End If
'Rumba Startup
If objFSO.FileExists("C:\Program Files\WallData\MFRAME\rumbaprt.exe") Then
wshShell.run chr(34) & "C:\Program Files\WallData\MFRAME\rumbaprt.exe" & CHR(34),1,false
End If