[VBS] Membuat Port Baru Dalam Firewall

Dim objFirewall,objPolicy, objNewPort, globPorts
Set objFirewall = CreateObject("HNetCfg.FwMgr")
Set objPolicy = objFirewall.LocalPolicy.CurrentProfile
Set objNewPort = CreateObject("HNetCfg.FwOpenPort")
With objNewPort
 .Name = "HTTP"
 .Port = 80
 .Enabled = True
End With
Set globPorts = objPolicy.GloballyOpenPorts
globPorts.Add(objNewPort)
'(c) 2010 Crowja

Jangan Lupa Komentar Yaa..