Hi,
I need to get the database updated so we can begin uploading the ODBC data to the OA server:
Here is the thread with the dev:
viewtopic.php?f=9&t=2617Here is the ODBC portion of the audit.vbs
[code]
'
'''''''''''''''''''''''''''
'ODBC Connections '
'''''''''''''''''''''''''''
if ((ServicePack = "2" AND SystemBuildNumber = "2600") OR (SystemBuildNumber = "3790" AND ServicePack = "1" OR ServicePack = "2") OR (SystemBuildNumber = "6000")) then
comment = "ODBC Connections"
if verbose = "y" then
wscript.echo comment
end if
On Error Resume Next
strKeyPath = "SOFTWARE\ODBC\ODBC.INI\ODBC Data Sources"
oReg.EnumValues HKEY_LOCAL_MACHINE,strKeyPath,arrSubKeys
For Each subkey In arrSubKeys
comment = subkey
if verbose = "y" then
wscript.echo "Name: " & comment
end if
On Error Resume Next
odbc_name = subkey
strKeyPath1 = "SOFTWARE\ODBC\ODBC.INI\" & subkey
comment = strKeyPath1
if verbose = "y" then
wscript.echo comment
end if
On Error Resume Next
oReg.EnumValues HKEY_LOCAL_MACHINE, strKeyPath1, arrValueNames, arrValueTypes
For i=0 To UBound(arrValueNames)
oReg.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath1,_
arrValueNames(i),strValue
if verbose = "y" then
wscript.echo arrValueNames(i) & ": " & strValue
end if
On Error Resume Next
Next
Next
end if
[/code]
We need to upload to a new table maybe named ODBC the following values:
1. Each subkey/odbc_name from the array arrSubKeys - name of ODBC Connection
2. Each strKeyPath1 - ODBC path
3. Each value in the loop of the arrValueNames and their corresponding strValue
Can anyone help?
Thanks,
Jason
Thanks,
Jason