Dim IGD
Dim UpnpPorts
Dim PortList
Dim MyIPAddress

MyIPAddress = "192.168.0.4"

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

UpnpPorts.Add 47624 ,"TCP",47624 ,MyIPAddress,TRUE,"Borderlands_7777_TCP"
UpnpPorts.Add	2300	,"UDP",	2300	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2301	,"UDP",	2301	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2302	,"UDP",	2302	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2303	,"UDP",	2303	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2304	,"UDP",	2304	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2305	,"UDP",	2305	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2306	,"UDP",	2306	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2307	,"UDP",	2307	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2308	,"UDP",	2308	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2309	,"UDP",	2309	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2310	,"UDP",	2310	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2311	,"UDP",	2311	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2312	,"UDP",	2312	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2313	,"UDP",	2313	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2314	,"UDP",	2314	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2315	,"UDP",	2315	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2316	,"UDP",	2316	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2317	,"UDP",	2317	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2318	,"UDP",	2318	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2319	,"UDP",	2319	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2320	,"UDP",	2320	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2321	,"UDP",	2321	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2322	,"UDP",	2322	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2323	,"UDP",	2323	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2324	,"UDP",	2324	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2325	,"UDP",	2325	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2326	,"UDP",	2326	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2327	,"UDP",	2327	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2328	,"UDP",	2328	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2329	,"UDP",	2329	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2330	,"UDP",	2330	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2331	,"UDP",	2331	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2332	,"UDP",	2332	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2333	,"UDP",	2333	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2334	,"UDP",	2334	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2335	,"UDP",	2335	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2336	,"UDP",	2336	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2337	,"UDP",	2337	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2338	,"UDP",	2338	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2339	,"UDP",	2339	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2340	,"UDP",	2340	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2341	,"UDP",	2341	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2342	,"UDP",	2342	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2343	,"UDP",	2343	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2344	,"UDP",	2344	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2345	,"UDP",	2345	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2346	,"UDP",	2346	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2347	,"UDP",	2347	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2348	,"UDP",	2348	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2349	,"UDP",	2349	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2350	,"UDP",	2350	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2351	,"UDP",	2351	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2352	,"UDP",	2352	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2353	,"UDP",	2353	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2354	,"UDP",	2354	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2355	,"UDP",	2355	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2356	,"UDP",	2356	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2357	,"UDP",	2357	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2358	,"UDP",	2358	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2359	,"UDP",	2359	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2360	,"UDP",	2360	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2361	,"UDP",	2361	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2362	,"UDP",	2362	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2363	,"UDP",	2363	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2364	,"UDP",	2364	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2365	,"UDP",	2365	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2366	,"UDP",	2366	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2367	,"UDP",	2367	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2368	,"UDP",	2368	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2369	,"UDP",	2369	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2370	,"UDP",	2370	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2371	,"UDP",	2371	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2372	,"UDP",	2372	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2373	,"UDP",	2373	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2374	,"UDP",	2374	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2375	,"UDP",	2375	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2376	,"UDP",	2376	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2377	,"UDP",	2377	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2378	,"UDP",	2378	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2379	,"UDP",	2379	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2380	,"UDP",	2380	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2381	,"UDP",	2381	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2382	,"UDP",	2382	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2383	,"UDP",	2383	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2384	,"UDP",	2384	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2385	,"UDP",	2385	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2386	,"UDP",	2386	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2387	,"UDP",	2387	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2388	,"UDP",	2388	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2389	,"UDP",	2389	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2390	,"UDP",	2390	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2391	,"UDP",	2391	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2392	,"UDP",	2392	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2393	,"UDP",	2393	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2394	,"UDP",	2394	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2395	,"UDP",	2395	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2396	,"UDP",	2396	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2397	,"UDP",	2397	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2398	,"UDP",	2398	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2399	,"UDP",	2399	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2400	,"UDP",	2400	,MyIPAddress,TRUE,"Borderlands_27900_UDP"

UpnpPorts.Add	2300	,"TCP",	2300	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2301	,"TCP",	2301	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2302	,"TCP",	2302	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2303	,"TCP",	2303	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2304	,"TCP",	2304	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2305	,"TCP",	2305	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2306	,"TCP",	2306	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2307	,"TCP",	2307	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2308	,"TCP",	2308	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2309	,"TCP",	2309	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2310	,"TCP",	2310	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2311	,"TCP",	2311	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2312	,"TCP",	2312	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2313	,"TCP",	2313	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2314	,"TCP",	2314	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2315	,"TCP",	2315	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2316	,"TCP",	2316	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2317	,"TCP",	2317	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2318	,"TCP",	2318	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2319	,"TCP",	2319	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2320	,"TCP",	2320	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2321	,"TCP",	2321	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2322	,"TCP",	2322	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2323	,"TCP",	2323	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2324	,"TCP",	2324	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2325	,"TCP",	2325	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2326	,"TCP",	2326	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2327	,"TCP",	2327	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2328	,"TCP",	2328	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2329	,"TCP",	2329	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2330	,"TCP",	2330	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2331	,"TCP",	2331	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2332	,"TCP",	2332	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2333	,"TCP",	2333	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2334	,"TCP",	2334	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2335	,"TCP",	2335	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2336	,"TCP",	2336	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2337	,"TCP",	2337	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2338	,"TCP",	2338	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2339	,"TCP",	2339	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2340	,"TCP",	2340	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2341	,"TCP",	2341	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2342	,"TCP",	2342	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2343	,"TCP",	2343	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2344	,"TCP",	2344	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2345	,"TCP",	2345	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2346	,"TCP",	2346	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2347	,"TCP",	2347	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2348	,"TCP",	2348	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2349	,"TCP",	2349	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2350	,"TCP",	2350	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2351	,"TCP",	2351	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2352	,"TCP",	2352	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2353	,"TCP",	2353	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2354	,"TCP",	2354	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2355	,"TCP",	2355	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2356	,"TCP",	2356	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2357	,"TCP",	2357	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2358	,"TCP",	2358	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2359	,"TCP",	2359	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2360	,"TCP",	2360	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2361	,"TCP",	2361	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2362	,"TCP",	2362	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2363	,"TCP",	2363	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2364	,"TCP",	2364	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2365	,"TCP",	2365	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2366	,"TCP",	2366	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2367	,"TCP",	2367	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2368	,"TCP",	2368	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2369	,"TCP",	2369	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2370	,"TCP",	2370	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2371	,"TCP",	2371	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2372	,"TCP",	2372	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2373	,"TCP",	2373	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2374	,"TCP",	2374	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2375	,"TCP",	2375	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2376	,"TCP",	2376	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2377	,"TCP",	2377	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2378	,"TCP",	2378	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2379	,"TCP",	2379	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2380	,"TCP",	2380	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2381	,"TCP",	2381	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2382	,"TCP",	2382	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2383	,"TCP",	2383	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2384	,"TCP",	2384	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2385	,"TCP",	2385	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2386	,"TCP",	2386	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2387	,"TCP",	2387	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2388	,"TCP",	2388	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2389	,"TCP",	2389	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2390	,"TCP",	2390	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2391	,"TCP",	2391	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2392	,"TCP",	2392	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2393	,"TCP",	2393	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2394	,"TCP",	2394	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2395	,"TCP",	2395	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2396	,"TCP",	2396	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2397	,"TCP",	2397	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2398	,"TCP",	2398	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2399	,"TCP",	2399	,MyIPAddress,TRUE,"Borderlands_27900_UDP"
UpnpPorts.Add	2400	,"TCP",	2400	,MyIPAddress,TRUE,"Borderlands_27900_UDP"



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

Set IGD = Nothing
Set UpnpPorts = Nothing

MsgBox(PortList)