Butterbrot

Hallo zusammen

Ich möchte alle Computer, die in meiner AD erfasst sind ausgeben. Nun sind diese Computer nicht alle im selben Container, so dass ich den Suchoption nicht auf einen Container , sondern auf die Klasse "Computer" definieren muss.

Könnt ihr mir hier helfen wie ich das via VBS realisieren kann? Hilfreiche Links?

thx :)

Nei leider war dies nicht das Problem... :(

... kann mir niemand helfen? Dabei sollte doch dies zu den Grundbedürfnissen eines jeden Admins gehören...

Hallo zusammen

Kann mir jemand sagen wie ich via LDAP-Abfrage alle User-Accounts ausgeben kann?

Ich habe im "Windows Script Referenz" eine Lösung gefunden. Jedoch werden nicht alle Accounts aufgelistet... WIESO?

' Global Catalog suchen
Set gc = GetObject("GC:")
For each child in gc
	Set enterprise = child
Next

'ObjektFSO wird definiert
set objFSO = CreateObject("Scripting.FileSystemObject")

'FilePfade bei Bedarf anpassungen nötig
txtPID	= "C:\Temp.txt"
txtPIPMember = "C:\" & strGroupInput & ".txt"

If IsEmpty(enterprise)then
	MsgBox "Nicht an einer Domäne angemeldet"
	WScript.quit
End If

' ADO initialisieren
Set Connection = CreateObject("ADODB.Connection")
Connection.Provider = "ADsDSOObject"
Connection.Open

Set Command = CreateObject("ADODB.Command")
Command.ActiveConnection = Connection

' Suchbefehl festlegen
Command.CommandText = "<" & enterprise.ADsPath & ">;(&(objectCategory=person)(objectClass=user));name;subTree"
Set rs = Command.Execute

' Ergebnis anzeigen (kurz)
WScript.Echo vbTab & rs.GetString

rs.MoveFirst

Do until rs.eof
	liste = liste & rs("name") & vbCrLf
	rs.MoveNext
Loop
[/Code]

thx 4 helping :)

Eine Möglichkeit wäre, eine Abfrage über alle User. Anschliessend werden nur User mit dem entsprechenden "MemberOf"-Attribut ausgegeben...

Von der Theorie zur Praxis... wie sieht ein Script aus, dass alle User mit ihren MemberOf-Attributen ausgiebt aus?

ich bevorzuge schon die VBScript-Version, da dies lediglich ein kleiner Teil meines Scripts ist.. jedoch ein wichtiger.

Nur die direkten Members einer Grupper...

.. das löst mein Problem nicht ganz.

- Via Parameter wird die gesuchte Gruppe initalisiert (man hat das viele "i"s)

- Anhand dieser Gruppe sollen nun alle Members aufgelistet werden.

Soweit ich dein Script-Vorschlag verstehe, wird einfach die Gruppenzugehörigkeit eines Users ausgegeben.. nicht aber die Userzugehörigkeit einer Gruppe. Also umgekehrt...

Hallo zusammen

Ich bräuchte fr folgendes Problem eine kleine Gedankensstütze von euch..

"Alle User einer Gruppe ausgeben" via LDAP-Abfrage.

Es ist kein Problem die Gruppe eines bestimmten Users zu ermitteln.. Gefragt ist nun genau das Gegenteil: die User einer Gruppe.

Ideen?

tja in einem Grossbetrieb wird das eben versucht zu verbieten, eine html-Signatur zu generieren... aber das ist ein anderes Thema.

Nocheinmal: Vor 2 Wochen hatte ich das html-Format noch in dieser Auswahl. Jetzt wo ich einen neuen Fit habe, ist das Format aus der "Liste" gelöscht worden... aber es muss sich dabei bestimmt um einen Reg-Key handeln, der die Formate für die Signatur regelt...

Ja das ist mir eigentlisch schon klar... ich hatte auch eine Office-Version bei der dies so einfach einstellbar ist. Nun wurden jedoch alle Workstation neu aufgesetzt und seit da an ist dieses Format nicht mehr verfügbar. Es muss sich um ein Registry-Key handeln, der bestimmte Formate für Signaturen zulässt.

hilfe!!!??

Noch einmal... Hallo zusammen

Gibt es einen Befehl um vorgänig aus einer For-Schlaufe zu gelangen? Wohl schon.. aber wie heisst er?

Hallo zusammen

Zur Zeit habe ich ein Script, in welchem 2 For-Schlafuen ineinander verschachtelt sind. Und das ist momentan mein Problem - Es dauert ewigs, das viel zu viel abgearbeitet werden muss.

1. For-Schlaufe: Abarbeiten eines Array, welches von einem 20 MB-TXT-File gefüttert wurde.

2. For-Schlaufe: Vergleichen eines Strings (aus dem Array) mit einem String aus einem 300 KB-TXT-File

Das heisst, das für jeden Durchgang meines 20 MB-Array immer das 300 KB-Array durchgearbeitet wird. Sprich es dauert wirklich ewigs!

Nun hat mir jemand einen Tipp bezüglich Pointer Array gegeben. Im Pointer Array wird das erste Array via Pointer sortiert... nur wie macht man das?

thx 4 helping

ich hab mal wider zu weit gedacht... das Problem hat sicher bereits erübrigt...

Der Code kann so stehen gelassen werden wie er ist... sorry für die Zeitverschwendung ;)

Hallo zusammen

Ich will via Script einen Computer Account disable.

Auszug aus Technet um User Account Disable:

http://www.microsoft.com/technet/treeview/default.asp?url=/technet/scriptcenter/user/ScrUG20.asp

Description

Disables a user account.

 

Script Code

 

Const ADS_UF_ACCOUNTDISABLE = 2

 

Set objUser = GetObject _

("LDAP://cn=myerken,ou=management,dc=fabrikam,dc=com")

intUAC = objUser.Get("userAccountControl")

 

objUser.Put "userAccountControl", intUAC OR ADS_UF_ACCOUNTDISABLE

objUser.SetInfo

Nun will ich aber einen Computer-Account disable...

Mittels

objUser.Put "computerAccountControl", intUAC OR ADS_UF_ACCOUNTDISABLE
[/Code]

funktioniert das aber nicht... wie denn?

Thx :)

Gruss

butterbrot

das hier ist doch ein MCSE-BOARD? Und das ist doch auch eine passende Frage auf entsprechendem Niveau...

Kann mir niemand helfen?

Ja das ist mir eigentlisch schon klar... ich hatte auch eine Office-Version bei der dies so einfach einstellbar ist. Nun wurden jedoch alle Workstation neu aufgesetzt und seit da an ist dieses Format nicht mehr verfügbar. Es muss sich um ein Registry-Key handeln, der bestimmte Formate für Signaturen zulässt.

Hallo zusammen

Wie kann ich im Outlook 2003 eine html Signatur enable/disable?

thx :)

Gruss

Butterbrot

Lösung gefunden:

If objFSO.FileExists(txtcmsPath) then

Wscript.echo "Datei exestiert"

Set objInputcmsFile = objFSO.OpenTextFile (txtcmsPath, 1, false)

...

...

else

Wscript.echo "Datei ist nicht vorhanden"

end if

Hallo zusammen

Ich hatte mir ein Script zusammengebaut, welches Informationen aus einem File beschaffen muss. Nachdem ich einen Server mit 4 CPUs während 10 Minuten dauernd mit 25 % ausgelastet hatte merkte ich, dass der Pfad des Files nicht stimmte.... kann mir jemand sagen wie amn diesen Fehler umgehen kann z.B. durch eine schlichte Meldung: Can't find File...!

'Constanten deklaration
Const ForReading = 1

'FilePfade bei Bedarf anpassungen nötig
txtcmsPath	= "C:\VBS_Description\cmsexpo"

'ObjektFSO wird definiert
set objFSO = CreateObject("Scripting.FileSystemObject")

'File wird geöffnet
Set objInputcmsFile = objFSO.OpenTextFile (txtcmsPath, 1, false)
[/Code]

thx :)

Gruess

!- Butterbrot -!

Hallo zusammen

Ich möchte innerhalb einer "Do until File.AtEndOfStream"-Schlaufe einen Wert in ein Array schreiben. Jetzt habe ich jedoch kaine Ahnung wie gross mein Array wird... und die Gröss eines Arrays muss doch fest definiert werden - oder doch nicht?

_________________

!-Butterbrot-!

Es gibt sonst noch ein SW welche einen Shutdown Folder simuliert. Das Script zum trennen der Laufwerke kann so einfach in den Shutdown Folder gelinkt werden.

Find HSLAB Shutdown Folder under google!

Gruss

!-Butterbrot-!

Ich meine damit die Description einer Workstation im AD.. Andere Parameter wie "Betriebssystem, Version, LDAP-Name..." kann ich zur Zeit einer WS der AD entnehmen.

Gibt es eingentlich irgendwo eine ADSI-Objektliste wo solche Objekt-Eigenschaften aufgelistet sind? Ich habe zwar einige "schlaue" Bücher bei mir, doch fündig wurde ich trotzdem nicht... :(