Set S = CreateObject("RegEdit.Server") 'CPTimeout is string value S.Keys("SOFTWARE\ODBC\ODBCINST.INI\SQL Server").Values("CPTimeout") = "180"