Dim objShell, RegLocate, RegLocate1Set objShell = WScript.CreateObject("WScript.Shell")On Error Resume NextRegLocate = "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable"' Take great care with the line above ' Note the space between \Internet and Settings\
if objShell.RegRead(RegLocate) = "1" then objShell.RegWrite RegLocate,"0","REG_DWORD" wscript.Echo "Internet Settings have been Changed to Home Use" WScript.Quit ' Tells the script to stop and exit.Else wscript.Echo" No need to change setting "End if
'WScript.Echo "Current Logon Server is: " & objShell.RegRead(RegLocate) 'Little utility developed by Kulbir