Benutzer-Werkzeuge

Webseiten-Werkzeuge


de:programmieren:codes:ermittelverbindungslaufwerk

ErmittelVerbindungslaufwerk()

Lassen Sie sich mit dieser Funktion ausgeben, welches Laufwerk zum Verbindungsaufbau mit Vemosy genutzt wird.

Parameter und Erklärungen

  • Server
    • Optional können Sie parallel prüfen lassen, ob die Maschine als „Server“ fungiert, indem Sie den Wert als booleschen Wert abfragen.

Beispiele

Wir möchten nur das Laufwerk ausgeben lassen:

Dim Laufwerk as String
Laufwerk = ErmittelVerbindungslaufwerk
MsgBox "Deine Verbindung wird über das Laufwerk " & Laufwerk & " aufgebaut.", , "Laufwerk-Information"

Wir prüfen, ob die Maschine als Server fungiert:

Dim IstMaschineServer as Boolean
If Len(ErmittelVerbindungslaufwerk(IstMaschineServer)) = 0 Then 
   MsgBox "Schade, es gibt kein Laufwerk zu Vemosy!", , "Keine Verbindung"
Else
   If IstMaschineServer = False Then
      MsgBox "Die Maschine wird nicht als Server genutzt!", , "Serverstatus"
   Else
      MsgBox "Die Maschine wird als Server genutzt!", ,"Administrationsmaschine"
   End If
End If            

Fehlermeldungen

Keine dokumentiert

de/programmieren/codes/ermittelverbindungslaufwerk.txt · Zuletzt geändert: 28.04.2017 10:49 von support