Ah...ok.
Then just change this:

Code:

Select
	Case $Redirected <> "R:\My Documents"
		$rc = WriteLine (1, @TIME + " " + @DATE + @CRLF)
		$rc = WriteLine (1, "Location of My Documents for user " + @USERID + " is NOT ok." + @CRLF)
		$rc = WriteLine (1, "---------------------------------------" + @CRLF)
	Case $Redirected = "R:\My Documents"
		$rc = WriteLine (2, @TIME + " " + @DATE + @CRLF)
		$rc = WriteLine (2, "Location of My Documents for user " + @USERID + " is ok." + @CRLF)
		$rc = WriteLine (2, "---------------------------------------" + @CRLF)
EndSelect


to this:

Code:

Select
	Case $Redirected <> "%USERPROFILE%\My Documents"
		$rc = WriteLine (1, @TIME + " " + @DATE + @CRLF)
		$rc = WriteLine (1, "Location of My Documents for user " + @USERID + " is NOT ok." + @CRLF)
		$rc = WriteLine (1, "---------------------------------------" + @CRLF)
	Case $Redirected = "%USERPROFILE%\My Documents"
		$rc = WriteLine (2, @TIME + " " + @DATE + @CRLF)
		$rc = WriteLine (2, "Location of My Documents for user " + @USERID + " is ok." + @CRLF)
		$rc = WriteLine (2, "---------------------------------------" + @CRLF)
EndSelect
_________________________
Mart

- Chuck Norris once sold ebay to ebay on ebay.