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

Ad Objekt per VBScript aufrufen

Mitglied: Piperrage

Piperrage (Level 1) - Jetzt verbinden

21.12.2006, aktualisiert 28.12.2006, 6796 Aufrufe, 11 Kommentare

Hallo wie kann ich die Eigenschaften eines Computer Objekts in der AD direkt per VBscript aufrufen
siehe Bild

http://img184.imageshack.us/img184/6687/objektig1.jpg
Mitglied: LordAsriel
21.12.2006 um 08:39 Uhr
Bild???
Bitte warten ..
Mitglied: Piperrage
21.12.2006 um 09:10 Uhr
sorry jetzt isses da
Bitte warten ..
Mitglied: gemini
21.12.2006 um 21:08 Uhr
sorry jetzt isses da
Bisschen kleiner wär nicht schlecht

Zwei kleine Scripten, evtl. ist was fdür dich dabei.
Quelle für beide: The System Administration Scripting Guide, part of the Windows .NET Server Resource Kit

Enumerate Computer Accounts in Active Directory
Description
Returns the name and location for all the computer accounts in Active Directory.

Script Code

01.
Const ADS_SCOPE_SUBTREE = 2
02.
Set objConnection = CreateObject("ADODB.Connection")
03.
Set objCommand =   CreateObject("ADODB.Command")
04.
objConnection.Provider = "ADsDSOObject"
05.
objConnection.Open "Active Directory Provider"
06.
Set objCOmmand.ActiveConnection = objConnection
07.
objCommand.CommandText = _
08.
   "Select Name, Location from 'LDAP://DC=fabrikam,DC=com' " _
09.
        & "where objectClass='computer'"  
10.
objCommand.Properties("Page Size") = 1000
11.
objCommand.Properties("Timeout") = 30 
12.
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE 
13.
objCommand.Properties("Cache Results") = False 
14.
Set objRecordSet = objCommand.Execute
15.
objRecordSet.MoveFirst
16.
Do Until objRecordSet.EOF
17.
    Wscript.Echo "Computer Name: " & objRecordSet.Fields("Name").Value
18.
    Wscript.Echo "Location: " & objRecordSet.Fields("Location").Value
19.
    objRecordSet.MoveNext
20.
Loop


Enumerate Computer Account Attributes

Description
Demonstration script that retrieves the location and description attributes for a computer account in Active Directory.

Script Code

01.
On Error Resume Next
02.

03.
Const E_ADS_PROPERTY_NOT_FOUND = &h8000500D
04.

05.
strComputer = "atl-dc-01"
06.
Set objComputer = GetObject("LDAP://CN=" & strComputer & _
07.
                            ",CN=Computers,DC=fabrikam,DC=com")
08.

09.
strLocation = objComputer.Get("location")
10.
If Err.Number = E_ADS_PROPERTY_NOT_FOUND Then
11.
    WScript.Echo "The location has not been set for this computer."
12.
    Err.Clear
13.
Else  
14.
    WScript.Echo "Location: " & strLocation
15.
End If
16.

17.
strDescription = objComputer.Get("description")
18.
If Err.Number = E_ADS_PROPERTY_NOT_FOUND Then
19.
    WScript.Echo "The description has not been set for this computer."
20.
    Err.Clear
21.
Else  
22.
    WScript.Echo "Description: " & strDescription
23.
End If
Bitte warten ..
Mitglied: Biber
21.12.2006 um 21:47 Uhr
Moin gemini,

fehlt bei dem ersten Schnipsel das "On Error Resume Next" am Anfang, weil die Wahrscheinlichkeit, auf Computer ohne location oder description zu stoßen,
beim Abgrasen einer ganzen Domäne geringer ist als beim gezielten Abfragen eines einzelnen Rechners wie in Example 2?

Ich werde diese Redmonder Logik nie begreifen...*kopfschüttel*

Aber so hab ich wenigstens Gelegenheit, Dir einen schönen Urlaub zu wünschen!
Und grüß die südliche Halbkugel von mir.

Liebe Grüße
Biber
Bitte warten ..
Mitglied: gemini
21.12.2006 um 22:39 Uhr
fehlt bei dem ersten Schnipsel das "On Error Resume Next" am Anfang, weil die
Ne, Biber, ist 1:1 aus der MS Quelle kopiert.

Aber so hab ich wenigstens Gelegenheit, Dir einen schönen Urlaub zu wünschen!
Und grüß die südliche Halbkugel von mir.
Urlaub?!? Schön wärs, aber dieses Jahr nicht mehr; mein Chef meinte 3x ist genug, ich solle mich doch wieder mal um die Rechner kümmern
Im Juni gehts jedenfalls wieder nach S'pore *freu*

Wünsch dir schöne Weihnachten und nen guten Rutsch.

Liebe Grüße
gemini
Bitte warten ..
Mitglied: Piperrage
22.12.2006 um 07:48 Uhr
erstmal danke für euere Antworten aber ich möchte per Script direkt dieses Eigenschaften Fenster aufrufen
Bitte warten ..
Mitglied: gemini
22.12.2006 um 09:22 Uhr
erstmal danke für euere Antworten aber ich möchte per Script direkt dieses Eigenschaften Fenster aufrufen
Möchtest du nun per Script dieses Fenster anzeigen oder die darin enthaltenen Informationen?

Wenn Zweites:
01.
On Error Resume Next
02.

03.
Const E_ADS_PROPERTY_NOT_FOUND = &h8000500D
04.

05.
strComputer = "atl-dc-01"
06.
strMsg "Infos für " & strComputer & vbCrLf
07.

08.
Set objComputer = GetObject("LDAP://CN=" & strComputer & _
09.
                            ",CN=Computers,DC=fabrikam,DC=com")
10.

11.
strName = objComputer.Get("name")
12.
    strMsg = strMSg & "Name:" & vbTab & strName & vbCrLf
13.

14.
strLocation = objComputer.Get("location")
15.
If Err.Number = E_ADS_PROPERTY_NOT_FOUND Then
16.
    strMsg = strMSg & "Location:" & vbTab & "This Information has not been set for this computer." & vbCrLf
17.
    Err.Clear
18.
Else  
19.
    strMsg = strMSg & "Location:" & vbTab & strLocation & vbCrLf
20.
End If
21.

22.
strDescription = objComputer.Get("description")
23.
If Err.Number = E_ADS_PROPERTY_NOT_FOUND Then
24.
    strMsg = strMSg & "Description:" & vbTab & "This Information has not been set for this computer."
25.
    Err.Clear
26.
Else  
27.
    strMsg = strMSg & "Description:" & vbTab & strDescription
28.
End If
29.
MsgBox strMsg
Bitte warten ..
Mitglied: Piperrage
22.12.2006 um 09:44 Uhr
JA ich möchte genau dieses Fenster haben wenn sowas moglich ist da ich ein tool gebaut hab um die Workstations zu administrieren.
Bitte warten ..
Mitglied: Biber
22.12.2006 um 12:22 Uhr
Moin Piperrage,
nur um ganz sicherzugehen,
Du hast Dir ein eigenes Administrationstool programmiert und möchtest aber aus diesem Tool heraus diesen M$-Wizard aufrufen,
aber so, dass er gleich auf die Eigenschaftenseite eines bestimmeten Client-Rechners springt?!?

Oder hab ich den Plan jetzt ganz falsch verstanden?

Etwas verwirrt
Biber
Bitte warten ..
Mitglied: Piperrage
22.12.2006 um 13:12 Uhr
genau so solls werden
Bitte warten ..
Mitglied: Piperrage
28.12.2006 um 14:50 Uhr
keiner ne Ahnung wie ich das hinbekommen könnte
Bitte warten ..
Ähnliche Inhalte
Visual Studio
VB.Net - Datagridview Objekt Update
gelöst Frage von PatrickB90Visual Studio1 Kommentar

Guten Morgen zusammen, als neu Einsteiger im Bereich VB.Net steh ich grade vor einem Problem. In einer Form wurde ...

Windows 10

RuntimeError429ActiveXCompomentcan not create Objekt

Frage von Fitzel69Windows 102 Kommentare

Hallo zusammen Anbei folgende Information Ich habe ein Laptop mit Windows 10 64 bit neu installiert. Office 2016 + ...

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 ...

Visual Studio

Singletone Objekt in Datei speichern

gelöst Frage von it4baerVisual Studio12 Kommentare

Hallo, ist es möglich ein Singleton-Objekt zu "serialisieren" und dann in eine Datei zu speichern um es später wieder ...

Neue Wissensbeiträge
Humor (lol)
Und wie seid Ihr gegen Cyberattacken gewappnet?
Information von DerWoWusste vor 1 TagHumor (lol)5 Kommentare

aber wo ist der Hammer? :-)

Sicherheit
Ein weiterer Microsoft-Stirnklatscher
Information von DerWoWusste vor 2 TagenSicherheit7 Kommentare

Habe gerade einen Artikel zu einem Sicherheitsproblem gefunden, welches mir zu seiner Zeit (gepatcht 2015) wohl durchgerutscht ist. Es ...

Windows 10
Upgradepfade Windows 10 LTSC
Erfahrungsbericht von Datenreise vor 2 TagenWindows 10

Nur eine kurze Info, für diejenigen, die es interessiert, da es hierzu im Netz aus nachvollziehbaren Gründen nicht allzu ...

Administrator.de Feedback
Wartungsarbeiten heute Nacht (Update)
Information von Frank vor 2 TagenAdministrator.de Feedback10 Kommentare

Hallo User, durch Umbauarbeiten in unserem Rechenzentrum (am Backbone) kann es heute Nacht (14-15.01.2019) zu kurzen Ausfällen unserer Seite ...

Heiß diskutierte Inhalte
Microsoft
SFirm 4.0 auf Terminalserver startet für jeden angemeldeten Benutzer diverse Dienste
Frage von Frank84Microsoft25 Kommentare

Hallo zusammen, wir verwenden Sfirm 4.0 auf einem Terminalserver (der SQL Server ist auf einem separaten Server), das Problem ...

Windows 10
Windows 10 - kein Boot mehr nach Domänenaustritt
gelöst Frage von Ghost108Windows 1025 Kommentare

Hallo zusammen, habe hier eine Windows 10 Maschine, die ich gerne aus der Domäne austreten lassen möchte. Nach Austritt ...

Windows 10
VM wächst schnell von 14 auf 35 GB an - warum?
Frage von degudejungWindows 1018 Kommentare

Hallo, ich bin ein Freund schlanker VMs und setze daher gerne mit dem Erscheinen einer neuen Win10 Version - ...

Internet
Google-Suchergebnisse, Schnelleinblendung, woher kommt der Inhalt?
gelöst Frage von departure69Internet17 Kommentare

Hallo. Ich bin der Systembetreuer einer kleinen Gemeinde in Süddeutschland. Wir betreiben auch eine Leihbücherei. Eine Kundin hat letzten ...