1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
| Set objFirewall = CreateObject("HNetCfg.FwMgr")
Set objPolicy = objFirewall.LocalPolicy.CurrentProfile
Set objMsg = CreateObject("WScript.Shell")
Select Case objPolicy.FirewallEnabled
Case TRUE
RepMsg = objMsg.Popup("Le pare-feu est actif" & vbCrLf & "Voulez-vous le désactiver ?",0,"Pare-feu",4)
If RepMsg = vbYes Then
objPolicy.FirewallEnabled = FALSE
End If
Case FALSE
RepMsg = objMsg.Popup("Le pare-feu est inactif" & vbCrLf & "Voulez-vous l'activer ?",0,"Pare-feu",4)
If RepMsg = vbYes Then
objPolicy.FirewallEnabled = TRUE
End If
End Select |
Partager