Hallo,
weiß jemand wie ich per uPnP Ports auf meinem Fritz.Box öffnen kann? Im moment habe ich nur diesen Code hier:
Spoiler anzeigen
Dim $deviceFinder
Dim $DeviceType
Dim $Devices
Dim $Device
Dim $strDescDocURL
$DeviceFinder = ObjCreate( "UPnP.UPnPDeviceFinder" )
$DeviceServices = ObjCreate( "UPnP.UPnPServices" )
$DeviceService = ObjCreate( "UPnP.UPnPService" )
$Device = ObjCreate( "UPnP.UPnPDevice" )
$DeviceType = "upnp:rootdevice"
$Devices = $DeviceFinder.FindByType($DeviceType,0)
;$strDescDocURL = $DescriptionDoc.GetDocumentURL
ConsoleWrite( $strDescDocURL & @LF)
ConsoleWrite( "Found # :" & $Devices.Count & " Devices" & @LF & @LF)
;ConsoleWrite( "Services # :" & $DeviceService.Count & " Devices" & @LF & @LF)
For $DeviceObj in $Devices
ConsoleWrite("Children " & $DeviceObj.Children & @CRLF)
ConsoleWrite("Description " & $deviceObj.Description& @CRLF)
ConsoleWrite("FriendlyName " & $deviceObj.FriendlyName & @CRLF)
ConsoleWrite("HasChildren " & $deviceObj.HasChildren & @CRLF)
ConsoleWrite("IsRootDevice " & $deviceObj.IsRootDevice & @CRLF)
ConsoleWrite("ManufacturerName " & $deviceObj.ManufacturerName & @CRLF)
ConsoleWrite("ManufacturerURL " & $deviceObj.ManufacturerURL & @CRLF)
ConsoleWrite("ModelName " & $deviceObj.ModelName & @CRLF)
ConsoleWrite("ModelNumber " & $deviceObj.ModelNumber & @CRLF)
ConsoleWrite("ModelURL " & $deviceObj.ModelURL & @CRLF)
ConsoleWrite("ParentDevice " & $deviceObj.ParentDevice & @CRLF)
ConsoleWrite("PresentationURL " & $deviceObj.PresentationURL & @CRLF)
ConsoleWrite("RootDevice " & $deviceObj.RootDevice & @CRLF)
ConsoleWrite("SerialNumber " & $deviceObj.SerialNumber & @CRLF)
ConsoleWrite("Services " & $deviceObj.Services & @CRLF)
ConsoleWrite("Device URN Type " & $deviceObj.Type & @CRLF)
ConsoleWrite("UniqueDeviceName " & $deviceObj.UniqueDeviceName & @CRLF)
ConsoleWrite("Product Code - UPC " & $deviceObj.UPC & @CRLF)
ConsoleWrite(@LF)
next
