Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

Prüfen auf Klein- und Großschreibung

Frage Entwicklung VB for Applications

Mitglied: skid

skid (Level 1) - Jetzt verbinden

08.02.2007, aktualisiert 11:59 Uhr, 6879 Aufrufe, 4 Kommentare

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.

01.
zeile5 = objUser.TerminalServicesProfilePath
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.

01.
Pos4 = InStr(zeile5, "\U")
Da ich aber nur den Teil \\Server\Freigabe brauche....

01.
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
Mitglied: miniversum
08.02.2007 um 08:24 Uhr
Entweder du suchst nur nach
Pos4 = InStr(zeile5, "\")

Oder halt in zwei Schritten:
Pos4 = InStr(zeile5, "\U")
if Pos4 = 0 then Pos4 = InStr(zeile5, "\u")

miniversum
Bitte warten ..
Mitglied: Desperado
08.02.2007 um 08:28 Uhr
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")
Bitte warten ..
Mitglied: skid
08.02.2007 um 10:43 Uhr
Hi,

Super, es klappt jetzt.

Habe es gemacht mit
01.
if Pos4 = 0 then Pos4 = InStr(zeile5, "\u")
Nach
01.
Pos4 = InStr(zeile5, "\")
kann ich nicht Abfragen da es in dem ganzen String ja mehrere
01.
"\"
vorkommen.

Dank Euch!!

Gruß
SKID
Bitte warten ..
Mitglied: miniversum
08.02.2007 um 11:59 Uhr
Stimmt war mein Fehler.
Mit
Pos4 = len(zeile5) - InstrRev(zeile5, "\")
gehts aber.

miniversum
Bitte warten ..
Neuester Wissensbeitrag
Ähnliche Inhalte
Batch & Shell
gelöst In Batch auf Erstelldatum einer Datei prüfen (5)

Frage von AS-N00 zum Thema Batch & Shell ...

VB for Applications
gelöst Per Vbscript bestimmte Zeile ungeachtet der Nummerierung prüfen (7)

Frage von aletri zum Thema VB for Applications ...

Heiß diskutierte Inhalte
Switche und Hubs
LAG zwischen Cisco SG300 und Dlink DGS1100 herstellen - wie? (18)

Frage von White-Rabbit2 zum Thema Switche und Hubs ...

Linux
gelöst Boot failed: not a bootable disk (10)

Frage von Fleckmen zum Thema Linux ...

Multimedia & Zubehör
gelöst Iphone 6 prob (8)

Frage von jensgebken zum Thema Multimedia & Zubehör ...

Windows 7
gelöst Windows 7 Umzug zum neuen PC (SATA-Problem) (7)

Frage von MaxMoritz6 zum Thema Windows 7 ...