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, 4043 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 ..
Neuester Wissensbeitrag
Humor (lol)

Linkliste für Adventskalender

(3)

Information von nikoatit zum Thema Humor (lol) ...

Ähnliche Inhalte
Batch & Shell
gelöst Loginzeiten aus dem Ereignisprotokoll in Excel schreiben (1)

Frage von l-Ne0n zum Thema Batch & Shell ...

Router & Routing
Radius für 15 User direkt über Mikrotik- oder Ubiquiti-Router (4)

Frage von Muesliriegel zum Thema Router & Routing ...

Batch & Shell
gelöst Selected Gridview Value in Variable schreiben (4)

Frage von reissaus73 zum Thema Batch & Shell ...

Heiß diskutierte Inhalte
Router & Routing
gelöst Ipv4 mieten (22)

Frage von homermg zum Thema Router & Routing ...

Windows Server
DHCP Server switchen (20)

Frage von M.Marz zum Thema Windows Server ...

Exchange Server
gelöst Exchange 2010 Berechtigungen wiederherstellen (20)

Frage von semperf1delis zum Thema Exchange Server ...

Hardware
gelöst Negative Erfahrungen LAN-Karten (19)

Frage von MegaGiga zum Thema Hardware ...