document.write('
');
document.write('Const HKEY_CURRENT_USER = &H80000001
');
document.write('
');
document.write('strComputer = "."
');
document.write('Set objRegistry = GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv")
');
document.write('
');
document.write('strKeyPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings"
');
document.write('
');
document.write('strValueName = "ProxyEnable"
');
document.write('dwValue = 1
');
document.write('objRegistry.SetDWORDValue HKEY_CURRENT_USER, strKeyPath, strValueName, dwValue
');
document.write('
');
document.write('\'
');
document.write('\' Place your company Proxy information here and Port number here
');
document.write('\'
');
document.write('strValueName = "ProxyServer"
');
document.write('strValue = "http=my.intranetproxy.proxy.com:8080;https=my.intranetproxy.proxy.com:8080;ftp=my.intranetproxy.proxy.com:8080;gopher=my.intranetproxy.proxy.com:8080;"
');
document.write('
');
document.write('objRegistry.SetStringValue HKEY_CURRENT_USER, strKeyPath, strValueName, strValue
');
document.write('
');
document.write('\'
');
document.write('\' This section will allow you to place a proxy override url seperate url\'s be semi colons.
');
document.write('\'
');
document.write('strValueName = "ProxyOverride"
');
document.write('strValue = "<local>;*.my intranet . com" <-- change me
');
document.write('objRegistry.SetStringValue HKEY_CURRENT_USER, strKeyPath, strValueName, strValue
');
document.write('
');
document.write('strComputer = "."
');
document.write('Set objReg = GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv")
');
document.write('
');
document.write('\'
');
document.write('\' this will allow you to change your start "home page" in IE Explorer
');
document.write('\'
');
document.write('strKeyPath = "SOFTWARE\Microsoft\Internet Explorer\Main"
');
document.write('ValueName = "Start Page"
');
document.write('strValue = "http://myintranet.site.com" <-- change me
');
document.write('objReg.SetStringValue HKEY_CURRENT_USER, strKeyPath, ValueName, strValue
');
document.write('
');
document.write('Dim WSHShell
');
document.write('Set WSHShell = Wscript.CreateObject("WScript.Shell")
');
document.write('bat_file = "%systemroot%\system32\"
');
document.write('bat_file2 = "kill_ie.bat " & mdl
');
document.write('cmd_bat = bat_file&bat_file2
');
document.write('\'Info = MsgBox ("bat_file = " & bat_file & " " & cmd_bat & "")
');
document.write('WshShell.Run cmd_bat,0,TRUE
');
document.write('
');
document.write('
');