The basic jist of this is I that the script is reading in a text file that contains all of the computer names in the domain. Ideally what I would like for it to do is go through and validate if this file exists on the computer. If it does, I want it to write to this text file that say the computer name and if the file exists or not.

Code:

 
Break on

Open(1,"SymForm.txt",2)

Do $Comp = ReadLine(1)
	$UNCComp = "\\"+$Comp

	If Exist("$UNCComp\C$\Program Files\SymForm API\SymStoreMod.dll")=1
		$ToWrite = $Comp+Chr(9)+"File Exists"
		Open(2, "\\servername\sharename\filename.txt", 5)
		WriteLine(2, $ToWrite + @CRLF)
		Close(2)
	Else
		$NoWrite = $Comp+Chr(9)+"File Does Not Exist"
		Open(2, "\\servername\sharename\filename.txt",5)
		WriteLine(2, $NoWrite + @CRLF)
		Close(2)
	EndIf

Until $Comp=""
Close(1)

There are few problems I am experiencing. For testing I typically start with one computer until the code appears to be correct. For some reason everytime I read the one computer name, it will create a valid return in the text file, but then create a new line with no computer name and say File does not exist. Then when I start to read in multiple computers it it throws off all of the records.

For some reason I can't wrap my head around why it isn't working. I am definately open to other ideas of how to validate that this file exist on all of the domain computers. Any suggestions are appreacatied.

Thanks!
Jeff

; not only good practice, but needed because you are using "C$" in a string ; to specify the admin share! $ = SetOption('NoVarsInStrings', 'On') If Open(1,"SymForm.txt",2) = 0 ; send all output to this file $ = RedirectOutput('\\servername\sharename\filename.txt') $Comp = ReadLine(1) ; read the first line While Not @ERROR ; loop until error occurs (End of File) If $Comp ; process if not blank ; This wraps the Computer name in \\ and \, removing any slashes that already exist $Target = '\\' + Join(Split($Comp, '\'), '', 3) + '\' ; this print statement is common to all processing $Comp Chr(9) If Exist($Target + 'C$\Program Files\SymForm API\SymStoreMod.dll') 'File Exists' ? Else 'File Missing' ? EndIf EndIf $Comp = ReadLine(1) ; read the next line Loop Close(1) ; close the output redirection $ = RedirectOutput('') EndIf

; not only good practice, but needed because you are using "C$" in a string ; to specify the admin share! $ = SetOption('NoVarsInStrings', 'On') If Open(1,"SymForm.txt",2) = 0 $Comp = ReadLine(1) ; read the first line While Not @ERROR ; loop until error occurs (End of File) If $Comp ; process if not blank ; This wraps the Computer name in \\ and \, removing any that already exist $Target = '\\' + Join(Split($Comp, '\'), '', 3) + '\' 'Processing ' $Comp ':' Exist($Target + 'C$\Program Files\SymForm API\SymStoreMod.dll') ? ; send all output to this file $ = RedirectOutput('\\server\share\filename.txt') ; this print statement is common to all processing $Comp Chr(9) If Exist($Target + 'C$\Program Files\SymForm API\SymStoreMod.dll') 'File Exists' ? Else 'File Missing' ? EndIf $ = RedirectOutput('') EndIf $Comp = ReadLine(1) ; read the next line @SERROR ? Loop Close(1) ; close the output redirection EndIf

;RedirectOut sends all of the output information to the file \\server\share\file $ = RedirectOutput('\\server\share\filename') ;Checks to see if SymStoreMod.dll exists If Exist("C:\Program Files\SymForm API\SymStoreMod.dll") ;If file exists than it will run this command @WKSTA + Chr(9)+@DATE+Chr(9)'File Exists'? Else ;If the file does not exist will run the following command @WKSTA + Chr(9)+@DATE+Chr(9)+'File Does Not Exist' ? EndIf ;Closes the output redirection $ = RedirectOutput('') :End