Const HKEY_LOCAL_MACHINE = &H80000002
set args=wscript.arguments
strComputer = "."

' 2005-2005 2005-2005 falcon falcon 192.168.10.30 3306

if wscript.arguments.count >5 then
	wscript.echo "Found "
else
	wscript.echo "Arguments Short Found " 
	wscript.quit
end if
datasource = args(0)
bdatabase  = args(1)
buserid    = args(2)
bpassword  = args(3)
bserver    = args(4)
bport    = args(5)
 
Set objReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
 
strKeyPath = "SOFTWARE\ODBC\ODBC.INI\ODBC Data Sources"
strValueName = datasource
strValue = "MySQL ODBC 3.51 Driver"
objReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue
 
strKeyPath = "SOFTWARE\ODBC\ODBC.INI\" &datasource

objReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPath

strKeyPath = "SOFTWARE\ODBC\ODBC.INI\" &datasource

strValueName = "Database"
strValue = bdatabase
objReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue
 
strValueName = "Driver"
strValue = "C:\WINDOWS\system32\myodbc3.dll"
objReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue

strValueName = "PWD"
strValue = bpassword
objReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue

strValueName = "Server"
strValue = bserver
objReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue

strValueName = "UID"
strValue = buserid
objReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue


strValueName = "PORT"
strValue = bport
objReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue

strValueName = "Trusted_Connection"
strValue = "Yes"
objReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue