.vbs to disable firewall based on OS

Question

I need to determine OS and disable firewall accordingly.  Windows xp works, however HNetCFg.FwMgr  does not work on Vista or 7 - oh and GPO is not an option - any help much appreciated.  (ignore msgbox as i was simply testing)
Set objWshShell = WScript.CreateObject("WScript.Shell")
strOSVersion = objWshShell.RegRead("HKLM\Software\Microsoft\Windows NT\CurrentVersion\CurrentVersion")
If strOSVersion = "5.1" Then
    Debug.WriteLine("Windows XP")
    Set objFirewall = CreateObject("HNetCfg.FwMgr")
 Set objPolicy = objFirewall.LocalPolicy.CurrentProfile
 objPolicy.FirewallEnabled = FALSE
ElseIf strOSVersion = "6.0" Then
    Debug.WriteLine("Windows Vista")
    Msgbox ("Hi Iam Tiger Woods")
ElseIf strOSVersion = "6.1" Then
    Debug.WriteLine("Windows 7")
    Msgbox ("Hi I am Tiger Woods")
End If

Answer 1

Hi,
You can try shelling out using netsh. I haven't tested this but i'd imagine something like this should do the trick:
Option Explicit
Dim wshShell, policy, firewall, version, command
On Error Resume Next
Set wshShell = WScript.CreateObject("WScript.Shell")
version = wshShell.RegRead("HKLM\Software\Microsoft\Windows NT\CurrentVersion\CurrentVersion")
commmand = "Netsh advfirewall set domainprofile state off"
Select Case version
Case "5.1"
Set firewall = CreateObject("HNetCfg.FwMgr")
Set policy = firewall.LocalPolicy.CurrentProfile
policy.FirewallEnabled = False
Case "6.0"
MsgBox "Upgrade Your Operating System to Windows 7", vbCritical
Case "6.1"
wshShell.Run command, 0, False
Case Else
WScript.Quit
End Select
On Error Goto 0
Assuming you'll be running the script from an elevated command prompt?
Cheers Matt :)