Active directory

Ta stran je trenutno še v izdelavi.

Funkcije se ločijo na dve skupini. Ena skupina je ADLocal*, ki se uporablja za upravljanje lokalnih skupin, ADGlobal* pa se uporabljajo za upravljanje active directory (domenskih) skupin in uporabnikov.

ADGlobalGroups

Function ADGlobalGroups (Server As String) As TStringList

Funkcija ADGlobalGroups vrne spisek vseh domenskih skupin v domeni.

Server

Ime domene iz katere želimo spisek skupin.

Result

Skreira in vrne stringlisto vseh skupin. To stringlisto je potrebno dealocirati.

 Dim SL As TStringList
 SL = ADGlobalGroups ('Ime Domene')
 SL.Save ('C:\temp\ADGlobalGroups.txt')
 Destroy (SL)

ADGlobalGroupMembers

Function ADGlobalGroupMembers (Server, GroupName As String) As TStringList

Funkcija ADGlobalGroupMembers vrne spisek vseh uporabnikov v domenski skupini.

Server	Ime domene iz katere želimo spisek članov.
GroupName	Ime skupine iz katere želimo spisek članov.
Result	Skreira in vrne stringlisto vseh uporabnikov. To stringlisto je potrebno dealocirati.

Sub GetUserGroup (Domain As String)
  Dim SL, SL1 As TStringList, I as Long
  SL = ADGlobalGroups (Domain)
  For I = 0 To SL.Count - 1
    SL1 = ADGlobalGroupMembers (Domain, Replace (SL.Strings (I), Domain + '\', ''))
    SL1.Replace (Domain + '\', '')
    SL1.Sorted = True
    SL.Strings (I) = SL.Strings (I) + ' - ' + SL1.CommaText
    Destroy (SL1)
  Next
  sl.Save ('c:\temp\ADgroupsUsers.txt')
  Destroy (SL)
EndSub

ADGlobalGroupAddMember

Function ADGlobalGroupAddMember (Server, GroupName, User As String) As Long

ADGlobalGroupRemoveMember

Function ADGlobalGroupRemoveMember (Server, GroupName, User As String) As Long

ADGlobalUserInfo

Function ADGlobalUserInfo (Server, User As String) As String

ADLocalGroups

Function ADLocalGroups (Server As String) As TStringList

Funkcija vrne spisek vseh skupin na lokalnem računalniku.

Server	Ime računalnika iz katerega želimo spisek lokalnih skupin. Lahko se vnese DNS ime ali pa IP računalnika.
Result	Skreira in vrne stringlisto vseh skupin. To stringlisto je potrebno dealocirati.

 Dim SL As TStringList
 SL = ADLocalGroups ('Ime Računalnika')
 SL.Save ('C:\temp\ADLocalGroups.txt')
 Destroy (SL)

ADLocalGroupMembers

Function ADLocalGroupMembers (Server, GroupName As String) As TStringList

Funkcija ADLocalGroupMembers vrne spisek vseh lokalnih uporabnikov na računalniku.

Server	Ime računalnika iz katerega želimo spisek lokalnih uporabnikov. Lahko se vnese DNS ime ali pa IP računalnika.
GroupName	Ime skupine iz katere želimo spisek uporabnikov.
Result	Skreira in vrne stringlisto vseh uporabnikov. To stringlisto je potrebno dealocirati.

Sub GetLocalUserGroup (Computer As String)
  Dim SL, SL1 As TStringList, I as Long
  SL = ADLocalGroups (Computer)
  For I = 0 To SL.Count - 1
    SL1 = ADLocalGroupMembers (Computer, Replace (SL.Strings (I), Computer + '\', ''))
    SL1.Replace (Computer + '\', '')
    SL1.Sorted = True
    SL.Strings (I) = SL.Strings (I) + ' - ' + SL1.CommaText
    Destroy (SL1)
  Next
  sl.Save ('c:\temp\ADgroupsUsers.txt')
  Destroy (SL)
EndSub

ADLocalGroupAddMember

Function ADLocalGroupAddMember (Server, GroupName, User As String) As Long

ADLocalGroupRemoveMember

Function ADLocalGroupRemoveMember (Server, GroupName, User As String) As Long