Makro ile Güvenlik Duvarı

[Mehmet Sait]

Merhabalar,

Makro ile güvenlik duvarı devre dışı bırakma/devreye alma işlemi yapılabilir mi ?

Saygılarımla,

 

[bedersu]

Sayın Dunya_
Aşağıdaki kodlar işinizi görür sanırım:

Sub firewall_kapat()

On Error Resume Next
Set objFwMgr = CreateObject("HNetCfg.FwMgr")
If Err <> 0 Then
  MsgBox "Windows güvenlik duvarına erişilemiyor!!!", vbCritical
End If
Set objProfile = objFwMgr.LocalPolicy.CurrentProfile
If objProfile.FirewallEnabled = True Then
MsgBox "Windows güvenlik duvarı etkin.", vbInformation
  objProfile.FirewallEnabled = False
  MsgBox "Güvenlik duvarı artık kapalı.", vbInformation
Else
  MsgBox "Güvenlik duvarı zaten kapalı.", vbInformation
End If

End Sub

Sub firewall_ac()

On Error Resume Next
Set objFwMgr = CreateObject("HNetCfg.FwMgr")
If Err <> 0 Then
  MsgBox "Windows güvenlik duvarına erişilemiyor!!!", vbCritical
End If
Set objProfile = objFwMgr.LocalPolicy.CurrentProfile
If objProfile.FirewallEnabled = False Then
MsgBox "Windows güvenlik duvarı kapalı.", vbInformation
  objProfile.FirewallEnabled = True
  MsgBox "Güvenlik duvarı artık açık.", vbInformation
Else
  MsgBox "Güvenlik duvarı zaten açık.", vbInformation
End If

End Sub

 

[Mehmet Sait]

Sayın bedersu,

Öncelikle ilgi ve alakanızdan dolayı teşekkür ederim. Günlük olarak SQL den bir rapor almaktayım güvenlik duvarı etkin durumdayken raporun tamamlanması baya zaman alıyordu o yüzden makro yu çalıştırırken otomatik devre dışı bırakmasını ve rapor bitincede etkin hale getirmesini istemiştim ama başta McAfee virus programı kullandığımı ve güvenlik duvarının virus programı tarafından yönetildiğini belirtmemiştim verdiğiniz kodu denedim ama devre dışı bırakmadı.