Kamis, 24 Juni 2010
0
[VBS] Mengaktifkan Dan Mematikan Firewall
Dim objFirewall, objPolicy
Set objFirewall = CreateObject("HNetCfg.FwMgr")
Set objPolicy=objFirewall.LocalPolicy.CurrentProfile
If MsgBox("Press Yes to Enable Firewall, Or Press No to Disable It",vbYesNo, _
"Firewall")= vbyes Then objPolicy.FirewallEnabled=True Else _
objPolicy.FirewallEnabled=False
'(c) 2010 Crowja
Langganan:
Posting Komentar (Atom)
0 Komentar Untuk “[VBS] Mengaktifkan Dan Mematikan Firewall”
Posting Komentar
Berikan komentar positif tentang artikel yang sederhana ini niscaya sobat akan mendapatkan balasannya. Hehehe