Es geht mir auch um den VB-Scribt und nicht direckt um den Server2000, 2003
oder Workstation
Es geht um Login-Script
"Cor Ligthert" wrote:
Greg,
This is not a scripting newsgroup for Win2000 server.
I think that the best place for this question is a Server newsgroup.
I hope this helps,
Cor
Ich habe zum Beispiel diesen Code bekommen, aber brauche mehr infos wie ich
das ändern muss oder umwandeln, muss ich eine Consolenanwendung machen um MMC
zu steuern oder oder, brauche diesbezüglich hilfe:
Listing 1: Enum_groups.vbs
option explicit
Dim objArgs, strGroupDN
set objArgs = WScript.Arguments
if objArgs.Count <> 1 then
Dim objRootDSE
set objRootDSE = GetObject("LDAP://RootDSE")
strGroupDN = "cn=Domain Admins,cn=users," &
objRootDSE.Get("defaultNamingContext")
else
strGroupDN = objArgs.Item(0)
end if
Dim dicSeenGroupMember
set dicSeenGroupMember = CreateObject("Scripting.Dictionary")
Wscript.Echo "Members of " & strGroupDN & ":"
DisplayMembers "LDAP://" & strGroupDN, " ", dicSeenGroupMember
Function DisplayMembers (strGroupADsPath, strSpaces, dicSeenGroupMember)
Dim objGroup, objMember
set objGroup = GetObject(strGroupADsPath)
for each objMember In objGroup.Members
Wscript.Echo strSpaces & objMember.Get("distinguishedname")
if objMember.Class = "group" then
if dicSeenGroupMember.Exists(objMember.ADsPath) then
Wscript.Echo strSpaces & " ^ already seen group member " & _
"(stopping to avoid loop)"
else
dicSeenGroupMember.Add objMember.ADsPath, 1
DisplayMembers objMember.ADsPath, strSpaces & " ", _
dicSeenGroupMember
end if
end if
next
End Function