4
Prüfen auf Klein- und Großschreibung
Hallo,
habe ein kleines VB6 Problem und komme einfach nicht weiter.
Ich lese im Skript die Usereigenschaften im AD aus - und da speziell den TerminalServerProfilPfad.
Somit steht in zeile5 der gesamte Pfad \\Server\Freigabe\Username
Innerhalb des Pfades suche ich nach dem Anfang des Username der mit einem Großbuchstaben anfängt.
Da ich aber nur den Teil \\Server\Freigabe brauche....
So geht es dann weiter mit der ganzen Verarbeitung - klappt auch ganz gut.
Das Problem ist nur, wenn im AD in den Usereigenschaften der Username mit einem kleinen Buchstaben anfängt.
Dann bricht das Skript ab und macht nix mehr.
Wie bekomme ich es hin daß das Skript durchläuft egal ob der Username nun mit einem kleinen oder großen Buchstaben anfängt ??
Vielleicht hat ja jemand eine gute Idee
Gruß
SKID
habe ein kleines VB6 Problem und komme einfach nicht weiter.
Ich lese im Skript die Usereigenschaften im AD aus - und da speziell den TerminalServerProfilPfad.
zeile5 = objUser.TerminalServicesProfilePathSomit steht in zeile5 der gesamte Pfad \\Server\Freigabe\Username
Innerhalb des Pfades suche ich nach dem Anfang des Username der mit einem Großbuchstaben anfängt.
Pos4 = InStr(zeile5, "\U") Da ich aber nur den Teil \\Server\Freigabe brauche....
strTSProfilePath = Left(zeile5, Pos4)So geht es dann weiter mit der ganzen Verarbeitung - klappt auch ganz gut.
Das Problem ist nur, wenn im AD in den Usereigenschaften der Username mit einem kleinen Buchstaben anfängt.
Dann bricht das Skript ab und macht nix mehr.
Wie bekomme ich es hin daß das Skript durchläuft egal ob der Username nun mit einem kleinen oder großen Buchstaben anfängt ??
Vielleicht hat ja jemand eine gute Idee
Gruß
SKID
Auf Facebook teilen
Auf Twitter teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 51084
Url: https://administrator.de/contentid/51084
Ausgedruckt am: 23.11.2024 um 01:11 Uhr
4 Kommentare
Neuester Kommentar
Entweder du suchst nur nach
Oder halt in zwei Schritten:
miniversum
Pos4 = InStr(zeile5, "\")
Oder halt in zwei Schritten:
Pos4 = InStr(zeile5, "\U")
if Pos4 = 0 then Pos4 = InStr(zeile5, "\u")
if Pos4 = 0 then Pos4 = InStr(zeile5, "\u")
miniversum
hi, ich würde bei instr immer die strings mit ucase oder lcase vergleichen, dann kannst du von einer klein- bzw. großschreibweise sichergehen
Pos4 = InStr(lcase(zeile5), "\u")
Pos4 = InStr(lcase(zeile5), "\u")
Hi,
Super, es klappt jetzt.
Habe es gemacht mit
Nach kann ich nicht Abfragen da es in dem ganzen String ja mehrere vorkommen.
Dank Euch!!
Gruß
SKID
Super, es klappt jetzt.
Habe es gemacht mit
if Pos4 = 0 then Pos4 = InStr(zeile5, "\u") Nach
Pos4 = InStr(zeile5, "\") "\" Dank Euch!!
Gruß
SKID
Stimmt war mein Fehler.
Mit
miniversum
Mit
Pos4 = len(zeile5) - InstrRev(zeile5, "\")
gehts aber.miniversum
