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

Set oExec = WshShell.Exec("%windir%\\system32\\netsh.exe firewall add portopening protocol = TCP port = 2033 name = " + chr(34) + "UBS Licensing Daemon" + chr(34) + " mode = ENABLE scope = SUBNET profile = ALL")