Можешь поделиться набросками?
Могу, если скажешь что значит "расширять или урезать ему права" Права на какой обьект? FS? Членство в группах? или что-то еще?
Все эти манипуляции описаны в MSDN. Один в один кладется в LS...
http://www.activxperts.com/activmonitor/wi...rsgroups/users/
Типа:
Set container=GetObject("GC:")
Forall obj In container
Set gc=obj
End Forall
AdsPath=gc.adspath
....
LDAPstring="<"+AdsPath+">;"+SearchFilter+";"+sysFields+","+infoFields+";subtree"
SQLstring=|SELECT whenChanged,objectGUID,distinguishedName,userPrincipalName,title,department,tele
phoneNumber,description,textEncodedORAddress,otherMailbox FROM '|+AdsPath+|' Where objectClass='user' AND objectCategory='person' and sAMAccountName LIKE %))|
Set con = CreateObject("ADODB.Connection")
Set com = CreateObject("ADODB.Command")
''con.property:
http://msdn.microsoft.com/library/default....objects_ado.asp
''''''''''''''
con.Provider = "ADsDSOObject"
con.Properties("User ID") ="userid"
con.Properties("Password") ="passv"
con.Properties("Encrypt Password") = True
con.Open "Active Directory Provider"
'''''''''''''''
Set Com.ActiveConnection = con
''''''''''''''
com.Properties("Cache results")=False
com.Properties("Page Size") = 10000
com.Properties("Timeout") = 30 'seconds
com.Properties("Searchscope") =2 ' ADS_SCOPE_SUBTREE 'Define in ADS_SCOPEENUM
'''''''''''''
Com.CommandText =LDAPstring
Set RS=com.Execute
'''''''''''''
While Not rs.eof()
ID=mGUID(rs.Fields("objectGUID").value)
