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

Frage Netzwerke Netzwerkgrundlagen

Mitglied: Piperrage

Piperrage (Level 1) - Jetzt verbinden

21.12.2006, aktualisiert 28.12.2006, 6747 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
VB for Applications
Aufruf einer CMD aus einem VBScript läuft nicht sauber
gelöst Frage von derhoeppiVB for Applications8 Kommentare

Hallo Leute, ich habe ein VBScript, das ein vorhandenes Batch-Skript aufrufen soll. Für den Aufruf der CMD habe ich ...

Windows Userverwaltung
PS Skript AD Objekte auslesen
gelöst Frage von m.reegerWindows Userverwaltung1 Kommentar

Guten Morgen, ich benötige mal bitte ein wenig Hilfe bei der Erstellung einer Powershellabfrage für das AD. Es geht ...

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
Viren und Trojaner

Deaktivierter Keylogger in HP Notebooks entdeckt

Information von bitcoin vor 16 StundenViren und Trojaner1 Kommentar

Ein Grund mehr warum man Vorinstallationen der Hersteller immer blank bügeln sollte Der deaktivierte Keylogger findet sich im vorinstallierten ...

Router & Routing

Lets Encrypt kommt auf die FritzBox

Information von bitcoin vor 19 StundenRouter & Routing

In der neuesten Labor-Version der FB7490 integriert AVM unter anderem einen Let's Encrypt Client für Zugriffe auf das Webinterface ...

Internet

Was nützt HTTPS, wenn es auch von Phishing Web-Seiten genutzt wird

Information von Penny.Cilin vor 3 TagenInternet17 Kommentare

HTTPS richtig einschätzen Ob man eine Webseite via HTTPS aufruft, zeigt ein Schloss neben der Adresse im Webbrowser an. ...

Webbrowser

Bugfix für Firefox Quantum released - Installation erfolgt teilweise nicht automatisch!

Erfahrungsbericht von Volchy vor 4 TagenWebbrowser8 Kommentare

Hallo zusammen, gem. dem Artike von heise online wurde mit VersionFirefox 57.0.1 sicherheitsrelevante Bugs behoben. Entgegen der aktuellen Veröffentlichung ...

Heiß diskutierte Inhalte
Batch & Shell
Trusted Sites für alle User auf dem PC einpflegen
Frage von xXTaKuZaXxBatch & Shell12 Kommentare

Aufgabestellung: Es sollen auf 1 PC (bzw. mehreren PCs) vertrauenswürdige Sites per Powershell eingetragen werden, die für alle User ...

Voice over IP
Telefonstörung - Ortsrufnummern kein Verbindungsaufbau
Frage von Windows10GegnerVoice over IP10 Kommentare

Hallo, sowohl bei uns als auch beim Opa ist es über VoIP nicht möglich Ortsrufnummern anzurufen. Es kommt nach ...

Vmware
DOS 6.22 in VMWare mit CD-ROM
gelöst Frage von hesperVmware10 Kommentare

Hallo zusammen! Ich hab ein saublödes Problem. Es ist eine VMWare mit DOS 6.22 zu erstellen auf dem ein ...

Cloud-Dienste
PIM als SaaS Nutzungsgebühr
Frage von vanTastCloud-Dienste8 Kommentare

Moin, wir haben uns ein PIM (Product Information Management) nach unseren Ansprüchen für viel Geld als SaaS-Lösung bauen lassen. ...