wmi 创建 dsn

来源：互联网发布：js用图片显示当前时间编辑：程序博客网时间：2024/06/05 17:32

创建 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, 脚本