Hallo!
Probier's mal damit:
GetAllUsersfromGroup ("<Dom�nenname>","<Gruppe, die Du auslesen willst>")
Function GetAllUsersfromGroup(dom,obj)
Dim List
Dim GroupObj
Dim UserObj
Set GroupObj = GetObject("WinNT://"& dom &"/" & obj)
For each UserObj in GroupObj.Members
List = List & UserObj.Name & ", "
Next
If List = "" Then List = "nouser"
GetAllUsersfromGroup = List
End Function
Bonus:
Function GetGroupsofUser(dom,obj)
Dim List
Dim UserObj
Dim GroupObj
Set UserObj = GetObject("WinNT://"& dom &"/" & obj)
For Each GroupObj In UserObj.Groups
List = List & GroupObj.Name & ", "
Next
If List = "" Then List = "nogroup"
GetGroupsofUser = List
End Function
In einer NT4 Dom�ne funktioniert's.
Gru�
Stefan
____________________________
Stefan Winkler
ICQ: #70264493
mailto:[EMAIL PROTECTED]
http://www.swinks.de
____________________________
The trick about life is to make it look easy.
-----Urspr�ngliche Nachricht-----
Von: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]
Gesendet: Montag, 4. Februar 2002 16:13
An: ASP Diskussionsliste fuer Anfaenger
Betreff: [aspdebeginners] nochmal ADSI konnektieren via ASP ??
Hi @all,
Ich habe mir die Seiten, die mir genannt wurden angeschaut
und an Hand eines Beispielscriptes versucht das ADSI zu
konnektieren. Nun, trotz richtigen "Pfades" innerhalb
unserer Dom�ne, erhalte ich immer den Fehler:
Fehler '80070035'
Der Netzwerkpfad wurde nicht gefunden.
/Scripts/ADSI Scripts/getgroupuser.asp, line 3
<% ScriptLanguage ="VBScript"%>
<%
Set GroupObj = GetObject("WinNT://server.domain.net/Die
Firma/Intern/Benutzer") For each UserObj in GroupObj.Members
List = List & UserObj.Name
Response.Write List
Next
%>
Kann es sein, da� es Probleme mit den Leerzeichen gibt?
Oder ist da ein anderer Fehler im Code?
Vielleicht weiss ja jemand, was ich falschmache. Vielen
Dank im Voraus. Gru� Dominik
---------------------------------------\|/-------
CUS Information Technology GmbH-------(o o)------
------------------------------ ----ooO-(_)-Ooo---
Jostesweg 7
49080 Osnabrueck - Germany
phone +49 (0) 541 982 77 77
fax +49 (0) 541 982 77 78
Blumenhaller Weg 47
49080 Osnabrueck - Germany
phone +49 (0) 541 961 91 19
-------------------------------------------------
http://www.CUS-IT.Net
-------------------------------------------------
| Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/
| [aspdebeginners] als [EMAIL PROTECTED] subscribed
| http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv
| Sie knnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdebeginners.asp
| Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/
| [aspdebeginners] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv
| Sie knnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdebeginners.asp
