Hello,

In my script (see below) I try cleanup the autoexec.bat of Win98 machines. First I read line by line the autoexec and write those lines that do not contain the word "path" to an new file. All goes wel in this part. Then I read the system variable %path% and split it based on the separator ";" and put the value's in to an array. The values within the array are checked and if they match they my conditions they will be written to the new autoexec file.
This works unless the path segment value, between the ";" seperators, is quoted.
I like the script to work for those parts as well.
Then

Case based on the fact that oracle is installed in C:\oracle:
If the old sitiuation =
Path="C:\test1";c:\test2;C:\oracle\bin;C:\windows\system

The result based on this script is now:

Path=c:\test2;C:\windows\system

Desired result should be:

Set Path="C:\test1";c:\test2;C:\windows\system

Used script:
Code:

Function WshPipe($ShellCMD, OPTIONAL $NoEcho)
	Dim $oExec, $Output
	$oExec = CreateObject("WScript.Shell").Exec($ShellCMD)
	If NOT VarType($oExec)=9 $WshPipe="WScript.Shell Exec Unsupported" Exit 10 EndIf
	While NOT $oExec.Status Loop
	$Output = $oExec.StdOut.ReadAll + $oExec.StdErr.ReadAll
	If NOT $NoEcho $Output EndIf
	$WshPipe=Split($Output,Chr(10))
	Exit($oExec.ExitCode)
EndFunction

Break On
$autoexec = "C:\autoexec.bak"
$newautoexec = "C:\autoexec.new"
$regkey = "HKEY_LOCAL_MACHINE\Software\Oracle"
If KeyExist ($regkey)
	$ORAhome = ReadValue ($regkey, "ORACLE_HOME")
	$sElement=Split($ORAhome,"\")
	If $sElement[0]="C:"
		DelTree ($regkey)
		Shell '%COMSPEC% /C deltree /y $ORAhome' 
		If Open(1,$autoexec) = 0
			While @ERROR = 0
				$record = ReadLine(1)
				If NOT @error
					If $record
						If NOT InStr($record,Path)
							? $record
		  	  				$ = Open(3,$newautoexec,5)
		    					$ = WriteLine(3,$record + Chr(13) + Chr(10) )
						EndIf
					EndIf
				EndIf	
			Loop
		    	$ = WriteLine(3,"Set Path = ")
		EndIf
		$segment = Split("%path%",";")
		For $i = 0 To Ubound($segment)
			? $segment[$i]
			If NOT InStr($segment[$i],$ORAhome)
		    		$ = WriteLine(3,$segment[$i])
		    		$ = WriteLine(3,";")    				
		    	EndIf
		Next
	EndIf
EndIf
$ = Close(3)		
:END
? ? Exit


Thanks