XProfan

Español

Descripción:

GetSecurityDescriptorGroup ermittelt el SID el Primären Gruppe uno Objektes de el Security Descriptor. Diese Función hay sólo bajo NT-basierten Windowssystemen.

Deklaration:

Def @Getsecuritydescriptorgroup(3) !ADVAPI32,GetSecurityDescriptorGroup

Parámetro:

1.Parámetro: Bereichsvariable con uno SECURITY_DESCRIPTOR Struktur, de el uno el Primären Gruppe auslesen voluntad.

2.Parámetro: 4 Byte Bereichsvariable, el el Adresse uno SID Struktur aufnimmt, el el Primären Gruppe des Objektes angibt.

3.Parámetro: 2 Byte große Bereichsvariable oder SECURITY_DESCRIPTOR_CONTROL Struktur, deren Valor angibt, si el Primären Gruppe por una Default-Mechanismus festgelegt wurde. (=0 nein, <>0 sí)

Rückgabewert:

1 en Erfolg, 0 en Fehler.

Beispiele:

Kompilieren Marca Separación

Def @Isvalidsecuritydescriptor(1) !"ADVAPI32","IsValidSecurityDescriptor"
Def @Getfilesecurity(5) !"ADVAPI32","GetFileSecurityA"
Def @Getlasterror(0) !"KERNEL32","GetLastError"
Def @Setlasterror(1) !"KERNEL32","SetLastError"
Def @Isvalidsid(1) !"ADVAPI32","IsValidSid"
Def @Lookupaccountsid(7) !"ADVAPI32","LookupAccountSidA"
Def @Getsecuritydescriptorgroup(3) !"ADVAPI32","GetSecurityDescriptorGroup"
Declare Needed#,Sida#,Fehler&,Needed&,Psecurity_descriptor#
Declare Filename$,Sid#,Gflag#,System$
Declare Sid_name_use#,Account_name#,Domain#
Declare Size_account#,Size_domain#
Dim Needed#,4
Let Filename$=@Loadfile$("Datei wählen","*.*")
Addstring "Security Descriptor von "+Filename$
Clear Needed#
Let Fehler&=@Getfilesecurity(@Addr(Filename$),$1 | $2 | $4,0,0,Needed#)
Addstring "Rückgabe von GetFileSecurity="+@Str$(Fehler&)
Addstring "Letzter API-Fehler="+@Str$(@Getlasterror())
Let Needed&=@Long(Needed#,0)
Addstring "Erforderliche Länge des Security Descriptor="+@Str$(Needed&)
Case Needed&=0 : Let Needed&=1024
Dim Psecurity_descriptor#,Needed&
Clear Psecurity_descriptor#
@Setlasterror(0)
Let Fehler&=@Getfilesecurity(@Addr(Filename$),$1 | $2 | $4,Psecurity_descriptor#,Needed&,Needed#)
Addstring "Rückgabe von GetFileSecurity="+@Str$(Fehler&)
Addstring "Letzter API-Fehler="+@Str$(@Getlasterror())
Let Fehler&=@Isvalidsecuritydescriptor(Psecurity_descriptor#)
Addstring "Rückgabe von IsValidSecurityDescriptor="+@Str$(Fehler&)
Addstring "Letzter API-Fehler="+@Str$(@Getlasterror())
Dim Sid#,4
Dim Gflag#,2
Clear Sid#
Clear Gflag#
Let Fehler&=@Getsecuritydescriptorgroup(Psecurity_descriptor#,Sid#,Gflag#)
Addstring "Rückgabe von Getsecuritydescriptorgroup="+@Str$(Fehler&)
Addstring "Letzter API-Fehler="+@Str$(@Getlasterror())
Let Fehler&=@Isvalidsid(@Long(Sid#,0))
Addstring "Rückgabe von IsValidSid für die Primäre Gruppe="+@Str$(Fehler&)
Addstring "Letzter API-Fehler="+@Str$(@Getlasterror())
Let Fehler&=@Isvalidsid(@Long(Sid#,0))
Addstring "Rückgabe von IsValidSid für die Primäre Gruppe="+@Str$(Fehler&)
Addstring "Letzter API-Fehler="+@Str$(@Getlasterror())
Dim Account_name#,256
Dim Size_account#,4
Dim Domain#,256
Dim Size_domain#,4
Dim Sid_name_use#,4
Clear Sid_name_use#,System$
Clear Account_name#,Domain#
Long Size_account#,0=255
Long Size_domain#,0=255
Let Fehler&=@Lookupaccountsid(@Addr(System$),@Long(Sid#,0),Account_name#,Size_account#,Domain#,Size_domain#,Sid_name_use#)
Addstring "Rückgabe von LookupAccountSid="+@Str$(Fehler&)
Addstring "Letzter API-Fehler="+@Str$(@Getlasterror())
Addstring "Reset des API-Fehlers wird durchgeführt"
@Setlasterror(0)
Addstring "die Primäre Gruppe der Datei="+@String$(Account_name#,0)
Addstring "Control Flag="+@Str$(@Word(Gflag#,0))
Dispose Sid_name_use#
Dispose Account_name#
Dispose Domain#
Dispose Size_account#
Dispose Size_domain#
Dispose Needed#
Dispose Psecurity_descriptor#
Dispose Sid#
Dispose Gflag#
@Editbox("R