هل يمكن اخذ الصلاحيات من ال Active directory ب asp

:angry: :angry: :angry: :angry: :angry: :angry:

شووووووووووووووووووووووووو

:s :s :s :s :s :s :s :s :s :s

أعتقد انو مستحيل للللللللللللللللللللل.....

بس برضو كل شي ممكن

الكود هنا

Set objNetwork=CreateObject("WScript.Network")

DomainString=objNetwork.UserDomain

WorkstationString=objNetwork.ComputerName

UserString=objNetwork.UserName

Set fso =Wscript.CreateObject("Scripting.FileSystemObject")

Set testfile= fso.CreateTextFile("Users.txt", True)

Set Domain = GetObject("WinNT://" & DomainString)

Domain.Filter = Array("user")

For each Object in Domain

testfile.writeline Object.name

Set UserObj = GetObject("WinNT://" & DomainString & "/" & Object.name)

i = i + 1

Next

Set Domain=nothing

Set testfile = nothing

set fso = nothing

set objNetwork = nothing