wmi 创建 dsn

创建 DSN 的脚本， 使用 vbs 或vb运行

'Declare Registry Constants
Const HKEY_CURRENT_USER=&H80000001
Const HKEY_LOCAL_MACHINE=&H80000002
Const HKEY_USERS=&H80000003

Dim objReg
Dim strDSN, strDBName, strDescription
Dim strDriverPath, strLastUser, strServer
Dim strTrustedConn, strDriverName
Dim strComputer, strPath

strDSN="MySQLDSN" 'DSN的名字
strDBName ="MyDatabase" '数据库的名字
strDriverPath="C:WINNTSystem32sqlsrv32.dll"
strLastUser="sa"
strServer="MySQLServer" '数据库的IP
strTrustedConn="Yes" ' 是否使用 windows 身份验证
strDescription="My SQL Database"
strDriverName="SQL Server"
strPath="SOFTWARE/ODBC/ODBC.INI" & strDSN

strComputer = "."

Set objReg=GetObject _
("winmgmts:{impersonationLevel=impersonate}//" _
& strComputer & "/root/default:StdRegProv" )

objReg.CreateKey _
strComputer, HKEY_LOCAL_MACHINE, strPath

objReg.SetStringValue HKEY_LOCAL_MACHINE, _
strPath, "Database", strDBName
objReg.SetStringValue HKEY_LOCAL_MACHINE, _
strPath, "Description", strDescription
objReg.SetStringValue HKEY_LOCAL_MACHINE, _
strPath, "Driver", strDriverPath
objReg.SetStringValue HKEY_LOCAL_MACHINE, _
strPath, "LastUser", strLastUser
objReg.SetStringValue HKEY_LOCAL_MACHINE, _
strPath, "Server", strServer
objReg.SetStringValue HKEY_LOCAL_MACHINE, _
strPath, "Trusted_Connection", strTrustedConn

'Ensure that the DSN gets listed in ODBC
objReg.SetStringValue HKEY_LOCAL_MACHINE, _
"SOFTWAREODBCODBC.INIODBC Data Sources" , _

Set objReg=Nothing

Del.icio.us : dsn, vbs, wmi, 脚本