tilføje vpn forbindelse vha script

Hejsa...

Nu ved jeg ikke hvilken VPN software du bruger, men jeg ved at Cisco's VPN software kan indstilles således at den starter op samtidigt med din pc. Du skal dog stadig indtaste bruger og pass. Det er også sikkerhedsmæssigt langt det bedste, så alle og enhver ikke kan komme ind via din VPN tunnel...:-)

Good luck

Mr.Athlon

jeg bruger den client der er med i win2k, men jeg tror du har misforstået spørgsmålet lidt.
jeg vil lave forbindelsen, altså opsætte den, med indstillinger for hostname på serveren, kryptering osv, hvis du forstår?

Ok på den måde. Ja så havde jeg misforstået dig...:-)
Jeg véd at det kan lade sig gøre. Jeg var på et tidspunkt udstationeret i Århus, og der ved jeg de havde sådan op. Det skete på brugerniveau samt via en NAT tabel på en router. Der blev så også defineret hvilke IP-adresser/servere, brugerne måtte/kunne tilgå. Men hvordan selve scriptet så ud ved jeg dog ikke, desværre...:-)

Vh

Mr.Athlon

PS: Jeg ved ikke om du kan bruge dette til noget...

http://support.microsoft.com/default.aspx?scid=kb;en-us;265112

Vh

Mr.Athlon

altså jeg har serveren, og hvis jeg sætter client manuelt op virker det fint fint, mangler bare en scripted version af det, er træt af at sætte sådan nogle forbindelser op hvis der nu fandtes et fint script til det

Jamen det gør der da med garanti......jeg har et script liggende. Det er godt nok til og mappe printere med, men måske du kunne redigere lidt i det, og få noget brugbart ud af det?

Vh

Mr.Athlon

du må endeligt gerne sende det til mig :=)
eksperten@extremenerd.dk hvis du ikke har lyst til at poste herinde

Du kan sagtens få det her...:-)

Option Explicit


Call Main()


Function ExecuteJob(CommandList)
    Dim Fso
    Dim WshShell
    Dim TempName
    Dim TempFolder
    Dim TempBatFile1
    Dim TempBatFile2
    Dim TempOutFile
    Dim TempFile
    Dim Ret
    Dim TextBuf

    Const ForReading = 1, ForWriting = 2

    Set WshShell = CreateObject("WScript.Shell")
    TempFolder = WshShell.ExpandEnvironmentStrings("%Temp%")
    Set Fso = CreateObject("Scripting.FileSystemObject")
    If Not Fso.FolderExists(TempFolder) Then
        TempFolder = "M:\Temp"
        If Not Fso.FolderExists(TempFolder) Then
            ExecuteJob = ""
            Exit Function
        End If   
    End If

    TempName = Fso.GetTempName
    If Mid(TempName,Len(TempName)-3,1) = "." Then TempName = Left(TempName,Len(TempName)-4)
    TempBatFile1 = TempFolder & "\" & TempName & ".bat"
    TempName = Fso.GetTempName
    If Mid(TempName,Len(TempName)-3,1) = "." Then TempName = Left(TempName,Len(TempName)-4)
    TempBatFile2 = TempFolder & "\" & TempName & ".bat"
    TempName = Fso.GetTempName
    TempOutFile = TempFolder & "\" & TempName

    Set Tempfile = Fso.OpenTextFile(TempBatFile2,ForWriting,True)
    TempFile.Write(CommandList & vbCrLf)
    TempFile.Close
    Set TempFile = Nothing

    Set Tempfile = Fso.OpenTextFile(TempBatFile1,ForWriting,True)
    TempFile.Write("Command.com /c " & TempBatFile2 & " > " & TempOutFile & vbCrLf)
    TempFile.Close
    Set TempFile = Nothing

    Ret = WshShell.Run("Command.com /c " & TempBatFile1, 0, TRUE)

    Set TempFile = Fso.OpenTextFile(TempOutFile,ForReading,False)
    TextBuf = TempFile.ReadAll
    TempFile.Close
    Set TempFile = Nothing

    Fso.DeleteFile TempBatFile1
    Fso.DeleteFile TempBatFile2
    Fso.DeleteFile TempOutFile
    Set WShell = Nothing
    Set Fso = Nothing

    ExecuteJob = TextBuf
End Function

Function SplitPrinterName(sNetworkPrinter, ByRef sServerName, ByRef sPrinterName)
    Dim sName
    Dim p

    SplitPrinterName = False
    sServerName = ""
    sPrinterName = ""

    sName = sNetworkPrinter
    If Left(sName,2) <> "\\" Then Exit Function

    sName = Right(sName,Len(sName)-2)
    p = InStr(1,sName,"\")
    If (p < 1) Or (p <> InStrRev(sName,"\",-1)) Then Exit Function

    sServerName = Left(sName,p-1)
    sPrinterName = Right(sName,Len(sName)-p)
    If (Len(sServerName) = 0) Or (Len(sPrinterName) = 0) Then Exit Function

    SplitPrinterName = True
End Function


Sub Main()
    Dim oArguments
    Dim oNet
    Dim oPrinters
    Dim sNetworkPrinter
    Dim sNewServer
    'Dim sNewPrinter
    Dim sThisServer
    Dim sThisPrinter
    Dim bDeleteAll
    Dim p

    On Error Resume Next

    Set oArguments = Wscript.Arguments
    If oArguments.Count = 0 Then
        WScript.Echo "ERROR: No server defined..."
        WScript.Quit(1)
    Else
        sNewServer = oArguments.Item(0)        'parameter: new printer server
    End If
    Set oArguments = Nothing

    Err.Clear
    Set oNet = CreateObject("WScript.Network")

    Set oPrinters = oNet.EnumPrinterConnections

    bDeleteAll = False 
    For p = 0 to oPrinters.Count - 1 Step 2
        sNetworkPrinter = ""
        If Left(oPrinters.Item(p),2) = "\\" Then
            sNetworkPrinter = oPrinters.Item(p)
        ElseIf Left(oPrinters.Item(p+1),2) = "\\" Then
            sNetworkPrinter = oPrinters.Item(p+1)
        End If
    If sNetworkPrinter <> "" Then
            If SplitPrinterName(sNetworkPrinter,sThisServer,sThisPrinter) Then
                If UCase(sThisServer) <> UCase(sNewServer) Then
                    bDeleteAll = True
                    Exit For
                End If
            End If
        End If   
    Next

    If bDeleteAll Then
        ExecuteJob("Con2Prt /f")        'delete all printers
    End if

    Set oNet = Nothing
    Set oPrinters = Nothing
End Sub

Good luck

Mr.Athlon

det fik jeg ikke helt vildt meget ud af i henhold til mit spørgsmål, men har dog kunne bruge et par ting af det til mit eget script, lukker her og giver points til mr.athlon, tak for hjælpen

Takker for points. Er glad for at kunne hjælpe....den smule det nu hjalp dig:-)