|
Content of VBS script:
'
' 16-bit ODBC setup to run >cscript odbc_ini.vbs
'
'
' Required entries in ODBC.ini - WIN.INI for db9server entry
'
' [ODBC Data Sources]
' db9server=SQL Server
'
' [db9server]
' Driver=C:\WINNT\SYSTEM\sqlsrvr.dll
' Description=
' Server=db9server
' Address=172.27.44.54,1443
' UseProcForPrepare=Yes
' QuotedId=Yes
' AnsiNPW=Yes
' OemToAnsi=No
' Trusted_Connection=
Const ForReading = 1
Const ForWriting = 2
found="N"
Set Shell = WScript.CreateObject("WScript.Shell")
windowsdir = shell.ExpandEnvironmentStrings("%windir%")
' ------------------------------------------------------------
' Add entry to WIN.INI
' ------------------------------------------------------------
Set objFSO = CreateObject("Scripting.FileSystemObject")
' Create Backup
objFSO.CopyFile windowsdir & "\win.ini",windowsdir & "\win.bak",true
WScript.Echo " ...Creating backup " & windowsdir & "\win.bak"
Set objTextFile = objFSO.OpenTextFile(windowsdir & "\win.ini", ForReading)
WScript.Echo " ...Updating " & windowsdir & "\win.ini"
Do Until objTextFile.AtEndOfStream
strNextLine = objTextFile.Readline
intLineFinder = InStr(strNextLine, "[SQLSERVER]")
If intLineFinder <> 0 Then
strNewFile = strNewFile & strNextLine & vbCrLf
strNextLine = objTextFile.Readline
Do Until InStr(strNextLine, "[") <> 0
if InStr(strNextLine, "db9server=") <> 0 then
found="Y"
WScript.Echo " ...WIN.INI Entry found!!"
End If
strNewFile = strNewFile & strNextLine & vbCrLf
strNextLine = objTextFile.Readline
Loop
If found="N" then
strNewFile = strNewFile & "db9server=DBMSSOC3,172.27.44.54,1443" & vbCrLf
WScript.Echo " ...Adding to Data Sources"
End If
End If
strNewFile = strNewFile & strNextLine & vbCrLf
Loop
objTextFile.Close
If found="N" then
WScript.Echo " ...Saving File"
Set objTextFile = objFSO.OpenTextFile(windowsdir & "\WIN.ini", ForWriting)
objTextFile.WriteLine strNewFile
objTextFile.Close
End If
' --------------------------------------------------------------
' Add entries to ODBC.ini
' --------------------------------------------------------------
found="N"
strNewFile=""
Set objFSO = CreateObject("Scripting.FileSystemObject")
' Create Backup
objFSO.CopyFile windowsdir & "\ODBC.ini",windowsdir & "\ODBC.bak",true
WScript.Echo " ...Creating backup " & windowsdir & "\ODBC.bak"
Set objTextFile = objFSO.OpenTextFile(windowsdir & "\ODBC.ini", ForReading)
WScript.Echo " ...Updating " & windowsdir & "\ODBC.ini"
Do Until objTextFile.AtEndOfStream
strNextLine = objTextFile.Readline
intLineFinder = InStr(strNextLine, "[ODBC Data Sources]")
If intLineFinder <> 0 Then
strNewFile = strNewFile & strNextLine & vbCrLf
strNextLine = objTextFile.Readline
Do Until InStr(strNextLine, "[") <> 0
if InStr(strNextLine, "db9server=") <> 0 then
found="Y"
WScript.Echo " ...ODBC Entry found!!"
End If
strNewFile = strNewFile & strNextLine & vbCrLf
strNextLine = objTextFile.Readline
Loop
If found="N" then
strNewFile = strNewFile & "db9server=SQL Server" & vbCrLf
WScript.Echo " ...Adding to Data Sources"
End If
End If
strNewFile = strNewFile & strNextLine & vbCrLf
Loop
If found="N" then
strNewFile = strNewFile & "[db9server]" & vbCrlf
strNewFile = strNewFile & "Driver=" & windowsdir & "\SYSTEM\sqlsrvr.dll" & vbCrlf
strNewFile = strNewFile & "Description=db9server" & vbCrlf
strNewFile = strNewFile & "Server=db9server" & vbCrlf
strNewFile = strNewFile & "Address=172.27.44.54,1443" & vbCrlf
strNewFile = strNewFile & "UseProcForPrepare=Yes" & vbCrlf
strNewFile = strNewFile & "QuotedId=Yes" & vbCrlf
strNewFile = strNewFile & "AnsiNPW=Yes" & vbCrlf
strNewFile = strNewFile & "OemToAnsi=No" & vbCrlf
strNewFile = strNewFile & "Trusted_Connection=" & vbCrlf
strNewFile = strNewFile & "LastUser=" & vbCrlf
WScript.Echo " ...Adding Entry"
End If
objTextFile.Close
If found="N" then
WScript.Echo " ...Saving File"
Set objTextFile = objFSO.OpenTextFile(windowsdir & "\ODBC.ini", ForWriting)
objTextFile.WriteLine strNewFile
objTextFile.Close
End If
| 
