Hello,
1. Copier/coller dans un bloc notes ceci pour <souligne>activer </souligne>le proxy (changer 10.10.10.10 par ton adresse IP du proxy):
' On Error Resume Next
'============= paramétrage des paramètres du Proxy ===============
'
set regmod = CreateObject("WScript.Shell")
'========== Donne l'adresse à utiliser =============
'
regmod.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyServer","10.10.10.10:8090","REG_SZ"
'============ Dit au navigateur d'utiliser le proxy défini =============
'
regmod.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable",1,"REG_DWORD"
'
'
Set objNetwork = CreateObject("Wscript.Network")
' 1. Récupération du nom de l'utilisateur
strUserName = objNetwork.UserName
'
Dim Shell, DesktopPath, URL
Set Shell = CreateObject("WScript.Shell")
DesktopPath = Shell.SpecialFolders("Desktop")
Set URL = Shell.CreateShortcut(DesktopPath & "\Support GSI.URL")
URL.TargetPath = "http://saportems/support"
URL.Save
'
'==== affichage boîte d'informations =====================
'
Set WshShell = WScript.CreateObject("WScript.Shell")
intButton = WshShell.Popup (strUsername & ", le Proxy réseau est prêt", , "Internet Explorer - Proxy ON", "64")
'
enregistre le document sur le bureau : proxy_on.vbs
double-clique pour l'executer
2. Copier/coller dans un bloc notes ceci pour <souligne>désactiver</souligne>le proxy :
' On Error Resume Next
'============= paramétrage des paramètres du Proxy ===============
'
set regmod = CreateObject("WScript.Shell")
'========== Donne l'adresse à utiliser =============
'
'============ Dit au navigateur d'utiliser le proxy défini =============
'
regmod.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable",0,"REG_DWORD"
'
'
Set objNetwork = CreateObject("Wscript.Network")
' 1. Récupération du nom de l'utilisateur
strUserName = objNetwork.UserName
'
'<<<<<<<DESACTIVER FIREWALL>>>>>>>>
on error resume next
Set objFirewall = CreateObject("HNetCfg.FwMgr")
Set objPolicy = objFirewall.LocalPolicy.CurrentProfile
objPolicy.FirewallEnabled = FALSE
'==== affichage boîte d'informations =====================
'
Set WshShell = WScript.CreateObject("WScript.Shell")
intButton = WshShell.Popup (strUsername & ", le Proxy est désactivé", , "Internet Explorer - Proxy OFF", "64")
'
enregistre le document sur le bureau : proxy_off.vbs
double-clique pour l'executer
Bien pratique dans on utilise son portable sur un réseau société (avec proxy) et chez soi (sans proxy)
Voili Voila
Cordialement