‘Gregor Stefka

Const HKEY_LOCAL_MACHINE = &H80000002
Const HKEY_CURRENT_USER  = &H80000001

strComputer  = “.”
strDSN  = “YourDSN”

Set objReg=GetObject(“winmgmts:{impersonationLevel=impersonate}!\\” & _
    strComputer & “\root\default:StdRegProv”)
 
strKeyPath = “SOFTWARE\ODBC\ODBC.INI\” & strDSN
objReg.DeleteKey HKEY_LOCAL_MACHINE, strKeyPath
objReg.DeleteKey HKEY_CURRENT_USER, strKeyPath

strKeyPath = “SOFTWARE\ODBC\ODBC.INI\ODBC Data Sources”
objReg.DeleteValue HKEY_LOCAL_MACHINE,strKeyPath,strDSN
objReg.DeleteValue HKEY_CURRENT_USER ,strKeyPath,strDSN