2015. 1. 10. 16:10
VBS - Windows 방화벽 설정 확인 (Windows Server 2003) Etc.2015. 1. 10. 16:10
On Error Resume Next
Set objFwMgr = CreateObject("HNetCfg.FwMgr")
Set objProfile = objFwMgr.LocalPolicy.CurrentProfile
If Err <> 0 Then
WScript.Echo "Windows Firewall Service is not running."
WScript.Quit
End If
If objProfile.FirewallEnabled = True Then
WScript.Echo "Windows Firewall is enabled."
Else
WScript.Echo "Windows Firewall is disabled."
End If
