Remotely check Windows firewall status

As part of my routine auditing process I wanted to check to ensure that the Windows firewall is enabled and set to use its domain profile on all of our Member servers.
Here’s a script to do just that
‘ Configuration.
‘ ====================================================================
Dim strFirewallStatus, strComputer, arrComputers
arrComputers = Split(”london,brisbane,perth,chicago”, “,”)

WScript.Echo “——————————————————-”
WScript.Echo Left(”Computer Name” & Space(47),47) & “Status”
WScript.Echo “——————————————————-”

‘ Iterate [...]