Dear,
Another part from another script, which we are using also.
- %windir%\win.ini[oracle]
ora_config=c:\%windir%\oracle.ini - %windir%\oracle.ini
[oracle]
local=tns:server_a
Other code for ideas:
code:
; - :script_oracle
IF ($debug_mode = "yes")
?
? "-REGISTRY PART- win.ini + oracle.ini"
?
ENDIF
$execute_mode="yes"
IF ($execute_mode = "yes")
$file_dir="winnt"
SELECT
CASE (exist("c:\windows\win.ini") = 1)
$file_dir="windows"
CASE (exist("c:\winnt\win.ini") = 1)
$file_dir="winnt"
CASE 1
IF ($NT_mode = "yes")
$file_dir="winnt"
ELSE
$file_dir="windows"
ENDIF
ENDSELECT
$filename="c:\"+$file_dir+"\win.ini"
$file_attr=getfileattr($filename)
IF ($debug_mode = "yes")
? " "+$filename+" (attr: "+$file_attr+") -> [oracle] ora_config=c:\"+$file_dir+"\oracle.ini"
ENDIF
IF setfileattr ($filename, 128)
ENDIF
IF writeprofilestring($filename, "oracle", "ora_config", "c:\"+$file_dir+"\oracle.ini")
ENDIF
IF setfileattr ($filename, $file_attr)
ENDIF
;
$file_dir="winnt"
SELECT
CASE (exist("c:\windows\oracle.ini") = 1)
$file_dir="windows"
CASE (exist("c:\winnt\oracle.ini") = 1)
$file_dir="winnt"
CASE 1
IF ($NT_mode = "yes")
$file_dir="winnt"
ELSE
$file_dir="windows"
ENDIF
ENDSELECT
$filename="c:\"+$file_dir+"\oracle.ini"
$file_attr=getfileattr($filename)
IF ($debug_mode = "yes")
? " "+$filename+" (attr: "+$file_attr+") -> [oracle] local=tns:simpln_a"
ENDIF
IF setfileattr ($filename, 128)
ENDIF
IF writeprofilestring($filename, "oracle", "local", "tns:server_a");
ENDIF
IF setfileattr ($filename, $file_attr)
ENDIF
ENDIF
greetings.
