Butterbrot

Kann mir jemand sagen wie ich von einer WS via ADSI die Description auslesen kann? Beispiel für die Ausgabe des Computernamens: Wscript.Echo objComputer.Name Nun will ich aber nicht den Namen, sondern die Description... Thx. Gruss Butterbrot

ich habs herausgefunden... :) Danke für dein Hilfe! Hat mir viel zum Verständniss beigefügt. Massgeblich war: "Select Name, ADsPath from 'LDAP://... [/Code] Schöns Weekend all of you! Gruss !-Butterbrot-!

genau nach dem habe ich gesucht. Aber wieso wird aigentlich aus einem 4-Zeiler-Code mit dem WinNT-Provider ein dreifach so langes Script mit dem LDAP-Provider? Nun möchte ich gerne noch mein Script erweitern.. doch mit der Version die mir im Kopf herumschwebt klappt das nicht so ganz. Mit der Eingabe des WS-Namens sollte schlussendlich der LDAP-Name der Ws ausgegeben werden.. nur klappt dies noch nicht so wie ich es gerne hätte... 'Eingabe des gewünschten Ws-Namen strWsid = inputbox ("WS-NR: ") 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 from 'LDAP://DC=eur,DC=beluni, DC=net' " _ & "where objectClass='computer'" objCommand.Properties("Page Size") = 1000 objCommand.Properties("Timeout") = 30 objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE objCommand.Properties("Cache Results") = False Set objRecordSet = objCommand.Execute objRecordSet.MoveFirst Do Until objRecordSet.EOF strWsName = objRecordSet.Fields("Name").Value 'Ws-ID-Eingabe wird mit Output verglichen if strWsName = strWsid then Wscript.Echo "Computer Name: " & objRecordSet.Fields("Name").Value 'Ausgabe des LDAP-Names der gesuchten WS Wscript.Echo "LDAP Name: " & objRecordSet.Fields("distinguishedName").Value end if objRecordSet.MoveNext Loop [/Code]

Wie mainst du das mit der IF-Abfrage in der While Schleife? Der Input des Workstationnamen wollte ich einfach wie inputbox realisieren..

mit ausgeben meinte ich die Ausgabe am Bildschirm... schlussendlich sollte ich eine WS-Nr. eingeben und der dazugehörige LDAP-Name erscheint (am Bildschirm ;)

ich meinte eigentlich die verschachtelten OUs.. aber das hab ich nun hin gekriegt. Set objRootDSE = GetObject("LDAP://RootDSE") Set objDomain = GetObject("LDAP://" & objRootDSE.Get("DefaultNamingContext")) Call BrowseOU(objDomain.ADsPath) Sub BrowseOU(sADsPath) Set objContainer = GetObject(sADsPath) objContainer.Filter = Array("OrganizationalUnit") For Each objOU in objContainer strpfad = objOU.get("distinguishedName") WScript.Echo strpfad BrowseOU(objOU.ADsPath) Next End Sub [/Code] Wie kann ich nun die dort enthaltenen WS ausgeben?

ADSI kann ja über verschiedene Provider angesprochen werden. LDAP und WinNT sind zwei von vielen (ca. 5...). Wie lautet das folgende Script, welches via WinNT fungiert, mittel dem LDAP-Provider? sDomain = "YourDomain" Set oDomain = GetObject("WinNT://" & sDomain) oDomain.Filter = Array("Computer") For Each oADobject In oDomain WScript.Echo oADobject.Name Next [/Code] thx.

nun hab ich mich mal durch einige samplescripts durchgearbeitet.. mein jetztiges Script kann schon mal alle OUs der ersten hierarchischen Stufe ausgeben. set objRoot = GetObject("LDAP://rootDSE") strDomain = objRoot.Get("DefaultNamingContext") set objDom = getObject("LDAP://" & strDomain) objDom.Filter = array("organizationalUnit") for each objOU in objDom strOU = strOU & ";" & objOU.distinguishedName WScript.Echo objOU.distinguishedName next [/Code] Wie kann ich nun von jeder OU aus in die nächst tiefere Stufe switchen? Auf welchen Parameter müssen sich die "Foreach"-Schlaufen beziehen? thx :) Gruess !-Butterbrot-!

zu viele informationen... ich blick hier ainfach noch nicht durch! Gibts vielleicht sonst no hilfreiche Tipps?

mal vorbeischauen... thx

ahh.. okey ich glaubs ich verstehe dein Gedankengang. Aber könntest du mir nicht vielleicht EINEN dieser foreach-Schlaufen liefern? Das würde mein Verständnis massiv erhöhen ;) thx

Hey Leute! Ich habn kleines Problem und bin schon seit gut 2 Tagen auf der suche nach der Lösung... und zwar geht es um eine LDAP-Abfrage die als Input eine Workstation-Nr und als Output den LDAP-Name leifern soll. Das Script sollte jedoch die ganze Domain durchsuchen, da die Workstation auf verschiedene OU's verteilt sind. Bis anhin konnte ich ein Scriptchen entwerfen, dass den LDAP-Name einer spezifischen OU ausspuckte: str_ws_id = inputbox ("WS-ID: ") set obj_workstation = GetObject("LDAP://CN=" & ws_id & ",OU=Desktops,OU=CH,DC=home,DC=net") str_output = obj_workstation.get("distinguishedName") MsgBox str_output Könnt ihr mir helfen? thx 4 helping. Gruss !-Butterbrot-!

Hallo zusammen Zusätzlich zu der WinZip 8.0 unattended installation (läuft einwandfrei!), bräuchte ich einige Angaben zur unattended installation des Addons WinZip Command Line. Kann mir jemand helfen?

Hallo zusammen Ich habe eine kleine, oder vielleicht auch grössere, Frage. Ich habe ein Formular das Informationen aus mehreren Tabellen nimmt. Es gibt zwei grobe unterteilungen. Das heisst wenn in einem Pop-Up (Feld 1) ein "Thema 1" ausgewählt wurde wird im Pop-Up2 (Feld 2) "Thema 1.1" bis "Thema 1.9" angezeigt. (Dies ist nur ein Beispiel um die Feldfunktion zu erklären). Zu jedem "Thema 1.1" (Feld 2) gehört ein Preis (Feld 3), der sich in der selben Tabelle wie Feld 2 (Thema 1.1) befindet. Ich möchte nun folgendes erreichen: Ich wähle im Feld 1 "Thema 1" aus. Im Feld 2 erscheint "Thema 1.1" bis "Thema 1.9". Im Feld 3 erscheint der zugehörige "Preis 1.9" --------------- Mein Code für die Realisierung des IST-Zustand lautet: Private Sub Es_Preis_AfterUpdate() If Not IsNull(Me![Es_Art]) Then Me!Es_Einzel.Enabled = True End If 'Me!Es_Einzel.RowSource = "SELECT tblSpeisen.SpeiseId, tblSpeisen.ArtBeschreib " _ '& "FROM tblSpeisen " _ '& "WHERE (((tblSpeisen.ArtId) = " & Me.ActiveControl & "));" Me![Es_Einzel] = Null ' Me![Es_Einzel].Requery End Sub Private Sub Es_Art_BeforeUpdate(Cancel As Integer) End Sub Private Sub Es_Einzel_Enter() Me![Es_Einzel].Requery End Sub --------------- Erläuterung: Es_Art = Thema 1 Es_Einzel = Thema 2 --------------- Wie kann ich das machen? Ich wäre euch sehr dankbar. Vielen Dank :) GreeZ Butterbrot

1. Möglichkeit: - Feste IP zulegen und wie Remote Tool (Remotleyanywhere ist ein sehr gutes tool!) auf ihren Server zugreifen... - DNS IP bei No-Ip.com zulegen, No-Ip.com client-Programm downloaden und wie benutzername.no-ip.com:2000 auf ihren Server zugreiffen (Remotelyanywhere) Achtung bei Proxy und Firewall! That helps Gruss Butterbrot

Ich habe nun am Netzt eine fertig Konfigurierte Workstation. Von dieser WS möchte ich nun ein Abbildmachen, welche anschliessend auf dem RIS-Server zugefügt werden soll. Laut der Anleitung (oben bereits genannt) habe ich jedoch nichts falsch gemacht...! Berechtigung, Freigabe alles iO... Ich installiere den RIS-Server nun nocheinmal und hoffe es funktionert dann anschliessend, was ich jedoch nicht glaube. Hat niemand sonst dieses Problem schon einmal gehabt? Ihr seit ja alle erfolgreiche MCSE's ... :D MERCI Gruss Butterbrot

Ich habe erfolgreich ein RIS Server auf einem W2k Advanced Server System installiert. Bei der Installation hat es mir, wie es auch sein sollte, ein Image von W2k Prof. angelegt. Wenn ich nun auf einer W2k Prof., welche fertig konfiguriert ist, den Pfad: /Server/RemInst/Admin/i386/ öffne und das File RipRep ausführe meldet mir das Programm anschliessend, dass sich auf dem RIS-Server kein CD-Abbildung befindet...! Aber ich will ja ein Image installieren! Kann mir jemand helfen?? Ich ging nach folgender Anleitung vor: http://www.rsbesigheim.de/profile/iuk/modellnetz/installation/ris/images_erstellen/image_erstellen.htm MERCI Gruss Butterbrot