[x]
Posted via EE Mobile

Search, ask, and monitor your questions on the go with EE Mobile. Visit Experts Exchange from your mobile device and never be out of touch again.
Question
[x]
Attachment Details
[x]
The Solution Rating System

With so many solutions, how can you tell which solutions are most likely to help you and which ones are not? To provide you with a tool to use, we rate our solutions based on various elements that most accurately determine if a solution is a quality solution. To explain what factors affect the solution rating, here are the elements we take into consideration when formulating our solution rating.

  • The Grade of the Solution
  • The Zone Rank of the Expert Providing the Solution
  • The Number of Author and Expert Comments
  • The Number of Experts Contributing
  • The Feedback of the Community

Your Input Matters
Because of the way the system is set up, the most important variable in this equation is you. As a member of Experts Exchange, you are able to cast your vote on the quality of the solutions in regard to how complete, accurate, helpful and easy to understand each solution is. When you provide your feedback, each rating is adjusted accordingly. So, if you see a solution that has a poor rating that you think is a good solution, let us know by rating it. As you do, the rating will be adjusted and will become more accurate for other members of our site.

If you have any suggestions that you would like to make for our rating system, please ask a question in the Suggestions Zone of Community Support.

Thank you!
9.3

Create User DSN using vbscript

Asked by Paul_Schroeder in MS SQL Server, Visual Basic Programming, Microsoft Operating Systems

I would like to know how to modify my existing script that creates a system DSN to create a USER DSN.  Our company is making us use USER vs SYSTEM.  Thanks 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:

'=========================================================================
'
' File: CreateDSN.vbs
'
' COMMENT: Create a System DSN to access a SQL Server database with ODBC
'
'=========================================================================
 
   Dim DataSourceName
   Dim DatabaseName
   Dim Description
   Dim DriverPath
   Dim DriverName
   Dim LastUser
   Dim Password
   Dim Regional
   Dim Server
 
   Const SystemFolder= 1
   Dim fso
   Dim SysFolder
   Dim SysFolderPath
 
   Set fso = wscript.CreateObject("Scripting.FileSystemObject")
   Set SysFolder = fso.GetSpecialFolder(SystemFolder)
   SysFolderPath= SysFolder.Path
 
   
   'Specify the DSN parameters.
 
   DataSourceName = "PROD_BIF_NTWK_INFO"
   DatabaseName = "BIF_NTWK_INFO"
   Description = "Network Demographic Data Tables in " & DatabaseName
   DriverPath = SysFolderPath & "\sqlsrv32.dll"
   Server = "*******"
   LastUser  = "*******"
   Password = "********"
 
   DriverName = "SQL Server"
 
 
   	Set WshShell = WScript.CreateObject("WScript.Shell")
 
 
    Dim RegEdPath
    RegEdPath= "HKLM\SOFTWARE\ODBC\ODBC.INI\" & DataSourceName & "\"
 
    WshShell.RegWrite  RegEdPath  , ""
 
 
 
   WshShell.RegWrite  RegEdPath & "Database" , DatabaseName
   WshShell.RegWrite  RegEdPath & "Description" , Description
   WshShell.RegWrite  RegEdPath & "Driver" , DriverPath
   WshShell.RegWrite  RegEdPath & "LastUser" , LastUser
   WshShell.RegWrite  RegEdPath & "Server" , Server
   WSHSHELL.Regwrite  RegEdPath & "Password" , Password
 
 
   WshShell.RegWrite "HKLM\SOFTWARE\ODBC\ODBC.INI\ODBC Data Sources\" & DataSourceName , DriverName
   msgbox "Complete"		
wscript.Quit
 
'-----------------------------------------------------------------------
Sub Usage
	wscript.echo "Create a DSN to access a SQL Server database with ODBC"
	wscript.echo "Uso :"
	wscript.echo "CreateDSN.vbs <DSNName> <DataBaseName> <SQLServer> <User> "
	wscript.echo ""
	wscript.echo "Ejemplo 1 : CreaDSN.vbs NuevoDSN Pub MySQLServer AdminUser"
	wscript.Quit
end sub
[+][-]09/30/09 07:07 PM, ID: 25465503Accepted Solution

Your question has an Asker Certified™ answer! Paul_Schroeder verified that this solution worked for them--which means it will likely work for you, too. Click to view the solution free for 30-days now.

About this solution

Zones: MS SQL Server, Visual Basic Programming, Microsoft Operating Systems
Sign Up Now!
Solution Provided By: mwvisa1
Participating Experts: 1
Solution Grade: A
 
 
Loading Advertisement...
20100308-EE-VQP-139 - Hierarchy / EE_QW_3_20080625
Your technology problems solved.
Close See Plans and Pricing. Try it FREE for 30 days.