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

Computerbeschreibung mittels VBScript in AD schreiben

Mitglied: IT-Eric

IT-Eric (Level 1) - Jetzt verbinden

04.10.2006, aktualisiert 17:23 Uhr, 7850 Aufrufe, 5 Kommentare

Hallo,

ich möchte aus einer Textdatei, die wie folgt aussieht, Werte mittels VBScript in die Computerbeschreibung im AD schreiben, egal in welcher OU der PC gerade ist.

folgendes habe ich schon:

Aufbau der Textdatei:
Computernamen1, beschreibung1
Computernamen2, beschreibung2
Computernamen3, beschreibung3
Computernamen4, beschreibung4

Die "beschreibung1" soll bei "Computernamen1" eingetragen werden etc.

domain = "//DOMAINE"

Set FileSystem = WScript.CreateObject("Scripting.FileSystemObject")
set objDomain = GetObject("WinNT:" & domain)

for Each item in objDomain

if item.class="Computer" then

WScript.Echo "Computername: " & item.name
end if



next

WScript.Echo "Fertig!"
Das Auslesen aus einer Textdatei bekomme ich wahrscheinlich hin. Aber wie schreibe ich etwas in die Computerbeschreibung?


Danke für die Hilfe!

IT-Eric
Mitglied: Egbert
04.10.2006 um 15:20 Uhr
Hallo IT-Eric,

es handelt sich um den Description Feldnamen

vbs Beispiel

Set objComputer = GetObject _
("LDAP://CN=Computer,OU=SampleOU,OU=Computers,OU=MyBusiness,DC=sample,DC=lokal")

objComputer.Put "Description" , "Die Beschreibung"
objComputer.SetInfo

Deine Schleifchen kannst Du dann noch drum machen

Gruß
Egbert
Bitte warten ..
Mitglied: IT-Eric
04.10.2006 um 15:51 Uhr
Danke erstmal für die Antwort. Leider komme ich damit nicht klar. Ich möchte keinen LDAP Pfad angeben müssen, weil ich nicht genau weiss, in welcher OU der entsprechende PC stehen wird.

Geht es auch ohne die OU angeben zu müssen?

Gruß
IT-Eric
Bitte warten ..
Mitglied: Egbert
04.10.2006 um 16:18 Uhr
Hallo Eric,

dann solltest Du damit weiterkommen


Const ADS_SCOPE_SUBTREE = 2

Set objConnection = CreateObject("ADODB.Connection")
Set objCommand = CreateObject("ADODB.Command")
objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"

Set objCommand.ActiveConnection = objConnection
objCommand.CommandText = _
"Select Name, Location, operatingSystemVersion from " & _
"'LDAP://DC=sample,DC=lokal' where objectClass='computer'"

hier kannst Du auch noch nach bestimmten Attributen abfragen. z.B.
& "'LDAP://DC=fabrikam,DC=com' where objectClass='computer'"


objCommand.Properties("Page Size") = 1000
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE
Set objRecordSet = objCommand.Execute
objRecordSet.MoveFirst

Zeige das ganze auch noch an oder wechsle in dein Schleifchen

Do Until objRecordSet.EOF
Wscript.Echo "Computer Name: " & objRecordSet.Fields("Name").Value
Wscript.Echo "Location: " & objRecordSet.Fields("Location").Value
objRecordSet.MoveNext
Loop

Gruß
Egbert


Danke erstmal für die Antwort. Leider
komme ich damit nicht klar. Ich möchte
keinen LDAP Pfad angeben müssen, weil
ich nicht genau weiss, in welcher OU der
entsprechende PC stehen wird.

Geht es auch ohne die OU angeben zu
müssen?

Gruß
IT-Eric
Bitte warten ..
Mitglied: IT-Eric
04.10.2006 um 16:37 Uhr
Hallo,

das funktioniert so weit einwandfrei:
Ich kann alle Felder, die mit dem select abgerufen werden mit Echo anzeigen lassen.

Erlaube mir aber noch eine Frage:
Wenn ich anstelle von Location Description im Select angebe und den Befehl
Wscript.Echo "Description: " & objRecordSet.Fields("Description").Value ausführe, erhalte ich eine Fehlermeldung.

Was mache ich hier falsch?

Gruß
Eric
Bitte warten ..
Mitglied: IT-Eric
04.10.2006 um 17:23 Uhr
Halli hallo,

habe grade selber die Antwort entdeckt:
Der Befehl muss lauten
wscript.echo join(objRecordset.Fields("Description").Value)

Danke nochmal für die Hilfe!!!!!!


Gruß
Eric
Bitte warten ..
Ähnliche Inhalte
Batch & Shell

Computerbeschreibung im AD per Batch einfügen

gelöst Frage von Fighter-01Batch & Shell3 Kommentare

Hallo an die Experten. Ich versuche, per Batch die Beschreibung von Computerkonten im AD zu ergänzen. Das Script ist ...

Windows Server

AD-User einer AD-Gruppe auslesen und in ein File schreiben

gelöst Frage von EstefaniaWindows Server15 Kommentare

Guten Abend. Ich habe eine Frage an Experten. Suche ein einfaches Script, wo mir AD-User einer von mir ausgewählten ...

VB for Applications

VBScript und OR

gelöst Frage von InvisanVB for Applications5 Kommentare

Hi zusammen, derzeit bastel ich ein bisschen in VBScript rum. Leider habe ich mit dem OR Operator einige Probleme. ...

Microsoft Office

Outlook VBScript

gelöst Frage von NebellichtMicrosoft Office5 Kommentare

Hallo, seit ein paar Wochen werden keine VBScripte hinter den (Benutzerspezifschen) Outlook Formularen ausgeführt. Hat jemand eine Lösung parat ...

Neue Wissensbeiträge
Windows 10

Win 10 - Storage Sense - neues herstellerseitiges Cleaning-Tool statt cleanmgr

Tipp von mathu vor 2 StundenWindows 10

Vermutlich ab dem Oktoberrelease wird eine neue Speicherbereinigungssuftware ausgeliefert von Microsoft. Cleanmgr.exe soll angeblich aber noch weiter parallel verfügbar ...

E-Mail
Neueste Masche der Bad Guys: Offene Erpressung
Information von the-buccaneer vor 1 TagE-Mail14 Kommentare

"Warum den komplizierten Weg über einen Kryptotrojaner nehmen, wenn man die Leute auch direkt erpressen kann?" haben sich wohl ...

Viren und Trojaner
Neues ct-desinfect 2018 erschienen
Information von Lochkartenstanzer vor 1 TagViren und Trojaner

Moin, heise hat eine neues Sonderheft Desinfect veröffentlicht (9,90€/12,90€) . Falls jemand öfter mal Kisten "säubern" muß ist das ...

Sicherheit

Ransomware legt Fluginformationssystem des Airport Bristol lahm

Information von kgborn vor 1 TagSicherheit

Da war wohl eine Wochenend-Schicht für die Flughafen IT angesagt. Ein Ransomware-Befall bzw. ein Hackerangriff sorgte dafür, dass drei ...

Heiß diskutierte Inhalte
Firewall
Blocken illegaler Film-Streams
gelöst Frage von CoreknabeFirewall19 Kommentare

Moin Wissende, unsere kleine Hochschule möchte gern das illegale Streaming von Kinofilmen und Serien unterbinden. Wir sperren bisher alle ...

LAN, WAN, Wireless
Kombiniere mehrere 4G Router zu einem Netzwerk - Anwendung kleine LAN (10-20 Leute)
Frage von HulkTheHeroLAN, WAN, Wireless19 Kommentare

Guten Mittag liebes Administrator - Fourm, ich hoffe ich habe das richtige Thema ausgewählt - ansonsten bitte gerne verschieben ...

Windows Server
2012 R2 Server Keine Anmeldung möglich Meldung: Laut den Sicherheitsrichtlinien auf diesem PC sollen informationen zur letzten interaktiven Anmeldung angezeigt werden
Frage von Speedy18A4Windows Server18 Kommentare

Hallo, ich habe vor einigen Wochen einen zweiten Domain Controller zu meiner Domain hinzugefügt. Funktionierte alles wunderbar. Auch die ...

iOS
Virus auf iphone
Frage von jensgebkeniOS17 Kommentare

hallo gemeinschaft, habe einen virus auf meinem iphone es kommen zwei meldungsfenster 1. online-2018-software-free.win 2. wpform.com - please click ...