Option Explicit
'Constants
Const HKEY_CLASSES_ROOT 	= &H80000000
Const HKEY_CURRENT_USER 	= &H80000001
Const HKEY_LOCAL_MACHINE 	= &H80000002
Const HKEY_USERS 		= &H80000003
Const HKEY_CURRENT_CONFIG 	= &H80000005

'Variables

Dim DataSourceName
Dim DatabaseName
Dim Description
Dim DriverPath
Dim Server
Dim DriverName
Dim wshShell
Dim systemdir
Dim REG_KEY_PATH
Dim RegObj

'Value assignment

DataSourceName = "efftrade"
DatabaseName = "efftrade"

set wshShell = WScript.CreateObject("WScript.Shell")

systemdir = wshShell.ExpandEnvironmentStrings("%windir%")

DriverPath = systemdir&"\system32\sqlsrv32.dll"
Server="srv.effectivetrade.ru,1105"
Description="Effective Trade"
DriverName="SQL Server"

REG_KEY_PATH = "HKLM\SOFTWARE\ODBC\ODBC.INI\" & DataSourceName 

wshShell.RegWrite REG_KEY_PATH & "\DataBase",DatabaseName,"REG_SZ"
wshShell.RegWrite REG_KEY_PATH & "\Description",Description,"REG_SZ"
wshShell.RegWrite REG_KEY_PATH & "\Server",Server,"REG_SZ"
wshShell.RegWrite REG_KEY_PATH & "\Driver",DriverPath,"REG_SZ"

REG_KEY_PATH = "HKLM\SOFTWARE\ODBC\ODBC.INI\ODBC Data Sources\" & DataSourceName

wshShell.RegWrite REG_KEY_PATH,DriverName,"REG_SZ"

MsgBox DataSourceName & " DSN Created!"