Set objReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _ 
	".\root\default:StdRegProv")

strRoot = "HKCU"
nRoot = &H80000001
strPath1 = "Software\ODBC\ODBC.INI\ODBC Data Sources"
strPath2 = "Software\ODBC\ODBC.INI"

strDsn = "DSN_MySQL"
strDriver = "MySQL ODBC 3.51 Driver"

' 値
strTarget1 = strRoot & "\" & strPath1 & "\" & strDsn
' キー (WMI用)
strTarget2 = strPath2 & "\"	& strDsn
' キー (WScript.Shell用)
strTarget3 = strRoot & "\" & strPath2 & "\" & strDsn

' ODBC Data Sources エントリ作成
WshShell.RegWrite strTarget1, strDriver, "REG_SZ"

' ODBC エントリ作成
objReg.CreateKey nRoot, strTarget2
WshShell.RegWrite strTarget3 & "\Description", "by Script", "REG_SZ"
WshShell.RegWrite strTarget3 & "\Driver", "C:\WINDOWS\System32\myodbc3.dll", "REG_SZ"
WshShell.RegWrite strTarget3 & "\Server", "localhost", "REG_SZ"
WshShell.RegWrite strTarget3 & "\Database", "lightbox", "REG_SZ"
WshShell.RegWrite strTarget3 & "\User", "root", "REG_SZ"
WshShell.RegWrite strTarget3 & "\Password", "", "REG_SZ"
WshShell.RegWrite strTarget3 & "\Option", "3", "REG_SZ"
WshShell.RegWrite strTarget3 & "\Port", "3306", "REG_SZ"
WshShell.RegWrite strTarget3 & "\Stmt", "", "REG_SZ"