Set objFirewall = CreateObject("HNetCfg.FwMgr")
Set objPolicy = objFirewall.LocalPolicy.CurrentProfile
Set objApplication = CreateObject("HNetCfg.FwAuthorizedApplication")
objApplication.Name = "Libera VNC"
objApplication.IPVersion = 2
objApplication.ProcessImageFileName = "C:\Arquivos de programas\RealVNC\VNC4\winvnc4.exe"
objApplication.RemoteAddresses = "*"
objApplication.Scope = 0
objApplication.Enabled = True
Set colApplications = objPolicy.AuthorizedApplications
colApplications.Add(objApplication)
Agora só falta saber como fazer ele rodar como "admin" pq se simplesmente colocar ele do jeito que está dá "acesso negado" ;)