Planet e0r

‘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

strNewPath  =”d:\newpath;”
strPathToReplace =”f:\pathToReplace;”
‘********************************* SET YOUR PATH ABOVE************************
‘Gregor Stefka
Const HKEY_LOCAL_MACHINE  = &H80000002
strComputer    = “.”
strKeyPath    = “SYSTEM\CurrentControlSet\Control\Session Manager\Environment”
strValueName    = “Path”
Set oReg=GetObject(“winmgmts:{impersonationLevel=impersonate}!\\” & strComputer & “\root\default:StdRegProv”)
oReg.GetExpandedStringValue HKEY_LOCAL_MACHINE,strKeyPath, strValueName,strValue
bAllreadySet    = InStr(1, strValue, strNewPath, 1)
‘Wscript.Echo  “The OldPath is: ” & strValue
‘Only add if its not set:
If bAllreadySet = 0 then
 If strPathToReplace =”” or InStr(1, strValue,strPathToReplace, 1) = 0 then
  strNewPath = strNewPath & [...]

A few pics of my new baby…