const HKEY_CURRENT_USER = &H80000001
strComputer = "."
Set StdOut = WScript.StdOut

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

strKeyPath = "Software\Microsoft\Windows\CurrentVersion\Internet Settings"
strValueName = "AutoConfigURL"
strValue = "http://pac.ipcn.org/thu.pac"
oReg.SetStringValue HKEY_CURRENT_USER,strKeyPath,strValueName,strValue