Dim WshShell, oExec
Set WshShell = CreateObject("WScript.Shell")

Set oExec = WshShell.Exec("%windir%\\system32\\netsh.exe firewall delete portopening tcp 2033")