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, 6913 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
Windows 10
gelöst Auf Softwareupdates prüfen (4)

Frage von honeybee zum Thema Windows 10 ...

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
Heiß diskutierte Inhalte
Rechtliche Fragen
gelöst Geschäftsführer Email gefaked (18)

Frage von xbast1x zum Thema Rechtliche Fragen ...

Vmware
VMware ESX - Start einer VM verhindern (16)

Frage von emeriks zum Thema Vmware ...

Vmware
gelöst Update auf ESXI 6.5 Installieren (15)

Frage von zeroblue2005 zum Thema Vmware ...

iOS
IPhone wird ferngesteuert Hacker? (15)

Frage von Akcent zum Thema iOS ...