VBScript - Member einer Gruppe auslesen .. Problem

[Darksun777 10]

Hi Leute,

 

also ich habe noch fast keine Ahnung von VBScript, habe bisher immer alles mit Batches gemacht :) Vielleicht könnt ihr mir helfen.

 

Ich möchte alle Computerkonten, welche Mitglied einer bestimmten Gruppe sind, auslesen und diese in eine textdatei schreiben.

 

Danach möchte ich diese Textdatei wiederum auslesen und mit den Computerkonten weiterarbeiten.

 

mein Problem: Das auslesen der Mitgliedskonten klappt soweit, auch das schreiben in eine Textdatei. Allerdings wird dabei der komplette DN in die Textdatei geschrieben, hier als Beispiel:

 

CN=IT-009,OU=Workstations,OU=Germany,DC=mydomain,DC=local

 

Jetzt bekomme ich beim auslesen der Datei ein Problem, da ich nicht weiss wie ich NUR den Computernamen (IT-009) auslesen kann (und nicht die gesamte Zeile)

 

Könnt ihr mir helfen ? Hier poste ich mal mein tolles Script:

 

Const ForAppending = 8
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile ("c:\computers.txt", ForAppending, True)
On Error resume next 
Set objGroup = GetObject _
("LDAP://cn=Testgroup,ou=Workstations,ou=Germany,dc=mydomain,dc=local")
objGroup.GetInfo

arrMemberOf = objGroup.GetEx("member")

For Each strMember in arrMemberOf
objTextFile.WriteLine(strMember)
Next
objTextFile.Close

 

Für das einlesen habe ich jetzt noch keinen funktionierenden Code.

Am besten wäre es natürlich, wenn bereits beim schreiben in die Textdatei NUR der Computername reingeschrieben wird...

 

Alternativ bräuchte ich einen Code, um aus dieser Textdatei NUR den Computernamen (IT-009) auszulesen.

 

Please help :)

[Iem-Ach 10]

auf eaglesoft.ch findest du einige fertige Tools, die das machen

 

gruss

 

Iem-Ach