TNSNames.ORA File Update

 Dim strfilename

Dim Oraclehomes

On Error Resume Next

'strfilename = WScript.Arguments(0)

HOST1 = WScript.Arguments(0) 'Pass New value as Parameter

HOST2 = WScript.Arguments(1) 'Pass New value as Parameter

Set oFSO = CreateObject("Scripting.FileSystemObject")

Const ForAppending = 8

Const ForWriting = 2

Set Wshshell = CreateObject("WScript.Shell") 

Oraclehomes = Wshshell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\oracle\ALL_HOMES\HOME_COUNTER")

'wscript.echo strfilename 

'wscript.echo Oraclehomes 

For counter = 0 to Oraclehomes-1

registryvalue = "HKEY_LOCAL_MACHINE\SOFTWARE\oracle\HOME" & Counter & "\ORACLE_HOME"

OracleHomePath = Wshshell.RegRead(registryvalue)

'wscript.echo OracleHomePath

strfilename = OracleHomePath & "\Network\Admin\Tnsnames.ora"

'wscript.echo strfilename 

If oFSO.FileExists(strfilename) Then

Set oFile = oFSO.OpenTextFile(strFileName, ForAppending)

oFile.WriteLine "MARGINDB =  (DESCRIPTION =    (ADDRESS_LIST =      (ADDRESS = (PROTOCOL = TCP)(HOST = " & HOST1 & ")(PORT = 1521))    )    (CONNECT_DATA =      (SERVICE_NAME = MARGINDB)    )  )"

oFile.WriteLine "SGMARGIN =  (DESCRIPTION =    (ADDRESS_LIST =      (ADDRESS = (PROTOCOL = TCP)(HOST = " & HOST2 & ")(PORT = 1521))    )    (CONNECT_DATA =      (SERVICE_NAME = SGMARGIN)    )  )"

oFile.Close    

Else

Set oFile = oFSO.CreateTextFile(strFileName)

oFile.WriteLine "MARGINDB =  (DESCRIPTION =    (ADDRESS_LIST =      (ADDRESS = (PROTOCOL = TCP)(HOST = " & HOST1 & ")(PORT = 1521))    )    (CONNECT_DATA =      (SERVICE_NAME = MARGINDB)    )  )"

oFile.WriteLine "SGMARGIN =  (DESCRIPTION =    (ADDRESS_LIST =      (ADDRESS = (PROTOCOL = TCP)(HOST = " & HOST2 & ")(PORT = 1521))    )    (CONNECT_DATA =      (SERVICE_NAME = SGMARGIN)    )  )"

oFile.Close      

End If

'wscript.echo Counter

Next

Click here to get more VBS

Script for OS                                    Script for Registries                Script for Addin

Script for File Operations

Script for WindowsService