locked
Delete tunnel port range RRS feed

  • Frage

  • Hallo zusammen,

    Testweise habe ich den FTP Port 21 mit folgenden VB Script in die Tunnel Port Ranges aufgenomme.

    ' Define the constants needed.
    Const NewRangeName = "FTP"
    Const NewRangePort = "21"
    ' Create the root object.
    Dim root  ' The FPCLib.FPC root object
    Set root = CreateObject("FPC.Root")
    'Declare the other objects needed.
    Dim isaArray     ' a Forefront TMG array object
    Dim tpRanges     ' An FPCTunnelPortRanges collection
    Dim newRange     ' An FPCTunnelPortRange object
    ' Get a reference to the array and to
    ' the collection of tunnel port ranges.
    Set isaArray = root.GetContainingArray()
    Set tpRanges = isaArray.ArrayPolicy.WebProxy.TunnelPortRanges
    ' Create a new tunnel port range.
    Set newRange = tpRanges.AddRange(NewRangeName, NewRangePort, NewRangePort)
    ' Save the changes to the collection of tunnel port ranges
    ' with fResetRequiredServices set to True to restart the Firewall service.
    tpRanges.Save True

     

    nach dem ich es ausgeführt habe war es dann auch in der Registrieung zu finden.

    Problem ist nur, das jetzt kein FTP mehr über HTTP geht :(

     

    Jetzt bräche ich mal eure Hilfe und zwar würde ich das ganze gerne wieder Löchen also brauche ich ein Script das das genze wieder Rückgäning macht.

     

    danke schon mal für euere Hilfe

    Donnerstag, 2. Dezember 2010 13:08

Antworten

  • Hallo,

    ersetze mal die Zeilen:

    WScript.Echo "Usage:" & VbCrLf _

            & "  " & WScript.ScriptName & " RangeName" & VbCrLf _

            & "" & VbCrLf _

            & "  RangeName - Name of the tunnel port range to be deleted"

    durch

    WScript.Echo "Usage:" & VbCrLf & "  " & WScript.ScriptName & " RangeName" & VbCrLf & "" & VbCrLf   & "  RangeName - Name of the tunnel port range to be deleted"

    ,so dass alles in einer Zeile steht und entferne die _ vor den &. Danach sollte es gehen.

    Gruß 

    Christian


    Christian Groebner MVP Forefront
    • Als Antwort markiert madbest Freitag, 3. Dezember 2010 12:44
    Donnerstag, 2. Dezember 2010 14:58

Alle Antworten

  • Hi,

    warum hast Du denn FTP in die Tunnelrange mit aufgenommen?`
    Um das wieder rauszubekommen:
    http://www.msisafaq.de/Tools/Redline.htm (eine Moeglichkeit)
    http://technet.microsoft.com/en-us/library/cc302450.aspx (weitere Moeglichkeit)


    regards Marc Grote aka Jens Baier - www.it-training-grote.de - www.forefront-tmg.de - www.nt-faq.de
    • Als Antwort vorgeschlagen Marc.Grote Donnerstag, 2. Dezember 2010 13:17
    Donnerstag, 2. Dezember 2010 13:16
  • Hi,

    oder das:
    http://www.isatools.org/tools/isa_tpr.js


    regards Marc Grote aka Jens Baier - www.it-training-grote.de - www.forefront-tmg.de - www.nt-faq.de
    Donnerstag, 2. Dezember 2010 13:17
  • Habe den Port genommen weil dann gehoft habe das ich mit einen FTP Client über die connect Methode FTP machen kann, leider ohne erfolg...

     

    der erste Link wäre wohl das beste gewessen leider lässt sich das anscheint nicht unter win 2008 R2 installieren :(

    Bei den andren links gehe ich davon aus das ich folgenden Teil brache:

     

    function DelRange( szName )
    {
    //WScript.Echo( 'working in DelRange().' );
    var iRtn = g_oValues.OK;

    try
    {
    g_oObjects.tpRanges.Remove( szName );
    g_oObjects.tpRanges.Save();
    WScript.Echo( g_oMessages.L_RestartSvcs_txt );
    iRtn = g_oValues.OK;
    }
    catch( err )
    {
    if( ToHex( err.number ) == g_oValues.lErrNotFound )
    {
    WScript.Echo( '\'' + szName + g_oMessages.L_TprNotFound_txt );
    }
    else
    {
    iRtn = err.number
    ShowErrors( err, g_oMessages.L_GenError_txt +
    ' deleting \'' + szName + '\'.\r\n' );
    }
    }
    return iRtn;
    }


    Jetzt stellt sich mir nur die Frage was muss ich wo genau einstzen das FTp wieder draußen ist???

    Danke für die Hilfe

    Donnerstag, 2. Dezember 2010 13:59
  • Hi,

    mit dem Script DelTPRange.vbs von http://technet.microsoft.com/en-us/library/cc302450.aspx

    muss er Aufruf über "cscript deltprange.vbs FTP" in der Eingabeaufforderung erfolgen.

    Gruß

    Christian


    Christian Groebner MVP Forefront
    Donnerstag, 2. Dezember 2010 14:06
  • Hi,

    wie im Artikel beschrieben, musst Du es mit Cscript ausfuehren


    regards Marc Grote aka Jens Baier - www.it-training-grote.de - www.forefront-tmg.de - www.nt-faq.de
    Donnerstag, 2. Dezember 2010 14:16
  • So habe den Teil in ein .txt  gespeichert danach in .vbs umbenannt.

     

    Wenn ich es ausführe kommt jetzt folgender Fehler:

     

    C:\>CScript DelTPRange.vbs FTP
    Microsoft (R) Windows Script Host, Version 5.8
    Copyright (C) Microsoft Corporation 1996-2001. Alle Rechte vorbehalten.

    C:\DelTPRange.vbs(127, 9) Kompilierungsfehler in Microsoft VBScript: Anweisung e
    rwartet

     

    Donnerstag, 2. Dezember 2010 14:48
  • Hallo,

    ersetze mal die Zeilen:

    WScript.Echo "Usage:" & VbCrLf _

            & "  " & WScript.ScriptName & " RangeName" & VbCrLf _

            & "" & VbCrLf _

            & "  RangeName - Name of the tunnel port range to be deleted"

    durch

    WScript.Echo "Usage:" & VbCrLf & "  " & WScript.ScriptName & " RangeName" & VbCrLf & "" & VbCrLf   & "  RangeName - Name of the tunnel port range to be deleted"

    ,so dass alles in einer Zeile steht und entferne die _ vor den &. Danach sollte es gehen.

    Gruß 

    Christian


    Christian Groebner MVP Forefront
    • Als Antwort markiert madbest Freitag, 3. Dezember 2010 12:44
    Donnerstag, 2. Dezember 2010 14:58
  • Hallo zusammen,

     

    danke für die Hilfe es hat funktioniert es geht wieder alles

     

    Gruß

     

    madbest

     

    --keiner ist perfekt--

    Freitag, 3. Dezember 2010 12:43