Can someone help me to convert this .bat code into VBScript ?

[Dr. Waqas Ali]

Can someone help me to convert this .bat code into VBScript ?
`````````````````````````````````````
:: Variables
set RULE_NAME=PDF
set PROGRAM=C:\Program Files\PDF\pdf.exe
netsh advfirewall firewall add rule name="%RULE_NAME%" dir=in action=block profile=any program="%PROGRAM%"
netsh advfirewall firewall add rule name="%RULE_NAME%" dir=out action=block profile=any program="%PROGRAM%"
`````````````````````````````````````

 

[Rick998]

Just Google vbscript add firewall rule. That returned 187,000 results out there.

 

[mikrom]

you can try something like this:

RULE_NAME="PDF"
PROGRAM="C:\Program Files\PDF\pdf.exe"

cmd1="netsh advfirewall firewall add rule name=""" & RULE_NAME & """ dir=in action=block profile=any program=""" & PROGRAM & """"
cmd2="netsh advfirewall firewall add rule name=""" & RULE_NAME & """ dir=out action=block profile=any program=""" & PROGRAM & """"

Set oShell = WScript.CreateObject("WScript.Shell")

oShell.run "%comspec% /c " & cmd1
oShell.run "%comspec% /c " & cmd2

oShell = nothing