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, 6905 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 ..
Ähnliche Inhalte
Batch & Shell
PowerShell-Script zum Prüfen ob Datei(en) existieren (2)

Frage von Bonsai0815 zum Thema Batch & Shell ...

Batch & Shell
gelöst Windows Batch - Drag and Drop - prüfen ob Parameter leer (2)

Frage von zimbosmurf zum Thema Batch & Shell ...

Batch & Shell
Batch, CMD - Prüfen ob ein Dienst existiert, nicht läuft (4)

Frage von RycoDePsyco zum Thema Batch & Shell ...

Neue Wissensbeiträge
Windows 10

Windows 8.x oder 10 Lizenz-Key aus dem ROM auslesen mit Linux

(6)

Tipp von Lochkartenstanzer zum Thema Windows 10 ...

Tipps & Tricks

Wie Hackt man sich am besten in ein Computernetzwerk ein

(40)

Erfahrungsbericht von Herbrich19 zum Thema Tipps & Tricks ...

Heiß diskutierte Inhalte
Windows 10
gelöst Windows 10 Home "Netzlaufwerk nicht bereit" (19)

Frage von Oggy01 zum Thema Windows 10 ...

Exchange Server
gelöst RU 17 Exchange 2010 . Erfahrungen? (10)

Frage von keine-ahnung zum Thema Exchange Server ...

Datenbanken
gelöst MySQL Zeiterfassungs-Problematik (wer ist eingecheckt) (9)

Frage von NativeMode zum Thema Datenbanken ...

Windows Server
Festplatten Ruhezustand Windows Server 2016 (8)

Frage von ahaeuser zum Thema Windows Server ...