Program til oversigt over grupper i AD

Hvis du er til scribts har jeg et par kopier du kan få og arbejde videre på.

Man er vel altid til scripts. Så jeg er klar på dem.

' Lavet af Jesper Hanno Hansen, Jesper@hanno.dk
' www.hanno.dk
' *************************************************
' Viser liste over Grupper i Domænet.
' Virker uden ændringer.
' *************************************************

Set Network = Wscript.CreateObject("Wscript.Network")

StrDomain = Network.UserDomain

Set DomainObj = GetObject("WinNT://" & StrDomain)
DomainObj.Filter = Array("Group")

    For Each GroupObj In DomainObj
        If GroupObj.Class = "Group" Then
            StrList = StrList & GroupObj.Name & Vbcrlf
      end If
    Next

Wscript.Echo StrList

' Lavet af Jesper Hanno Hansen, Jesper@hanno.dk
' www.hanno.dk
' ************************************************
' Viser Brugere fra en Gruppe.
' ************************************************

Set Network = Wscript.CreateObject("Wscript.Network") 
Set Shell = Wscript.CreateObject("Wscript.Shell") 

StrL = Vbcrlf
StrTitel = "Viser brugere fra en Gruppe..."
StrDomain = Network.UserDomain
StrGroup = InputBox("Skriv en Gruppe:",StrTitel,"Domain Users")

If StrGroup = "" Then
    Wscript.Echo "Der er ikke tastet noget ind !"
Else
    Set GroupObj = GetObject("WinNT://" & StrDomain & "/" & StrGroup)
        StrList = StrList & "Følgende brugere er medlem af " & StrGroup & StrL & StrL
        For Each UserObj In GroupObj.Members
            StrList = StrList & UserObj.Name & StrL
        Next
       
    Shell.popup StrList, 20, StrTitel
End If

Ser ud til at man evt. kunne flette de 2 scripts, men ingen optimal løsning.
Kunnne godt bruge et prog der kan præsentere dataene på en "pæn" måde.

Hyena fra SystemTools vil jeg anbefale. En 30 dages version kan downloades fra www.systemtools.com. Har en masse ekstra funktionalitet også.

Hyena ser ud til at være et godt værktøj.
Men det løser ikke helt mit problem, eller måske kan jeg bare ikke finde ud af det.
Jeg skal bruge et værktøj der kan lave en liste over hvilke medlemmer der er i en gruppe, disse oplysninger vil jeg gerne have i et tekst dokument.
Hyena kan godt vise det men så kan jeg lige så godt sidde og browse AD'en.

Du kunne også tage og kigge på Dameware NT Utilities

Kan downloades på www.dameware.com

/Martin

Bruger Dameware til dagligt, men samme prob. som Hyena.
Oplysningerne kan ikke eksporteres, udover hvis man skal have brugerne til et andet domain.