Active directory: Razlika med redakcijama

Iz SDMS
Jump to navigationJump to search
Vrstica 3: Vrstica 3:
  
 
==ADGlobalGroups==
 
==ADGlobalGroups==
−
<source>Function ADGlobalGroups (DomainName As String) As TStringList</source>
+
<declaration>Function ADGlobalGroups (DomainName As String) As TStringList</declaration>
 
Funkcija '''ADGlobalGroups''' nam vrne seznam vseh uporabniških skupin v dani domeni.
 
Funkcija '''ADGlobalGroups''' nam vrne seznam vseh uporabniških skupin v dani domeni.
 
{| class="param"
 
{| class="param"
Vrstica 10: Vrstica 10:
 
| '''Result''' || ''TStringList'' || Ustvari string-listo vseh uporabniških skupin v dani domeni. To string-listo je potrebno po uporabi dealocirati.
 
| '''Result''' || ''TStringList'' || Ustvari string-listo vseh uporabniških skupin v dani domeni. To string-listo je potrebno po uporabi dealocirati.
 
|}
 
|}
−
<source>
+
<example>
 
  Dim SL As TStringList
 
  Dim SL As TStringList
 
  SL = ADGlobalGroups ('ime domene')
 
  SL = ADGlobalGroups ('ime domene')
 
  // koda
 
  // koda
 
  Destroy (SL)
 
  Destroy (SL)
−
</source>
+
</example>
  
 
==ADGlobalGroupMembers==
 
==ADGlobalGroupMembers==
−
<source>Function ADGlobalGroupMembers (DomainName, GroupName As String) As TStringList</source>
+
<declaration>Function ADGlobalGroupMembers (DomainName, GroupName As String) As TStringList</declaration>
 
Funkcija '''ADGlobalGroupMembers''' vrne spisek vseh uporabnikov v domenski skupini.
 
Funkcija '''ADGlobalGroupMembers''' vrne spisek vseh uporabnikov v domenski skupini.
 
{| class="param"
 
{| class="param"
Vrstica 27: Vrstica 27:
 
| '''Result''' || ''TStringList'' || Skreira in vrne stringlisto vseh uporabnikov. To stringlisto je potrebno dealocirati.
 
| '''Result''' || ''TStringList'' || Skreira in vrne stringlisto vseh uporabnikov. To stringlisto je potrebno dealocirati.
 
|}
 
|}
−
<source>
+
<example>
 
Sub GetUserGroup (Domain As String)
 
Sub GetUserGroup (Domain As String)
 
   Dim SL, SL1 As TStringList, I as Long
 
   Dim SL, SL1 As TStringList, I as Long
Vrstica 41: Vrstica 41:
 
   Destroy (SL)
 
   Destroy (SL)
 
EndSub
 
EndSub
−
</source>
+
</example>
  
 
==ADGlobalGroupAddMember==
 
==ADGlobalGroupAddMember==
−
<source>Function ADGlobalGroupAddMember (DomainName, GroupName, UserName As String) As Long</source>
+
<declaration>Function ADGlobalGroupAddMember (DomainName, GroupName, UserName As String) As Long</declaration>
 
Funkcija '''ADGlobalGroupAddMember''' doda uporabnika v domensko skupino v domeni.
 
Funkcija '''ADGlobalGroupAddMember''' doda uporabnika v domensko skupino v domeni.
 
{| class="param"
 
{| class="param"
Vrstica 55: Vrstica 55:
 
| '''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''.
 
| '''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''.
 
|}
 
|}
−
<source>ADGlobalGroupAddMember ('Ime računalnika', 'Ime skupine', 'Ime Domene\Ime uporabnika')</source>
+
<example>ADGlobalGroupAddMember ('Ime računalnika', 'Ime skupine', 'Ime Domene\Ime uporabnika')</example>
  
 
==ADGlobalGroupRemoveMember==
 
==ADGlobalGroupRemoveMember==
−
<source>Function ADGlobalGroupRemoveMember (DomainName, GroupName, UserName As String) As Long</source>
+
<declaration>Function ADGlobalGroupRemoveMember (DomainName, GroupName, UserName As String) As Long</declaration>
 
Funkcija '''ADGlobalGroupRemoveMember''' odstrani uporabnika iz domenske skupine v domeni.
 
Funkcija '''ADGlobalGroupRemoveMember''' odstrani uporabnika iz domenske skupine v domeni.
 
{| class="param"
 
{| class="param"
Vrstica 69: Vrstica 69:
 
| '''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''.
 
| '''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''.
 
|}
 
|}
−
<source>ADGlobalGroupRemoveMember ('Ime računalnika', 'Ime skupine', 'Ime Domene\Ime uporabnika')</source>
+
<example>ADGlobalGroupRemoveMember ('Ime računalnika', 'Ime skupine', 'Ime Domene\Ime uporabnika')</example>
  
 
==ADGlobalUserInfo==
 
==ADGlobalUserInfo==
−
<source>Function ADGlobalUserInfo (DomainName, UserName As String) As String</source>
+
<declaration>Function ADGlobalUserInfo (DomainName, UserName As String) As String</declaration>
 
Funkcija '''ADGlobalUserInfo''' nam vrne ime in priimek domenskega uporabnika, če je ta podatek vnešen.
 
Funkcija '''ADGlobalUserInfo''' nam vrne ime in priimek domenskega uporabnika, če je ta podatek vnešen.
 
{| class="param"
 
{| class="param"
Vrstica 81: Vrstica 81:
 
| '''Result''' || ''String'' || Vrne ime in priimek.
 
| '''Result''' || ''String'' || Vrne ime in priimek.
 
|}
 
|}
−
<source>Hint (ADGlobalUserInfo ('Ime domene', 'Ime uporabnika')</source>
+
<example>Hint (ADGlobalUserInfo ('Ime domene', 'Ime uporabnika')</example>
  
 
==ADLocalGroups==
 
==ADLocalGroups==
−
<source>Function ADLocalGroups (DomainName As String) As TStringList</source>
+
<declaration>Function ADLocalGroups (DomainName As String) As TStringList</declaration>
 
Funkcija '''ADLocalGroups''' vrne spisek vseh skupin na lokalnem računalniku.
 
Funkcija '''ADLocalGroups''' vrne spisek vseh skupin na lokalnem računalniku.
 
{| class="param"
 
{| class="param"
Vrstica 91: Vrstica 91:
 
| '''Result''' || ''TStringList'' || Skreira in vrne stringlisto vseh skupin. To stringlisto je potrebno dealocirati.
 
| '''Result''' || ''TStringList'' || Skreira in vrne stringlisto vseh skupin. To stringlisto je potrebno dealocirati.
 
|}
 
|}
−
<source>
+
<example>
 
  Dim SL As TStringList
 
  Dim SL As TStringList
 
  SL = ADLocalGroups ('Ime Računalnika')
 
  SL = ADLocalGroups ('Ime Računalnika')
 
  SL.Save ('C:\temp\ADLocalGroups.txt')
 
  SL.Save ('C:\temp\ADLocalGroups.txt')
 
  Destroy (SL)
 
  Destroy (SL)
−
</source>
+
</example>
  
 
==ADLocalGroupMembers==
 
==ADLocalGroupMembers==
−
<source>Function ADLocalGroupMembers (DomainName, GroupName As String) As TStringList</source>
+
<declaration>Function ADLocalGroupMembers (DomainName, GroupName As String) As TStringList</declaration>
 
Funkcija '''ADLocalGroupMembers''' vrne spisek vseh uporabnikov v lokalni skupini na računalniku.
 
Funkcija '''ADLocalGroupMembers''' vrne spisek vseh uporabnikov v lokalni skupini na računalniku.
 
{| class="param"
 
{| class="param"
Vrstica 108: Vrstica 108:
 
| '''Result''' || ''TStringList'' || Skreira in vrne stringlisto vseh uporabnikov. To stringlisto je potrebno dealocirati.
 
| '''Result''' || ''TStringList'' || Skreira in vrne stringlisto vseh uporabnikov. To stringlisto je potrebno dealocirati.
 
|}
 
|}
−
<source>
+
<example>
 
Sub GetLocalUserGroup (Computer As String)
 
Sub GetLocalUserGroup (Computer As String)
 
   Dim SL, SL1 As TStringList, I as Long
 
   Dim SL, SL1 As TStringList, I as Long
Vrstica 122: Vrstica 122:
 
   Destroy (SL)
 
   Destroy (SL)
 
EndSub
 
EndSub
−
</source>
+
</example>
  
 
==ADLocalGroupAddMember==
 
==ADLocalGroupAddMember==
−
<source>Function ADLocalGroupAddMember (DomainName, GroupName, UserName As String) As Long</source>
+
<declaration>Function ADLocalGroupAddMember (DomainName, GroupName, UserName As String) As Long</declaration>
 
Funkcija '''ADLocalGroupAddMember''' doda uporabnika v lokalno skupino na računalniku.
 
Funkcija '''ADLocalGroupAddMember''' doda uporabnika v lokalno skupino na računalniku.
 
{| class="param"
 
{| class="param"
Vrstica 136: Vrstica 136:
 
| '''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''.
 
| '''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''.
 
|}
 
|}
−
<source>ADLocalGroupAddMember ('Ime računalnika', 'Ime skupine', 'Ime Domene\Ime uporabnika')</source>
+
<example>ADLocalGroupAddMember ('Ime računalnika', 'Ime skupine', 'Ime Domene\Ime uporabnika')</example>
  
 
==ADLocalGroupRemoveMember==
 
==ADLocalGroupRemoveMember==
−
<source>Function ADLocalGroupRemoveMember (DomainName, GroupName, UserName As String) As Long</source>
+
<declaration>Function ADLocalGroupRemoveMember (DomainName, GroupName, UserName As String) As Long</declaration>
 
Funkcija '''ADLocalGroupRemoveMember''' odstrani uporabnika iz lokalne skupine na računalniku.
 
Funkcija '''ADLocalGroupRemoveMember''' odstrani uporabnika iz lokalne skupine na računalniku.
 
{| class="param"
 
{| class="param"
Vrstica 150: Vrstica 150:
 
| '''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''.
 
| '''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''.
 
|}
 
|}
−
<source>ADLocalGroupRemoveMember ('Ime računalnika', 'Ime skupine', 'Ime Domene\Ime uporabnika')</source>
+
<example>ADLocalGroupRemoveMember ('Ime računalnika', 'Ime skupine', 'Ime Domene\Ime uporabnika')</example>
  
 
[[Category: Funkcije, Procedure]]
 
[[Category: Funkcije, Procedure]]
 
[[Category: SDMS Basic]]
 
[[Category: SDMS Basic]]

Redakcija: 12:27, 19. marec 2010

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 (DomainName As String) As TStringList

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

DomainName String Ime domene iz katere želimo spisek skupin.
Result TStringList Ustvari string-listo vseh uporabniških skupin v dani domeni. To string-listo je potrebno po uporabi dealocirati.

<example> 

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

</example>

ADGlobalGroupMembers

Function ADGlobalGroupMembers (DomainName, GroupName As String) As TStringList

Funkcija ADGlobalGroupMembers vrne spisek vseh uporabnikov v domenski skupini.

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.

<example> 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 </example>

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.

<example>ADGlobalGroupAddMember ('Ime računalnika', 'Ime skupine', 'Ime Domene\Ime uporabnika')</example>

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.

<example>ADGlobalGroupRemoveMember ('Ime računalnika', 'Ime skupine', 'Ime Domene\Ime uporabnika')</example>

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.

<example>Hint (ADGlobalUserInfo ('Ime domene', 'Ime uporabnika')</example>

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.

<example> 

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

</example>

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.

<example> 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 </example>

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.

<example>ADLocalGroupAddMember ('Ime računalnika', 'Ime skupine', 'Ime Domene\Ime uporabnika')</example>

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.

<example>ADLocalGroupRemoveMember ('Ime računalnika', 'Ime skupine', 'Ime Domene\Ime uporabnika')</example>

Vzpostavljeno iz »https://wiki.sdms.si/index.php?title=Active_directory&oldid=3483«