1. Liebe Forumsgemeinde,

    aufgrund der Bestimmungen, die sich aus der DSGVO ergeben, müssten umfangreiche Anpassungen am Forum vorgenommen werden, die sich für uns nicht wirtschaftlich abbilden lassen. Daher haben wir uns entschlossen, das Forum in seiner aktuellen Form zu archivieren und online bereit zu stellen, jedoch keine Neuanmeldungen oder neuen Kommentare mehr zuzulassen. So ist sichergestellt, dass das gesammelte Wissen nicht verloren geht, und wir die Seite dennoch DSGVO-konform zur Verfügung stellen können.
    Dies wird in den nächsten Tagen umgesetzt.

    Ich danke allen, die sich in den letzten Jahren für Hilfesuchende und auch für das Forum selbst engagiert haben. Ich bin weiterhin für euch erreichbar unter tti(bei)pcwelt.de.
    Dismiss Notice

VBS - Prob irgendwas funzt da nicht :(

Discussion in 'Programmieren' started by pjspliff, Aug 26, 2005.

Thread Status:
Not open for further replies.
  1. pjspliff

    pjspliff ROM

    Hallo alle vbs-scripter!

    Zu meinem porblem, ich hab mal ein vbs-script zum "forwarden" für die Fritz!Box enteckt, hab am script nich viel verändert und musste festellen das das script nicht funzt.
    Meine frage wär nun was am script falsch ist. Zu meiner Verteidigung muss ich sagen, ich hab keine Ahnung bezüglich vbs :aua: (höchstens mit vb6)
    Code:
    function range(from, to, protocol, client)
    {
    this.from = from;
    this.to = to;
    this.protocol = protocol;
    this.client = client;
    }
    
    var ranges = new Array(
    new range(27000, 27015, "UDP", "192.168.0.4"),
    );
    
    var theNatter = WScript.CreateObject( "HNetCfg.NATUPnP");
    var ports = theNatter.StaticPortMappingCollection;
    
    for (i = 0; i< ranges.length; i++)
    {
    for (j = ranges[i].from; j<=ranges[i].to; j++)
    {
    var ready = false;
    do {
    try {
    ports.Add(j,ranges[i].protocol,j,ranges[i].client,true,"Test");
    ready = true;
    } catch(e) {WScript.Sleep(50);}
    } while (!ready)
    
    }
    
    }
    WScript.Echo("Done!"); 
    Abgespeichert als Portranges.vbs

    Fehler beim Aufruf:
    ---------------------------
    Windows Script Host
    ---------------------------
    Skript: ...Portrange.vbs
    Zeile: 1
    Zeichen: 22
    Fehler: Bezeichner erwartet
    Code: 800A03F2
    Quelle: Kompilierungsfehler in Microsoft VBScript
    ---------------------------
    OK
    ---------------------------
    Ich hab das script nur mitn ner "GUI" verpackt:
    [​IMG]
    Das vb6-Programm hier erstellt nur die .vbs-Datei.

    Hab WinXP + SP2 (Firewall deaktiviert)
    Ich würde mich um jede erdenklich Hilfe freuen!!
     
  2. Wolfgang77

    Wolfgang77 Ganzes Gigabyte

    Hallo,

    speichere das Script einmal unter "portranges.js" statt unter "portranges.vbs" .. ich denke dann kommst du weiter.

    In einer Nachricht habe ich gelesen dass es für die FritzBox 7050 im September ein Firmware-Update geben soll, dieses soll es ermöglichen bei der Portfreigabe Portranges zu definieren.

    Wolfgang77
     
  3. pjspliff

    pjspliff ROM

    Das mit dem ändern der endung hat auch nix gebracht, bekomm fast den selben fehler:
    ---------------------------
    Windows Script Host
    ---------------------------
    Skript: C:\Eigene Dateien\VB6 Projekte\FirtzBox-Portranger\Portrange.js
    Zeile: 11
    Zeichen: 1
    Fehler: Syntaxfehler
    Code: 800A03EA
    Quelle: Kompilierungsfehler in Microsoft JScript
    ---------------------------
    OK
    ---------------------------

    PS: Ich hoffe die machen die portranges rein, aber ich denke das dauert bissle länger :(
     
  4. Wolfgang77

    Wolfgang77 Ganzes Gigabyte

    var ranges = new Array(
    new range(27000, 27015, "UDP", "192.168.0.4"));

    Da muss das Komma weg..!
     
  5. pjspliff

    pjspliff ROM

    Danke für den Tip :bet: , aber der Fehler erscheint immernoch :heul:
    *Update
    Ich habs als .js ausgeführt und es gat geklapt :bet: :bet:
    Danke dir Wolfgang77!

    PS: Aber müsste nicht eine Meldung kommen die am schluss sagt, das das script "Done" (fertig) is?
    PS2: Es erscheint nix im UPnp für meine Netzwerk-Karte :(
     
Thread Status:
Not open for further replies.

Share This Page