Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen (A bis Z)

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, 6928 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
Webbrowser
gelöst Prüfen, ob man bei einem Onlineportal angemeldet ist (2)

Frage von joehuaba zum Thema Webbrowser ...

Visual Studio
gelöst Remotedienst prüfen mit Visual Basic (1)

Frage von flyingmichael zum Thema Visual Studio ...

Hosting & Housing
Wie Website auf Seriösität prüfen? (4)

Frage von imebro zum Thema Hosting & Housing ...

Batch & Shell
Excel Prüfen

Frage von michi-ffm zum Thema Batch & Shell ...

Neue Wissensbeiträge
Multimedia

Raspberry Pi als Digital-Signage-Computer

(1)

Information von BassFishFox zum Thema Multimedia ...

Windows Update

Novemberpatches und Nadeldrucker bereiten Kopfschmerzen

(15)

Tipp von MettGurke zum Thema Windows Update ...

Windows 10

Abhilfe für Abstürze von CDPUsersvc auf Win10 1607 und 2016 1607

(7)

Tipp von DerWoWusste zum Thema Windows 10 ...

Heiß diskutierte Inhalte
Windows Server
Kennwort vergessen bei Hyper vserver 2012r (26)

Frage von jensgebken zum Thema Windows Server ...

Router & Routing
Freigabe aus anderem Netz nicht erreichbar (21)

Frage von McLion zum Thema Router & Routing ...

Batch & Shell
Batch Programm verhalten bei shoutdown -p (19)

Frage von Michael-ITler zum Thema Batch & Shell ...

Visual Studio
Vb.net-Tool zum Erzeugen einer Outlook-E-Mail (18)

Frage von ahstax zum Thema Visual Studio ...