UPnP Port Forwarding Final

[Ibrahim]

I Collected both (Georgy) (Ptrex) in a final Script to enable you to enhance port forwarding

So the Credit is Theirs Enjoy.

The Script is handy and Cute and Theirs ^__^

The EXE File:

http://rapidshare.com/files/122429378/Forward.rar

The Code

expandcollapse popup

#NoTrayIcon

Dim $deviceFinder
Dim $DeviceType
Dim $Devices
Dim $Device
Dim $strDescDocURL

For $x = @DesktopHeight To @DesktopHeight / 3 Step - 3
    ToolTip("Please Wait while Aquiring your Router UPnP State", @DesktopWidth / 3, $x, "Ibrahim Ghorabah UpnP Port Forwarding", 2)
Next



$deviceFinder = ObjCreate("UPnP.UPnPDeviceFinder")
$DeviceServices = ObjCreate("UPnP.UPnPServices")
$DeviceService = ObjCreate("UPnP.UPnPService")
$Device = ObjCreate("UPnP.UPnPDevice")
$DeviceType = "upnp:rootdevice"
$Devices = $deviceFinder.FindByType ($DeviceType, 0)


ConsoleWrite($strDescDocURL & @LF)
ConsoleWrite("Found # :" & $Devices.Count & " Devices" & @LF & @LF)

If $Devices.Count = 0 Then
    ToolTip("الراوتر مش مشغل الخدمه اساسا شغلها الاول وبعدين استعمل البرنامج", @DesktopWidth / 3, @DesktopHeight / 3, "Ibrahim Ghorabah UpnP Port Forwarding", 1)
    Sleep(3000)
    Exit
EndIf

;~ SplashOff()

For $DeviceObj In $Devices
    $deiceDescription = "Children " & $DeviceObj.Children & @CR & "Description " & $DeviceObj.Description & @CR & "FriendlyName " & $DeviceObj.FriendlyName & @CR & "HasChildren " & $DeviceObj.HasChildren & @CR & "IsRootDevice " & $DeviceObj.IsRootDevice & @CR & "ManufacturerName " & $DeviceObj.ManufacturerName & @CR & "ManufacturerURL " & $DeviceObj.ManufacturerURL & @CR & "ModelName " & $DeviceObj.ModelName & @CR & "ModelNumber " & $DeviceObj.ModelNumber & @CR & "ModelURL " & $DeviceObj.ModelURL & @CR & "ParentDevice " & $DeviceObj.ParentDevice & @CR & "PresentationURL " & $DeviceObj.PresentationURL & @CR & "RootDevice " & $DeviceObj.RootDevice & @CR & "SerialNumber  " & $DeviceObj.SerialNumber & @CR & "Services " & $DeviceObj.Services & @CR & "Device URN Type " & $DeviceObj.Type & @CR & "UniqueDeviceName " & $DeviceObj.UniqueDeviceName & @CR & "Product Code - UPC " & $DeviceObj.UPC & @CR
    ToolTip("Found The Following Device(s)" & @CR & $deiceDescription, @DesktopWidth / 3, @DesktopHeight / 3, "Ibrahim Ghorabah UpnP Port Forwarding", 2)
    Sleep(5000)
    ToolTip("")
Next

If $Devices.Count > 0 Then
    MsgBox(0, "Ibrahim Ghorabah UPnP Forward", "هتحط رقم البورت بتاع التورينت في البرنامج وتقوللوه اوك بس أهم حاجه " & @CR & "مايكونشي حد حاجز البورت ده لأيبي تاني")
    FileInstall("UPnPPW.exe", @WindowsDir & "\UPnPPW.exe", 1)
    Const $path = @WindowsDir & "\UPnPPW.exe"
    $port = InputBox("Type in the port you would like to forward to this pc", "PORT:")
    If @error <> 1 Then
        RunWait($path & " -remove TCP " & $port, "", @SW_HIDE)
        RunWait($path & " -add TCP " & $port & " " & $port, "", @SW_HIDE)
        RunWait($path & " -remove UDP " & $port, "", @SW_HIDE)
        RunWait($path & " -add UDP " & $port & " " & $port, "", @SW_HIDE)
        MsgBox(0, "Ibrahim Ghorabah UPnP Forward", "The port " & $port & " has been forwarded to your local ip")
    EndIf
EndIf
Exit

[ptrex]

@Ibrahim

Nice !!

Good to see you got inspired by the UPnp Thread.

regards

ptrex

[Ibrahim]

Hope it's not wrong to do so.

[GEOSoft]

Hope it's not wrong to do so.

It's never wrong to be inspired by someones posted code. That is one of the reasons people post code.

[t8inevergreen]

Ibrahim, would you happen to have the source for UPnPPW.exe? I'm interested in how it works.

[nullschritt]

Ibrahim

I know you are not on a lot, but the link is now broken, can you update it please?

Edit, for anyone wondering:

http://www.wiseorbit.com/projects/downloads/UPnPPW_Win32-b2.0a.zip

Edited September 10, 2012 by nullschritt

[Apples292]

Uh... does anyone have a copy of the .exe for that download cause the link is broken...

Thanks

Apples292

[guinness]

Well the code is there to be used, why not compile that?

[Apples292]

I thought the .exe was a different file??? In the code it mentions FileInstalling that file plus other people have commented asking for source code...

Thanks

Apples292

[BrewManNH]

http://code.google.com/p/dex/source/browse/trunk/UPnP/

Not sure if this is the same file, but it appears to be.

[Apples292]

Only just seen this, thx a lot BrewMan

Thanks

Apples292

[Exit]

http://code.google.com/p/dex/source/browse/trunk/UPnP/

Not sure if this is the same file, but it appears to be.

Unfortunately, it is a 16-bit application and not compatible to 64-bit systems.

[BrewManNH]

Well, the script IS almost 5 years old.

[Exit]

so I found a simple solution:

$port = InputBox("Portnumber to forward to this pc", "Port:")
$UPNP = ObjCreate("HNetCfg.NATUPnP")
$UPNP.StaticPortMappingCollection.Add($port, "TCP", $port, @IPAddress1, False, "")
$UPNP.StaticPortMappingCollection.Add($port, "UDP", $port, @IPAddress1, False, "")

[nullschritt]

so I found a simple solution:

$port = InputBox("Portnumber to forward to this pc", "Port:")
$UPNP = ObjCreate("HNetCfg.NATUPnP")
$UPNP.StaticPortMappingCollection.Add($port, "TCP", $port, @IPAddress1, False, "")
$UPNP.StaticPortMappingCollection.Add($port, "UDP", $port, @IPAddress1, False, "")

Tried this, didn't seem to do anything, :/ thanks for the effort though.

[LWC]

In most examples, the adding process is set to "true" and not to "false".
Plus not all routers support UPnP through Windows's COM objects.
So if anything, it should be like this:

$port = InputBox("Portnumber to forward to this pc", "Port:")
$oRouter = ObjCreate("HNetCfg.NATUPnP")
$oPortList = $oRouter.StaticPortMappingCollection
if isobj($oportlist) Then
    $oPortList.Add($port, "TCP", $port, @IPAddress1, True, "")
    $oPortList.Add($port, "UDP", $port, @IPAddress1, True, "")
Else
    MsgBox(16, "Error", "Could not create a UPnP object")
endif

Which brings us to the real final question: does anyone have a solution to the "else" cases?
In other words, does anyone have a code to enable ports in such routers using SOAP (without using external third parties)?
This may help.

Edited November 28, 2014 by LWC