Güvenlik duvarını Kapatmak/Açmak

[k0081]

Merhaba arkadaşlar

Güvenlik duvarı "Ortak ağ" script yada vba ile nasıl kapatıp,açabilirim ?

yardımcı arkadaşa şimdiden teşekkürler.

 

[maliex]

ALINTIDIR

Sub WindowsFirewallKapat()
    
    Dim objShell As Object
    Set objShell = CreateObject("WScript.Shell")
    objShell.Run "netsh advfirewall set allprofiles state off", 0, True
    Set objShell = Nothing
End Sub

Sub WindowsFirewallAc()
    
    Dim objShell As Object
    Set objShell = CreateObject("WScript.Shell")
    objShell.Run "netsh advfirewall set allprofiles state on", 0, True
    Set objShell = Nothing
End Sub

 

[k0081]

Tamamdır. Çok teşekkür ediyorum. elinize sağlık.