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

VBScript größer 15 Felder schreiben (Pager, Faxnummer)

Frage Entwicklung VB for Applications

Mitglied: Hubinger

Hubinger (Level 1) - Jetzt verbinden

07.02.2011 um 10:26 Uhr, 4045 Aufrufe, 3 Kommentare

Ich versuche unsere ADS aufzuräumen und möchte die erweiterten Felder überarbeiten.
Es gibt jede Menge Scripte, die immer nur innerhalb der ersten 15 Felder schreiben.
Lesen ist kein Problem, es werden derzeit 25 Felder gelesen.

Aber die 25 Felder zurückzuschreiben scheint nicht zu funktionieren,
I.d.R. ist ab dem 15 Feld immer ein Error.
Ab "PostalCode" geht die Loop in Error....

Daten werden aus CSV gelesen

Hat einer eine Idee?

Danke Joachim

' Datei Kopfzeile einlesen:
zeile1 = infos.ReadLine

' Datei Zeilenweise einlesen:
Do until infos.AtEndOfStream
' eine Zeile einlesen
zeile = infos.ReadLine
Errorcount=0
' Informationen durch Semikola splitten
details = Split(zeile, ";")

' Verbindung zu Userkonto aufnehmen und flags setzen

objCommand.CommandText = "SELECT distinguishedName FROM 'LDAP://DC=Domain,DC=com'" & "WHERE samAccountName = '" & Trim(details(0)) &"'"

Set objRecordSet = objCommand.Execute
objRecordSet.MoveFirst
strDist = "LDAP://" & objRecordSet.Fields("distinguishedName").Value
Set oUser = GetObject(strDist)
errortext= details(0)
test= details(1)

if test = "FALSCH" then

Put_Item "sn", details(2)
Put_Item "GivenName", details(3)
Put_Item "DisplayName", details(4)

'Achtung Beschreibenden Infos
outString = details(5) & ";"
outString = outString & details(6) & ";"
outString = outString & details(7) & ";"
outString = outString & details(8) & ";"
outString = outString & details(9) & ";"
outString = outString & details(10) &";"
Put_Item "Description", outString

Put_Item "physicalDeliveryOfficeName", details(12)
Put_Item "telephoneNumber", details(13)

Put_Item "StreetAddress", details(14)
'Put_Item "PostalCode", details(15)
'Put_Item "l", details(16)
'Put_Item "st", details(17)

'Put_Item "Mobil", details(18)
'Put_Item "facsimileTelephoneNumber", details(19)
'Put_Item "department", details(20)
'Put_Item "Company", details(21)
'Put_Item "pager", details(25)

If Errorcount = 1 Then
ErrorFile.WriteLine errortext
WScript.Echo "Fehler beim Einspielen"
else
oUser.setinfo
End IF
End If
Loop
Mitglied: bastla
07.02.2011 um 11:44 Uhr
Hallo Hubinger!

Hat "ein Error" vielleicht auch ein wenig erklärenden Text dabei?
Für Code bietet das Forum eine eigene Formatierungsmöglichkeit - damit wäre es dann einfacher, sich auf Deine Zeile
details = Split(zeile, ";")
zu beziehen (nämlich per Zeilennummer); nach dieser Zeile könntest du nämlich zB eine Zeile der Art
WScript.Echo details(0) & vbTab & UBound(details)
einfügen (und dann sinnvoller Weise das Script über "cscript" starten), um damit dokumentieren zu können, wie viele Felder aus der jeweiligen Zeile durch das Splitten entstanden sind (falls dort ein Wert < 15 stünde, hättst Du bereits eine Erklärung) ...

Grüße
bastla

P.S.: Viele hier (mich eingeschlossen) begrüßen es, begrüßt zu werden ...
Bitte warten ..
Mitglied: Hubinger
07.02.2011 um 15:21 Uhr
Hallo Bastler

vielen Dank für Deinen Hinweis,
Ich wollte niemanden auf die Füßetreten. Also an alle Sorry...

Ok, ich habe nach dem letzten put_item noch eine "echozeile eingefügt, die ein Errorlog weiter bedient.
Siehe da auf einmal funktioniert auch das Felderupdate mit setinfo.

Danke für denTip und weiterhin viel Spaß biem Scripten

Joachim
Bitte warten ..
Mitglied: Hubinger
07.02.2011 um 15:43 Uhr
Hallo Zusammen:

Fehler liegt hier:

Put_Item "Mobil", details(18)
es muss heißen:

Put_Item "Mobile", details(18)


Gruß
Joachim
Bitte warten ..
Ähnliche Inhalte
Basic
VBScript erweitern für Subfolder (8)

Frage von 132078 zum Thema Basic ...

Windows Tools
MMC-Aufgabe verschwindet, wenn X größer als 2 in COL(X) ist (2)

Frage von LosPollos zum Thema Windows Tools ...

Datenbanken
gelöst SQL-Abfrage und leere Felder vermeiden (12)

Frage von zwangseinweisung zum Thema Datenbanken ...

Heiß diskutierte Inhalte
Verschlüsselung & Zertifikate
gelöst Festplattenverschlüsselung im Ausland (13)

Frage von Nicolaas zum Thema Verschlüsselung & Zertifikate ...

Windows Server
gelöst Microsoft-Lizenz CALs und passendes Server-Betriebssystem (12)

Frage von planetIT2016 zum Thema Windows Server ...

Festplatten, SSD, Raid
gelöst Fehlerhafte Blöcke im RAID 10 (12)

Frage von Kojak-LE zum Thema Festplatten, SSD, Raid ...

Netzwerkgrundlagen
gelöst Cisco SG500 Series LAG hat sich von selbst umgestellt (11)

Frage von Ex0r2k16 zum Thema Netzwerkgrundlagen ...