Français
Stammtisch & le café

LsaRemoveAccountRights

 


Beschreibung:

qui API LsaRemoveAccountRights entfernt de einem Account Privilegien, sofern es sich ici pas um Gruppenprivilegien handelt. cet Funktion gibt es seulement sous NT-basierten Windowssystemen. Privilegien volonté seulement pour dem erneuten Einloggen des speziellen Users aus dem Account entfernt.




Deklaration:

DEF @LsaRemoveAccountRights(5) !advapi32,LsaRemoveAccountRights




paramètre:

1.paramètre: Avec l' LSAOpenPolicy erhaltene Handle des Policy Objektes comme Longint. cela Handle doit avec POLICY_LOOKUP_NAMES ouvert volonté.
2.paramètre: Bereichsvariable avec dem SID des Accounts, aus dem qui Privilegien entfernt volonté devoir.
3.paramètre: Flag qui angibt, si alle Privilegien entfernt werdcen devoir. =>
·1 = Alle Privilegien volonté entfernt.
·0 = seulement qui dans paramètre 4 angegebenen Privilegien volonté entfernt.
4.paramètre: Bereichvariable avec einem Array aus LSA_UNICODE_STRING Strukturen, qui Angaben sur qui trop entfernenden Privilegien contient. =>
·Byte 0-1 = qui longtemps des Cordes dans Bytes, sur den Byte 4-7 verweist.
·Byte 2-3 = qui Longueur des Bereichs dans Bytes, sur den Byte 4-7 verweist.
·Byte 4-7 = Beliebig, mais ausreichend grand Bereichsvariable avec einem String im Unicode Format, qui den Namen eines hinzuzufügenden Privilegs contient.
·Byte 8-9 = qui longtemps des Cordes dans Bytes, sur den Byte 12-15 verweist.
·Byte 10-11 = qui Longueur des Bereichs dans Bytes, sur den Byte 12-15 verweist.
·Byte 12-15 = Beliebig, mais ausreichend grand Bereichsvariable avec einem String im Unicode Format, qui den Namen eines hinzuzufügenden Privilegs contient.
·usw...
5.paramètre: qui Nombre de trop entfernenden Privilegien aus paramètre 4.



Rückgabewert:

0 chez Erfolg, ansonsten un NT-Status Fehlercode (LongInt), qui avec LsaNtStatusToWinError dans une Systemfehlercode umgewandelt volonté peux.


Beispiele:

DEF @LsaOpenPolicy(4) !"advapi32","LsaOpenPolicy"
DEF @LsaClose(1) !"advapi32","LsaClose"
DEF @LsaNtStatusToWinError(1) !"advapi32","LsaNtStatusToWinError"
DEF @LsaRemoveAccountRights(5) !"advapi32","LsaRemoveAccountRights"
DEF @MultiByteToWideChar(6) !"kernel32","MultiByteToWideChar"
DEF @LookupAccountName(7) !"advapi32","LookupAccountNameA"
DEF @GetACP(0) !"kernel32","GetACP"
Déclarer Fehler&,UNICODE#,Attribut#,POLICY_Handle#
Déclarer Policy_Handle&,PrivilegSET#,PRIVILEG#
Déclarer SID#,DOMAIN#,SID_TYPE_INDICATOR#,DOMAIN#,Attribut#,ALLPRIVS#,COUNT#,SID#,DOMAINNAME_SIZE_ADDR#
Déclarer SYSTEM$,DOMAIN$,SID_Size#,Account$
Struct LSA_UNICODE_STRING=Length%,MaximumLength%,Buffer&
DIM UNICODE#,LSA_UNICODE_STRING
Claire UNICODE#
Struct LSA_OBJECT_ATTRIBUTES=Length&,RootDirectory&,Length%,MaximumLength%,Buffer&,Attributes&,SecurityDescriptor#(4),SecurityQualityOfService#(4)
DIM Attribut#,LSA_OBJECT_ATTRIBUTES
Claire Attribut#
DIM ALLPRIVS#,2000
DIM COUNT#,4
DIM DOMAIN#,256
DIM SID#,800
DIM SID_Size#,4
DIM DOMAINNAME_SIZE_ADDR#,4
DIM SID_TYPE_INDICATOR#,256
DIM POLICY_Handle#,4
DIM PRIVILEG#,100
DIM PrivilegSET#,100
Windowstyle 31
Windowtitle "Aus einem Account cela Privileg zum Changement qui Systemzeit entfernen."
Fenêtre 0,0-640,440
CLEAR SID#,DOMAIN#,SID_TYPE_INDICATOR#,DOMAIN#,Attribut#,ALLPRIVS#,COUNT#,SID#,DOMAINNAME_SIZE_ADDR#
Long SID_Size#,0=800
LONG DOMAINNAME_SIZE_ADDR#,0=255
LET SYSTEM$=»
LET ACCOUNT$=@input$("Accountnamen eingeben (ne...aucune Alias):","Account","Gast")
LET Fehler&=@LookupAccountName(@ADDR(System$),@addr(ACCOUNT$),SID#,SID_Size#,DOMAIN#,DOMAINNAME_SIZE_ADDR#,SID_TYPE_INDICATOR#)
Imprimer "Rückmeldung de LookupAccountName="+@STR$(Fehler&)

Si Fehler&=1

    LET Fehler&=@LsaOpenPolicy(0,Attribut#,$10 | $0800,POLICY_Handle#)
    Imprimer "Rückmeldung de LsaOpenPolicy="+@STR$(Fehler&)
    Laisser Fehler&=@LsaNtStatusToWinError(Fehler&)
    PRINT "LsaOpenPolicy Rückmeldung umgewandelt dans Windows Fehlercode="+@STR$(Fehler&)
    LET Policy_Handle&=@LONG(POLICY_Handle#,0)
    Imprimer "Geliefertes Handle="+@STR$(Policy_Handle&)

    IF Fehler&=0

        CLEAR UNICODE#,PrivilegSET#,PRIVILEG#
        STRING PrivilegSET#,0="SeSystemtimePrivilege"
        LET Fehler&=@MultiByteToWideChar(@GetACP(),0,PRIVILEGSET#,-1,PRIVILEG#,100)
        Imprimer "Rückmeldung de MultiByteToWideChar="+@STR$(Fehler&)
        UNICODE#.Buffer&=PRIVILEG#
        UNICODE#.Length%=@LEN("SeSystemtimePrivilege")*2
        UNICODE#.MaximumLength%=100
        LET Fehler&=@LsaRemoveAccountRights(Policy_Handle&,SID#,0,UNICODE#,1)
        Imprimer "Rückmeldung de LsaRemoveAccountRights="+@STR$(Fehler&)
        Laisser Fehler&=@LsaNtStatusToWinError(Fehler&)
        PRINT "LsaRemoveAccountRights Rückmeldung umgewandelt dans Windows Fehlercode="+@STR$(Fehler&)
        LET Fehler&=@LsaClose(Policy_Handle&,0)
        Imprimer "Rückmeldung de LsaClose="+@STR$(Fehler&)
        Laisser Fehler&=@LsaNtStatusToWinError(Fehler&)
        PRINT "LsaClose Rückmeldung umgewandelt dans Windows Fehlercode="+@STR$(Fehler&)

    Endif

endif

Dispose POLICY_Handle#
Dispose ALLPRIVS#
Dispose COUNT#
Dispose DOMAIN#
Dispose SID#
Dispose SID_Size#
Dispose DOMAINNAME_SIZE_ADDR#
Dispose SID_TYPE_INDICATOR#
Dispose POLICY_Handle#
Dispose PRIVILEG#
Dispose PrivilegSET#

Tandis que 0=0

    Waitinput

Wend

 
08.04.2005  
 



répondre


Topictitle, max. 100 marque.
 

Systemprofile:

ne...aucune Systemprofil angelegt. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

s'il te plaît s'inscrire um une Beitrag trop verfassen.
 

Options du sujet

2.947 Views

Untitledvor 0 min.

Themeninformationen

cet Thema hat 1 participant:

unbekannt (1x)


Admins  |  AGB  |  Applications  |  Auteurs  |  Chat  |  protection des données  |  Télécharger  |  Entrance  |  Aider  |  Merchantportal  |  Empreinte  |  Mart  |  Interfaces  |  SDK  |  Services  |  Jeux  |  cherche  |  Support

un projet aller XProfaner, qui il y a!


Mon XProfan
Privé Nouvelles
Eigenes Ablageforum
Sujets-La liste de voeux
Eigene Posts
Eigene Sujets
Zwischenablage
Annuler
 Deutsch English Français Español Italia
Traductions

protection des données


Wir verwenden Cookies seulement comme Session-Cookies à cause de qui technischen Notwendigkeit et chez uns gibt es aucun Cookies de Drittanbietern.

si du ici sur unsere Webseite klickst ou bien navigierst, stimmst du unserer Erfassung de Informationen dans unseren Cookies sur XProfan.Net trop.

Weitere Informationen trop unseren Cookies et en supplément, comment du qui Kontrolle par-dessus behältst, findest du dans unserer nachfolgenden Datenschutzerklärung.


d'accordDatenschutzerklärung
je voudrais keinen Cookie