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

Funkcija ADGlobalGroups nam vrne seznam vseh uporabniških skupin v dani domeni.

Function (ADGlobalGroups As ERROR, DomainName As String) As TStringList
DomainName	String	Ime domene, za katero želimo seznam skupin.
Result	TStringList	Ustvari string-listo vseh uporabniških skupin v dani domeni. To string-listo je potrebno po uporabi dealocirati.

 // ...
 Dim SL As TStringList
 SL = ADGlobalGroups ('ime domene')
 // koda
 Destroy (SL)

ADGlobalGroupMembers

Funkcija ADGlobalGroupMembers vrne spisek vseh uporabnikov v domenski skupini.

Function ADGlobalGroupMembers (DomainName, GroupName As String) As TStringList

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

// opis primera
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 (DomainName, GroupName, UserName As String) As Long

Funkcija ADGlobalGroupAddMember doda uporabnika v domensko skupino v domeni.

DomainName	String	Ime domene v katero želimo dodati uporabnika v skupino.
GroupName	String	Ime skupine v katero želimo dodati uporabnika.
UserName	String	Ime uporabnika, ki ga želimo dodati v skupino. Ime uporabnika mora biti v obliki Ime Domene\Ime uporabnika.
Result	Long	Vrne 0, če je bila funkcija uspešna, sicer kodo napake. Kode možnih napak se lahko najde pri windows API ukazu NetGroupAddUser.

ADGlobalGroupAddMember ('Ime računalnika', 'Ime skupine', 'Ime Domene\Ime uporabnika')

ADGlobalGroupRemoveMember

Function ADGlobalGroupRemoveMember (DomainName, GroupName, UserName As String) As Long

Funkcija ADGlobalGroupRemoveMember odstrani uporabnika iz domenske skupine v domeni.

DomainName	String	Ime domene v kateri želimo odstraniti uporabnika iz skupine.
GroupName	String	Ime skupine iz katere želimo odstraniti uporabnika.
UserName	String	Ime uporabnika, ki ga želimo odstraniti iz skupine. Ime uporabnika mora biti v obliki Ime Domene\Ime uporabnika.
Result	Long	Vrne 0, če je bila funkcija uspešna, sicer kodo napake. Kode možnih napak se lahko najde pri windows API ukazu NetGroupDelUser.

ADGlobalGroupRemoveMember ('Ime računalnika', 'Ime skupine', 'Ime Domene\Ime uporabnika')

ADGlobalUserInfo

Function ADGlobalUserInfo (DomainName, UserName As String) As String

Funkcija ADGlobalUserInfo nam vrne ime in priimek domenskega uporabnika, če je ta podatek vnešen.

DomainName	String	Ime domene iz katere želimo podatke o uporabniku.
UserName	String	Ime uporabnik za katerega želimo ime in priimek.
Result	String	Vrne ime in priimek.

Hint (ADGlobalUserInfo ('Ime domene', 'Ime uporabnika')

ADLocalGroups

Function ADLocalGroups (DomainName As String) As TStringList

Funkcija ADLocalGroups vrne spisek vseh skupin na lokalnem računalniku.

DomainName	String	Ime računalnika iz katerega želimo spisek lokalnih skupin. Lahko se vnese DNS ime ali pa IP računalnika.
Result	TStringList	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 (DomainName, GroupName As String) As TStringList

Funkcija ADLocalGroupMembers vrne spisek vseh uporabnikov v lokalni skupini na računalniku.

DomainName	String	Ime računalnika iz katerega želimo spisek uporabnikov. Lahko se vnese DNS ime ali pa IP računalnika.
GroupName	String	Ime skupine iz katere želimo spisek uporabnikov.
Result	TStringList	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 (DomainName, GroupName, UserName As String) As Long

Funkcija ADLocalGroupAddMember doda uporabnika v lokalno skupino na računalniku.

DomainName	String	Ime računalnika na katerem želimo dodati uporabnika v skupino. Lahko se vnese DNS ime ali pa IP računalnika.
GroupName	String	Ime skupine v katero želimo dodati uporabnika.
UserName	String	Ime uporabnika, ki ga želimo dodati v skupino. Če ni lokalni uporabnik, moramo imenu dodati tudi domeno.
Result	Long	Vrne 0, če je bila funkcija uspešna, sicer kodo napake. Kode možnih napak se lahko najde pri windows API ukazu NetLocalGroupAddMembers.

ADLocalGroupAddMember ('Ime računalnika', 'Ime skupine', 'Ime Domene\Ime uporabnika')

ADLocalGroupRemoveMember

Function ADLocalGroupRemoveMember (DomainName, GroupName, UserName As String) As Long

Funkcija ADLocalGroupRemoveMember odstrani uporabnika iz lokalne skupine na računalniku.

DomainName	String	Ime računalnika na katerem želimo odstraniti uporabnika iz skupine. Lahko se vnese DNS ime ali pa IP računalnika.
GroupName	String	Ime skupine iz katere želimo odstraniti uporabnika.
UserName	String	Ime uporabnika, ki ga želimo odstraniti iz skupine. Če ni lokalni uporabnik, moramo imenu dodati tudi domeno.
Result	Long	Vrne 0, če je bila funkcija uspešna, sicer kodo napake. Kode možnih napak se lahko najde pri windows API ukazu NetLocalGroupDelMembers.

ADLocalGroupRemoveMember ('Ime računalnika', 'Ime skupine', 'Ime Domene\Ime uporabnika')