Solved

ODBC VBS Scripts not showing in ODBS Administrator

Posted on 2007-11-20
5
812 Views
Last Modified: 2013-11-23
I have three VBS scripts that run when a user logs into a workstation. The scripts enter in values for ODBC Drivers that are needed for our ERP system.

The problem I am having is the scripts run, the registry entries are enter into the registry but the they do not show in the ODBC Administrator so our ERP system does not see them.

What changes do I need to make for when the script executes the entries will show in the ODBC Administrator?

'This is the code for the .vbs script that run at user login

'File name is CRGUP.vbs
 

Const HKEY_LOCAL_MACHINE = &H80000002
 

strComputer = "."

 

Set objReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _ 

    strComputer & "\root\default:StdRegProv")

 

strKeyPath = "SOFTWARE\ODBC\ODBC.INI\ODBC Data Sources"

strValueName = "CRGUP"

strValue = "CR SQLBase"

objReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue

 

strKeyPath = "SOFTWARE\ODBC\ODBC.INI\CRGUP"
 

objReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPath
 

strKeyPath = "SOFTWARE\ODBC\ODBC.INI\CRGUP"
 

strValueName = "Database"

strValue = "CFI"

objReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue
 

strValueName = "Description"

strValue = "Visual"

objReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue

 

strValueName = "LogonID"

strValue = "SYSADM"

objReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue
 

strValueName = "Driver"

strValue = "C:\WINDOWS\system32\crgup13.dll"

objReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue
 

strValueName = "InputMessageSize"

strValue = "0"

objReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue
 

strValueName = "Timout"

strValue = "300"

objReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue
 

strValueName = "NoRecovery"

strValue = "0"

objReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue
 

strValueName = "ReleasePlan"

strValue = "0"

objReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue
 

strValueName = "ServerName"

strValue = "server1"

objReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue
 

strValueName = "Servers"

strValue = ""

objReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue
 

strValueName = "ApplicationUsingThreads"

strValue = "1"

objReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue
 

strValueName = "CursorCacheSize"

strValue = "6"

objReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue
 

'Below are the registry entries

'File name is CRGUP.reg

REGEDIT4
 

[HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBC.INI\CRGUP]

"Database"="CFI"

"Description"="Visual"

"LogonID"="SYSADM"

"Driver"="C:\\WINDOWS\\system32\\crgup13.dll"

"InputMessageSize"="0"

"Timout"="300"

"NoRecovery"="0"

"ReleasePlan"="0"

"ServerName"="server1"

"Servers"=""

"ApplicationUsingThreads"="1"

"CursorCacheSize"="6"

Open in new window

0
Comment
Question by:TheMetrix
  • 3
  • 2
5 Comments
 
LVL 65

Accepted Solution

by:
RobSampson earned 500 total points
ID: 20323902
Hi, if you have the CRGUP.reg file already created (and tested whether just importing this allows the connection to appear in ODBC), then you should only need that reg file located on a network share, then use the following VBS:

Set objShell = CreateObject("WScript.Shell")
objShell.Run "cmd /c regedit /s \\server\share\CRGUP.reg", 0, True

Regards,

Rob.
0
 
LVL 5

Author Comment

by:TheMetrix
ID: 20328427
That worked great Rob, Thanks!!!!!

One more thing though. This is a domain system, I have users that are not local admin or Power Users so the .reg file is not imported. I've allowed the use of registry tools but those logins still do not let the .reg file import. Any suggestions?
0
 
LVL 5

Author Comment

by:TheMetrix
ID: 20328487
I guess what I am trying to find is to still leave the user as normal user but run the logon scripts with a higher priv level.
0
 
LVL 5

Author Comment

by:TheMetrix
ID: 20329448
I put the script in the computer configuration script start up instead and it works great!!!

Again thanks Rob, you are a life save bro.
0
 
LVL 65

Expert Comment

by:RobSampson
ID: 20330778
Hi, no problem!  Sorry I couldn't get back to you earlier, that's the problem with being on the other side of the world I suppose!

Anyway, yes, making this a StartUp script would work for two reasons:
1) A StartUp script runs under the local System account, meaning it has full control over the local computer, and can access only the NetLogon share of a domain controller, in terms of Network Access.
2) The registry keys are HKLM, and *not* HKCU.  This means that the keys apply to the whole computer.  If the keys had to be HKCU, the System account would not know which user to apply it to, because no user has logged in yet.

Regards,

Rob.
0

Featured Post

Netscaler Common Configuration How To guides

If you use NetScaler you will want to see these guides. The NetScaler How To Guides show administrators how to get NetScaler up and configured by providing instructions for common scenarios and some not so common ones.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Note: You must have administrative privileges in order to configure lead or case queues. Salesforce.com (http://www.Salesforce.com) is a cloud-based customer relationship management (CRM) system. It is widely used around the world by sales and ma…
Read about achieving the basic levels of HRIS security in the workplace.
Internet Business Fax to Email Made Easy - With  eFax Corporate (http://www.enterprise.efax.com), you'll receive a dedicated online fax number, which is used the same way as a typical analog fax number. You'll receive secure faxes in your email, f…
Hi friends,  in this video  I'll show you how new windows 10 user can learn the using of windows 10. Thank you.

867 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

16 Experts available now in Live!

Get 1:1 Help Now