Dim UpnpPorts
Dim PortList
Dim MyIPAddress

MyIPAddress = "192.168.1.30"

Set IGD = CreateObject( "HNetCfg.NATUPnP")
Set UpnpPorts = IGD.StaticPortMappingCollection

UpnpPorts.Add 6002,"TCP",6002,MyIPAddress,TRUE,"visiobox_6002_TCP"
UpnpPorts.Add 8080,"TCP",8080,MyIPAddress,TRUE,"visiobox_8080_TCP"

PortList = UpnpPorts.Count & " ports are enabled with UPnP" & vbCrLf

For Each UpnpPort In UpnpPorts
	PortList = PortList & UpnpPort.Description & vbTab & "Router:" & UpnpPort.ExternalPort &  " >> " & _
	UpnpPort.InternalClient & ":" & UpnpPort.InternalPort & " [" & UpnpPort.Protocol & "]" & vbCrLf
Next

MsgBox(portlist)