Vbscript sucht rdp und verbindet!

Hallo leute!

Da dieses Script schon des öfteren gesucht wurde, und dieses thema noch NIE beendet wurde... poste ich hier mal mein fertiges script.
hat zwar ein wenig gedauert bis ich selber hatte, aber ich bin sehr zufrieden.

Erklärung:

Ihr habt mehrere RemoteDesktop verbindungen , und wisst nie welche für was gut ist, in diesen script
könnt ihr definieren welche funktion du willst, und auf welcher RDP du es findest.

Anhand einer MsgBox gibst du ein was du möchtest, und dann sucht das script deine vordefinierte
rdp und verbindet.

Ihr könnt es auch umändern je nachdem was ihr suchen und öffnen wollt.

Option Explicit
Const OrdnerPfad = "C:\RDP\"                            ' Dieser Ordner soll duchsucht werden       
Const Endung = ".RDP"                                   ' Nach dieser Endung soll gesuchtwerden  

Dim fso                                                 ' FileSystemObject  
Dim fo                                                  ' Ordner (Folder)  
Dim fi                                                  ' Datei (File)  
Dim Eingabe												' Eingabe (Server/Client-Name)  
 
'Eingabefeld für den Nutzer  

Eingabe = Inputbox("Server/Client-Name")  

Select Case Eingabe

  Case "BEZEICHUNG", "BEZEICHUNG", "BEZEICHUNG", "BEZEICHUNG", "BEZEICHUNG", "BEZEICHUNG", "BEZEICHUNG", "BEZEICHUNG"  
    Eingabe = "Srv01"  

  Case "BEZEICHUNG", "BEZEICHUNG", "BEZEICHUNG", "BEZEICHUNG", "BEZEICHUNG", "BEZEICHUNG", "BEZEICHUNG", "BEZEICHUNG"  
    Eingabe = "Srv02"  

  Case "BEZEICHUNG", "BEZEICHUNG", "BEZEICHUNG", "BEZEICHUNG"  
    Eingabe = "Srv03"  
  
  Case "BEZEICHUNG", "BEZEICHUNG"  
    Eingabe = "Srv04"  

  Case "BEZEICHUNG", "BEZEICHUNG", "BEZEICHUNG", "BEZEICHUNG"  
    Eingabe = "Srv05"  

  Case "BEZEICHUNG", "BEZEICHUNG", "BEZEICHUNG", "BEZEICHUNG"   
    Eingabe = "Srv06"  

End Select

Set fso = CreateObject("Scripting.FileSystemObject")  

If fso.FolderExists(OrdnerPfad) Then

    Set fo = fso.GetFolder(OrdnerPfad)

    For Each fi In fo.Files

        If Right(UCase(fi.Name), 4) = Endung Then        ' Auf gewünschte Dateiendung testen  

           If Left(UCase(fi.Name),Len(fi.Name)-4) = UCase(Eingabe) Then

             MsgBox "Server gefunden: " & fi.Name        ' Gefundene Datei verarbeiten  

             Dim WhsShell

             Set WhsShell = WScript.CreateObject("WScript.Shell")  

             WhsShell.Run "%systemroot%\system32\mstsc.exe" & " """ & OrdnerPfad & fi.Name & """", 1, True  ' Programm aufrufen und warten  

             Set WhsShell = Nothing

          End If

        End If

    Next        

End If

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 109256

Url: https://administrator.de/contentid/109256

Ausgedruckt am: 24.11.2024 um 21:11 Uhr

6 Kommentare

Neuester Kommentar

wäre es nicht cool, wenn man das nicht als eingabefeld hätte, sondern so ne art dropdown- fenster oder auswahlliste ... leider kenn ich mich da gar nicht aus....

hmm mir wäre das nicht bekannt als dropdown fenster , zumindest nicht als vbs... finde es aber mit der eingabe praktischer, da ich z.B. viele parameter habe, da bin ich mit der einzelnen angabe viel schneller als irgendwas im dropdown zu machen ;)

Naja aber nehmen wir mal an, du hast 20 verschiedene Connections, bei mir sind die verschiedenen Server zB bezeichnet mit SRV-AD, SRV-APP, SRV-SQL usw usw.... wenn man nun ein Auswahlfenster hätte, dann könnte sich auch jemand verbinden, der nicht genau weiß, wie die VErbindung genau heißt... und Tippfehler sind auch vergangenheit

ich meine ich habe dieses script geschrieben , weil ich nicht immer weis welche virtuelle rechner auf welchen server ist... sprich ich habe 10 SERVER und jeweils auf einen server sind mind. 4 virtuelle...

wenn mich jemand anruft... und sagt er bekommt keine verbindung auf seinen virtuellen rechner.. kommt mein script ins spiel.. entweder er sagt mir den virtuellen computer namen, anhand dem ich dann diesen eingebe.. z.B. ws056, enter... dann sucht mir das script, aha wo hat der den ws056 zugeteilt, aha srv06.. verbinden....

wenn ich das nicht weis.. frage ich nach seinen log in namen... aha der is frm.. ich gebe ein.. ich habe vorher wieder frm an srv06 zugeteilt.. also geht er dorthin...

ich weis nicht was du noch mehr machen willst? ich bin ja kein programme schreiber ;) dieses script kommt auf die verwendbarkeit an, ich weis nicht was du willst, aber meinen zweck erfüllt es 10000000000000000mal..

ich will kein script das für mich denkt weil ich keine ahnung davon habe was ich mache, ich wollte ein script das mir hilft.

außerdem so wie du das willst bringts dir auch ned viel, speichere doch deine RDP´s ALLE in einen ordner.. dann hast du auch alle da...

ja, ich meinte ja auch nur, dass man das könnte

Die Dropdown Liste kannst du auch ganz einfach haben. Indem du dir in der Taskleiste einfach den Ordner Mountest. Dann erscheint dir das Ganze als Drop Down Menü.