XProfan

Español

Posesiones veces kurz el Betriebsysteme cambiado, en me en el Netz todavía unos pocos Estructuras anzusehen. Hier ya veces el Auslesen el Gruppenbeschreibung como INC:
Kompilieren Marca Separación

************** Lokale_Gruppenbeschreibung_auslesen.INC **************
******* Start der Prozedur zum Auslesen der Gruppenbeschreibung lokaler Gruppen *******

Proc Lese_lokale_Gruppenbeschreibung

    Parameters Gruppenname$
    Declare Fehler&,Buffer_Adresse&,Geterror_buffer$
    DIM ACCOUNT_NAME#,256
    DIM Gu_buffer#,8
    DIM Gu_buffer_a#,261
    LET Fehler&=@EXTERNAL("KERNEL32.DLL","MultiByteToWideChar",0,0,@ADDR(Gruppenname$),-1,ACCOUNT_NAME#,255)
    LET FEHLER&=@External("Netapi32.DLL","NetLocalGroupGetInfo",0,ACCOUNT_NAME#,1,@ADDR(Buffer_Adresse&))

    If fehler&<>0

        Dim Geterror_buffer#,32000
        @External("KERNEL32","FormatMessageA",$1000,0,fehler&,0,Geterror_buffer#,32000,0)
        Let Geterror_buffer$=@String$(Geterror_buffer#,0)
        Dispose Geterror_buffer#
        @Messagebox(Geterror_buffer$,"Ein Fehler ist aufgetreten!",16)

    else

        CLEAR Gu_buffer#
        @External("KERNEL32.DLL","RtlMoveMemory",Gu_buffer#,Buffer_Adresse&,8)
        @External("KERNEL32.DLL","WideCharToMultiByte",0,0,@Long(Gu_buffer#,0),-1,Gu_buffer_a#,261,0,0)
        ADDSTRING @String$(Gu_buffer_a#,0)
        @External("KERNEL32.DLL","WideCharToMultiByte",0,0,@Long(Gu_buffer#,4),-1,Gu_buffer_a#,261,0,0)
        ADDSTRING @String$(Gu_buffer_a#,0)

    Endif

    LET FEHLER&=@External("Netapi32.DLL","NetApiBufferFree",Buffer_Adresse&)
    DISPOSE ACCOUNT_NAME#
    DISPOSE Gu_buffer#
    DISPOSE Gu_buffer_a#

Endproc

******* Ende der Prozedur zum Auslesen der Gruppenbeschreibung lokaler Gruppen *****2>**

Hier Code para Testen:
Kompilieren Marca Separación

 $I Globale_Defs.INC
 $I Lokale_Gruppenbeschreibung_auslesen.INC
Lese_lokale_Gruppenbeschreibun @INPUT$("Lokalen Gruppennamen eingeben:","Gruppe","Administratoren")

Yo hoffe, lo klappt alles...

23.08.2005 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Como fehlte todavía una Clearlist:
Kompilieren Marca Separación

************** Lokale_Gruppenbeschreibung_auslesen.INC **************
******* Start der Prozedur zum Auslesen der Gruppenbeschreibung lokaler Gruppen *******

Proc Lese_lokale_Gruppenbeschreibung

    Parameters Gruppenname$
    Declare Fehler&,Buffer_Adresse&,Geterror_buffer$
    DIM ACCOUNT_NAME#,256
    DIM Gu_buffer#,8
    DIM Gu_buffer_a#,261
    Clearlist
    LET Fehler&=@EXTERNAL("KERNEL32.DLL","MultiByteToWideChar",0,0,@ADDR(Gruppenname$),-1,ACCOUNT_NAME#,255)
    LET FEHLER&=@External("Netapi32.DLL","NetLocalGroupGetInfo",0,ACCOUNT_NAME#,1,@ADDR(Buffer_Adresse&))

    If fehler&<>0

        Dim Geterror_buffer#,32000
        @External("KERNEL32","FormatMessageA",$1000,0,fehler&,0,Geterror_buffer#,32000,0)
        Let Geterror_buffer$=@String$(Geterror_buffer#,0)
        Dispose Geterror_buffer#
        @Messagebox(Geterror_buffer$,"Ein Fehler ist aufgetreten!",16)

    else

        CLEAR Gu_buffer#
        @External("KERNEL32.DLL","RtlMoveMemory",Gu_buffer#,Buffer_Adresse&,8)
        @External("KERNEL32.DLL","WideCharToMultiByte",0,0,@Long(Gu_buffer#,0),-1,Gu_buffer_a#,261,0,0)
        ADDSTRING @String$(Gu_buffer_a#,0)
        @External("KERNEL32.DLL","WideCharToMultiByte",0,0,@Long(Gu_buffer#,4),-1,Gu_buffer_a#,261,0,0)
        ADDSTRING @String$(Gu_buffer_a#,0)

    Endif

    LET FEHLER&=@External("Netapi32.DLL","NetApiBufferFree",Buffer_Adresse&)
    DISPOSE ACCOUNT_NAME#
    DISPOSE Gu_buffer#
    DISPOSE Gu_buffer_a#

Endproc

******* Ende der Prozedur zum Auslesen der Gruppenbeschreibung lokaler Gruppen *****s2>**