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, 6892 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
gelöst Powershell Anmeldung auf Servern prüfen (3)

Frage von DukeofNet zum Thema Batch & Shell ...

VB for Applications
VBA Grenzwerte in String prüfen Regex ??? Excel2010 (3)

Frage von Chillministrator zum Thema VB for Applications ...

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

Frage von imebro zum Thema Hosting & Housing ...

Neue Wissensbeiträge
Google Android

Cyanogenmod alternative Downloadquelle

(2)

Tipp von Lochkartenstanzer zum Thema Google Android ...

Batch & Shell

Batch als Dienst bei Systemstart ohne Anmeldung ausführen

(5)

Tipp von tralveller zum Thema Batch & Shell ...

Sicherheits-Tools

Sicherheitstest von Passwörtern für ganze DB-Tabellen

(1)

Tipp von gdconsult zum Thema Sicherheits-Tools ...

Heiß diskutierte Inhalte
Windows 7
gelöst Lokales Adminprofil defekt (25)

Frage von Yannosch zum Thema Windows 7 ...

LAN, WAN, Wireless
gelöst Statische Routen mit ISC-DHCP Server für Android Devices (22)

Frage von terminator zum Thema LAN, WAN, Wireless ...

Server
gelöst Wie erkennen, dass nur deutsche IPs Zugang zu einer Website haben? (22)

Frage von Coreknabe zum Thema Server ...

Exchange Server
gelöst Migration Exchange 2007 zu 2013 - Public Folder teilweise weg (16)

Frage von Andy1987 zum Thema Exchange Server ...