Top-Themen

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

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, 4065 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
Batch & Shell
Daten aus dem Feld "date sent" in den Titel schreiben
Frage von ellocko94Batch & Shell2 Kommentare

Hallo zusammen, ich habe folgendes Problem: Ich habe eine große Sammlung von .EML Dateien, die nicht aussagekräftig benannt sind. ...

Windows Server
Faxnummern in Outlook - eigenartiges Verhalten
gelöst Frage von keine-ahnungWindows Server10 Kommentare

Moin, eigentlich wollte ich heute mal mit den Mädels schimpfen, weil die die ausgehenden Faxe manuell mit der Faxnummer ...

Batch & Shell
Größe einer Datei per BATCH in eine TXT schreiben
gelöst Frage von marvinplBatch & Shell5 Kommentare

Hallo erstmal und danke, dass du meine Frage geöffnet hast. Ich möchte auf Servern von uns und unseren Kunden ...

Exchange Server
Weitere Faxnummer durch gespeicherten Kontakt des Offlineadressbuches
Frage von ThomasLatingExchange Server

Hallo liebe Gemeinde, Ich habe das Problem das die Faxnummer in das Kontaktfeld von Outlook weiteres Fax gespeichert wird ...

Neue Wissensbeiträge
Microsoft Office

Office 2010 Starter erneut auf einer frischen Windows-Version installieren

Tipp von Lochkartenstanzer vor 1 TagMicrosoft Office9 Kommentare

Moin, vor ein paar Tagen schlug bei mir ein Kunde auf, der sein Widnows 7 geschrottet und es inklusive ...

Datenbanken

Upgrade MongoDB 3.4 auf 3.6

Erfahrungsbericht von Frank vor 1 TagDatenbanken

Seit kurzem gibt es das 3.6 Update für die MongoDB: Sicherheit, das Sortieren, Aggregation und auch die Performance wurde ...

SAN, NAS, DAS

Backdoor Zugang und Upload-Bug in vielen Western Digital MyCloud Geräten

Information von Frank vor 1 TagSAN, NAS, DAS2 Kommentare

James Bercegay von der Firma Gulftech hat die Fehler an Western Digital gemeldet und das Unternehmen stellt bereits ein ...

Microsoft Office

Outlook 2016 - Beim Weiterleiten keine PDF Anhänge mehr - KB4011626 entfernen

Erfahrungsbericht von Deepsys vor 1 TagMicrosoft Office3 Kommentare

Wenn ihr feststellt das ihr beim Weiterleiten von E-Mails keine PDF Anhänge mehr versendent, dann dankt Microsoft. Diese tolle ...

Heiß diskutierte Inhalte
Netzwerke
NTFS-Berechtigung
Frage von Daoudi1973Netzwerke23 Kommentare

Hallo zusammen und frohes neues Jahr (Sorry, ich bin spät dran) Meine Frage: 1- Ich habe einen Ordner im ...

iOS
Einladung vom iphone kalender
Frage von jensgebkeniOS15 Kommentare

Hallo Gemeinschaft, folgendes Problem - immer wenn ich von meinem Iphone einen Termin einztrage und diesem Termin Teilnehmer zuweise, ...

Windows Netzwerk
Drucker isolieren in Windows Domäne
gelöst Frage von lcer00Windows Netzwerk14 Kommentare

Hallo zusammen, habe eine Windows-AD (2012R2) in der es einen Druckerserver gibt. Mittlerweile verliere ich das Vertrauen in die ...

Drucker und Scanner
Gesucht DIN A3 Drucker
Frage von NebellichtDrucker und Scanner14 Kommentare

Hallo, ich möchte einen neuen DIN A3 Drucker kaufen. Um ab und zu, ca. 1 mal die Woche Farbausdrucke ...