Solved

VBScript Registry Change

Posted on 2011-03-10

1 solution

1,016 Views

Last Modified: 2012-05-11

I need some help with VB Script
I have to deploy following Registry changes to all the WS. I need to use VB Script to push all the changes

Windows Registry Editor Version 5.00
[HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBC.INI\ODBC Data Sources]
"Time"="SQL Native Client"

[HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBC.INI\OnBase]
"Driver"="C:\WINDOWS\system32\sqlncli.dll"
"Description"="Time"
"Server"="s016\\CM"
"Database"="Time"
"LastUser"="hsi"

Comment

Question by:VIJAY2766

[X]

Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

Help others & share knowledge
Earn cash & points
Learn & ask questions

Join The Community

15 Comments

LVL 8

Expert Comment

by:MarkieS

ID: 350948132011-03-10

These two functions enable you to read and write to the Registry

Function WriteReg(RegPath, Value, RegType)
'Regtype should be “REG_SZ” for string, “REG_DWORD” for a integer,…
'”REG_BINARY” for a binary or boolean, and “REG_EXPAND_SZ” for an expandable string
Dim objRegistry, Key
Set objRegistry = CreateObject("Wscript.shell")

Key = objRegistry.RegWrite(RegPath, Value, RegType)
WriteReg = Key
End Function

Function ReadReg(RegPath)
Dim objRegistry, Key
Set objRegistry = CreateObject("Wscript.shell")

Key = objRegistry.RegRead(RegPath)
ReadReg = Key
End Function

Author Comment

by:VIJAY2766

ID: 350948782011-03-10

How do i add my regestry settings to this script?

LVL 8

Expert Comment

by:MarkieS

ID: 350948902011-03-10

So you would call the functions as

Temp = WriteReg("HKLM\SOFTWARE\ODBC\ODBC.INI\ODBC Data Sources\Time","SQL Native Client","REG_SZ")
Temp = WriteReg("HKLM\SOFTWARE\ODBC\ODBC.INI\OnBase\Driver","C:\WINDOWS\system32\sqlncli.dll","REG_SZ")
Temp = WriteReg("HKLM\SOFTWARE\ODBC\ODBC.INI\OnBase\Description","Time","REG_SZ")
Temp = WriteReg("HKLM\SOFTWARE\ODBC\ODBC.INI\OnBase\Server","s016\\CM","REG_SZ")
Temp = WriteReg("HKLM\SOFTWARE\ODBC\ODBC.INI\OnBase\Database","Time","REG_SZ")
Temp = WriteReg("HKLM\SOFTWARE\ODBC\ODBC.INI\OnBase\LastUser","hsi","REG_SZ")

Author Comment

by:VIJAY2766

ID: 350949382011-03-10

IS THIS CORRECT
*************************************************************************************8

Function WriteReg(RegPath, Value, RegType)
'Regtype should be “REG_SZ” for string, “REG_DWORD” for a integer,…
'”REG_BINARY” for a binary or boolean, and “REG_EXPAND_SZ” for an expandable string
Dim objRegistry, Key
Set objRegistry = CreateObject("Wscript.shell")
Temp = WriteReg("HKLM\SOFTWARE\ODBC\ODBC.INI\ODBC Data Sources\Time","SQL Native Client","REG_SZ")
Temp = WriteReg("HKLM\SOFTWARE\ODBC\ODBC.INI\OnBase\Driver","C:\WINDOWS\system32\sqlncli.dll","REG_SZ")
Temp = WriteReg("HKLM\SOFTWARE\ODBC\ODBC.INI\OnBase\Description","Time","REG_SZ")
Temp = WriteReg("HKLM\SOFTWARE\ODBC\ODBC.INI\OnBase\Server","s016\\CM","REG_SZ")
Temp = WriteReg("HKLM\SOFTWARE\ODBC\ODBC.INI\OnBase\Database","Time","REG_SZ")
Temp = WriteReg("HKLM\SOFTWARE\ODBC\ODBC.INI\OnBase\LastUser","hsi","REG_SZ")
Key = objRegistry.RegWrite(RegPath, Value, RegType)
WriteReg = Key
End Function

LVL 8

Expert Comment

by:MarkieS

ID: 350949402011-03-10

So your whole script should be

'-------------------------------------------------------------
Option Explicit

Dim WshShell,Temp,Test,bWaitOnReturn

Set WshShell = WScript.CreateObject("WScript.Shell")

On error resume next

Temp = WriteReg("HKLM\SOFTWARE\ODBC\test\ODBC.INI\ODBC Data Sources\Time","SQL Native Client","REG_SZ")
Temp = WriteReg("HKLM\SOFTWARE\ODBC\test\ODBC.INI\OnBase\Driver","C:\WINDOWS\system32\sqlncli.dll","REG_SZ")
Temp = WriteReg("HKLM\SOFTWARE\ODBC\test\ODBC.INI\OnBase\Description","Time","REG_SZ")
Temp = WriteReg("HKLM\SOFTWARE\ODBC\test\ODBC.INI\OnBase\Server","s016\\CM","REG_SZ")
Temp = WriteReg("HKLM\SOFTWARE\ODBC\test\ODBC.INI\OnBase\Database","Time","REG_SZ")
Temp = WriteReg("HKLM\SOFTWARE\ODBC\test\ODBC.INI\OnBase\LastUser","hsi","REG_SZ")

Function WriteReg(RegPath, Value, RegType)
'Regtype should be “REG_SZ” for string, “REG_DWORD” for a integer,…
'”REG_BINARY” for a binary or boolean, and “REG_EXPAND_SZ” for an expandable string
Dim objRegistry, Key
Set objRegistry = CreateObject("Wscript.shell")

Key = objRegistry.RegWrite(RegPath, Value, RegType)
WriteReg = Key
End Function

Function ReadReg(RegPath)
Dim objRegistry, Key
Set objRegistry = CreateObject("Wscript.shell")

Key = objRegistry.RegRead(RegPath)
ReadReg = Key
End Function

LVL 8

Expert Comment

by:MarkieS

ID: 350949462011-03-10

Sorry - Posted at the same time... ;-)

LVL 8

Expert Comment

by:MarkieS

ID: 350949552011-03-10

Sorry again - remove the \TEST bit - I didnt want to deploy this to myself!!! ;-)

Author Comment

by:VIJAY2766

ID: 350950072011-03-10

Do you want me to remove Test from : (Dim WshShell,Temp,Test,bWaitOnReturn)
Test,b

Author Comment

by:VIJAY2766

ID: 350950742011-03-10

I am getting error when I am running this script

LVL 8

Expert Comment

by:MarkieS

ID: 350951362011-03-10

I've re-posted it - I had put in \ HKLM\SOFTWARE\ODBC\TEST\ODBC.ini\ODBC..... sorry!

'-------------------------------------------------------------
Option Explicit

Dim WshShell,Temp,Test,bWaitOnReturn

Set WshShell = WScript.CreateObject("WScript.Shell")

On error resume next

Temp = WriteReg("HKLM\SOFTWARE\ODBC\ODBC.INI\ODBC Data Sources\Time","SQL Native Client","REG_SZ")
Temp = WriteReg("HKLM\SOFTWARE\ODBC\ODBC.INI\OnBase\Driver","C:\WINDOWS\system32\sqlncli.dll","REG_SZ")
Temp = WriteReg("HKLM\SOFTWARE\ODBC\ODBC.INI\OnBase\Description","Time","REG_SZ")
Temp = WriteReg("HKLM\SOFTWARE\ODBC\ODBC.INI\OnBase\Server","s016\\CM","REG_SZ")
Temp = WriteReg("HKLM\SOFTWARE\ODBC\ODBC.INI\OnBase\Database","Time","REG_SZ")
Temp = WriteReg("HKLM\SOFTWARE\ODBC\ODBC.INI\OnBase\LastUser","hsi","REG_SZ")

Function WriteReg(RegPath, Value, RegType)
'Regtype should be “REG_SZ” for string, “REG_DWORD” for a integer,…
'”REG_BINARY” for a binary or boolean, and “REG_EXPAND_SZ” for an expandable string
Dim objRegistry, Key
Set objRegistry = CreateObject("Wscript.shell")

Key = objRegistry.RegWrite(RegPath, Value, RegType)
WriteReg = Key
End Function

Function ReadReg(RegPath)
Dim objRegistry, Key
Set objRegistry = CreateObject("Wscript.shell")

Key = objRegistry.RegRead(RegPath)
ReadReg = Key
End

LVL 8

Expert Comment

by:MarkieS

ID: 350951842011-03-10

And that's the trouble when you keep getting interupted by your work colleagues!!!

Try a copy and paste of everything below the line - It was missing the End Function

'-------------------------------------------------------------
Option Explicit

Dim WshShell,Temp,Test,bWaitOnReturn

Set WshShell = WScript.CreateObject("WScript.Shell")

On error resume next

Temp = WriteReg("HKLM\SOFTWARE\ODBC\ODBC.INI\ODBC Data Sources\Time","SQL Native Client","REG_SZ")
Temp = WriteReg("HKLM\SOFTWARE\ODBC\ODBC.INI\OnBase\Driver","C:\WINDOWS\system32\sqlncli.dll","REG_SZ")
Temp = WriteReg("HKLM\SOFTWARE\ODBC\ODBC.INI\OnBase\Description","Time","REG_SZ")
Temp = WriteReg("HKLM\SOFTWARE\ODBC\ODBC.INI\OnBase\Server","s016\\CM","REG_SZ")
Temp = WriteReg("HKLM\SOFTWARE\ODBC\ODBC.INI\OnBase\Database","Time","REG_SZ")
Temp = WriteReg("HKLM\SOFTWARE\ODBC\ODBC.INI\OnBase\LastUser","hsi","REG_SZ")

Function WriteReg(RegPath, Value, RegType)
'Regtype should be “REG_SZ” for string, “REG_DWORD” for a integer,…
'”REG_BINARY” for a binary or boolean, and “REG_EXPAND_SZ” for an expandable string
Dim objRegistry, Key
Set objRegistry = CreateObject("Wscript.shell")

Key = objRegistry.RegWrite(RegPath, Value, RegType)
WriteReg = Key
End Function

Function ReadReg(RegPath)
Dim objRegistry, Key
Set objRegistry = CreateObject("Wscript.shell")

Key = objRegistry.RegRead(RegPath)
ReadReg = Key
End Function

Author Comment

by:VIJAY2766

ID: 350952742011-03-10

I am still getting error
Invalid Character Line1 Char 1

Author Comment

by:VIJAY2766

ID: 350953752011-03-10

Attached is sceen shot of error.

erro1r.doc

LVL 8

Accepted Solution

by:MarkieS

MarkieS earned 500 total points

ID: 350954542011-03-10

It may be the charachters that you have cut/pasted - I have attached as a file...
Registry-ODBC.vbs

Author Comment

by:VIJAY2766

ID: 350984282011-03-10

script is working fine.

Thanks for your help

Featured Post

Question has a verified solution.

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

Error: Cannot join Non-Federated User's meeting

Article by: dare

Lync meeting or Lync conferencing is what many organizations would like to deploy to allow them save money. But companies are now giving up for various reasons, one of which is that they cannot join external meetings (non-federated company meetings)…

Microsoft Applications

Rounding values up, down, by 4/5, or to significant figures

Article by: Gustav

This collection of functions covers all the normal rounding methods of just about any numeric value.

Make Windows 8 Look Like Earlier Versions of Windows with Classic Shell

Video by: Joe

Windows 8 comes with a dramatically different user interface known as Metro. Notably missing from the new interface is a Start button and Start Menu. Many users do not like it, much preferring the interface of earlier versions — Windows 7, Windows X…

Microsoft Legacy OS
Windows 10
Windows 8
Windows OS
Windows 7
Windows Vista, Windows XP, Windows 2000, *Windows Explorer, *Internet Explorer (IE)

Building Probability Models in Excel Part 4: Discrete Random Variables

Video by: Toby

The viewer will learn how to use the =DISCRINV command to create a discrete random variable, use this command to model a set of probabilities and outcomes in a Monte Carlo simulation, and learn how to find the standard deviation of a set of probabil…