Community
- Command Central
- MVP Program
- Monthly Mission
- Blogs
- Groups
- Events
- Media Vault
Products
- Observability
- Network Management
- Application Management
- IT Security
- IT Service Management
- System Management
- Database Management
Content Exchange
- SolarWinds Platform
- Server & Application Monitor
- Database Performance Analyzer
- Server Configuration Monitor
- Network Performance Monitor
- Network Configuration Manager
- SQL Sentry
- Web Help Desk
Free Tools & Trials

Windows Firewall Check (vbscript)

Hi all..

i need to check windows firewall (disable or enable)..

so i write a vb script that:

------------------------------------------------------------------------------------------------------------------------

Const FOR_READING = 1
const HKEY_LOCAL_MACHINE = &H80000002
const strKeyPath = "SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\DomainProfile\"
const strValueName = "EnableFirewall"

strComputer = "localhost"

On Error Resume Next
Set oReg=GetObject( _
    "winmgmts:{impersonationLevel=impersonate}!\\" &_
  strComputer & "\root\default:StdRegProv")
if err.number = 0 then
  oReg.GetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue
   if dwValue <> 0 then

WScript.Echo "Statistic: 0"
   else

WScript.Echo "Statistic: 1"
   end if
else

end if

------------------------------------------------------------------------------------------------------------------

this script returns localhost..but i want to need all of windows servers...

i added a windows script monitor in apm. and then used this script..but this script returned to me firewall of server installed solarwinds..i need firewall information of each other servers...

Find more posts tagged with

firewall

vbscript

Accepted answers

Yann

Hi,

You script needs to return a value when it exit to set the status of the monitor.

See the following thread for an example: wmi ping, what is wrong here.

Instead of setting manually the strComputer variable in the script with the below line:

strComputer = "localhost"

You should pass its value as an argument:

strComputer = wscript.arguments(0)

Then in the monitor parameters, add the ${IP} variable in the scripts arguments field.

HTH,

Yann

All comments

Yann

Hi,

You script needs to return a value when it exit to set the status of the monitor.

See the following thread for an example: wmi ping, what is wrong here.

Instead of setting manually the strComputer variable in the script with the below line:

strComputer = "localhost"

You should pass its value as an argument:

strComputer = wscript.arguments(0)

Then in the monitor parameters, add the ${IP} variable in the scripts arguments field.

HTH,

Yann

tdemirezen

thank you so much Yann..it worked

FormerMember

I'm having a similar problem and I have followed the steps provided in the WMI Ping link and this post. I wrote a script to restart a service and passing in the ${Nodename} into the VBScript.

Here is my script (note - I removed the login info):

[quote user=""][/quote]

Dim strComputer
Dim strCredentials, strUser, strPassword, strNamespace, strService, objService

strUser = "XXXXX"
strPassword = "XXXXX"
strNamespace = "root\cimv2"
strService = "W3SVC"
strComputer = wscript.arguments(0)

Set objNetwork = CreateObject("Wscript.Network")
Set objWbemLocator = CreateObject("WbemScripting.SWbemLocator")
Set objWMIService = objwbemLocator.ConnectServer(strComputer, strNamespace, strUser, strPassword)
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colRunningServices = objWMIService.ExecQuery("Select * from Win32_Service")

Sub RestartServices()
   Set colServiceList = objWMIService.ExecQuery("SELECT * FROM Win32_Service WHERE Name='" & strService & "'")
   For Each objService in colServiceList
       WScript.Echo "Stopping: " & objService.DisplayName
       intResult = objService.StopService()
       WScript.Sleep 1000
       intResult = objService.StartService()
   Next
   Wscript.quit(0)
End Sub

RestartServices()

In the vbscript trigger, I have:

\Admin\Orion\Scripts\RestartWebService.vbs ${NodeName}

I have an email being sent after the script and have the Nodename passed in there and it is returning the correct server. Do I have the "Wscript.quit(0)" in the wrong spot?

Yann

Hi Nocode,

I am not sure what is failing in your script, but I would have used a different method to achieve what you are looking after.

1) Monitor this service using a WMI Service Monitor component

2) Setup an alert as detailed in the administration guide that will reboot this service if it's down.

http://www.solarwinds.com/NetPerfMon/SolarWinds/wwhelp/wwhimpl/api.htm?href=ApplicationPerformanceMonitorAdministratorGuide.4.86.htm

It will perform the same steps you are trying to do in your script except that it has been tested by a QA team.

Thanks,

Yann