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
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 51084
Url: https://administrator.de/contentid/51084
Printed on: April 16, 2024 at 08:04 o'clock
4 Comments
Latest comment
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