Thanks, I have solved the problem
proc user_list(): string =
let servername: LPCWSTR = nil
let groupname: LPCWSTR = "Administrators".cstring
let level: DWORD = 1
var bufptr: LPBYTE = nil
var entriesRead, totalEntries: DWORD
var resumeHandle: DWORD_PTR = 0
if NetLocalGroupGetMembers(se
proc user_list(): string =
let servername: LPCWSTR = nil let groupname: LPCWSTR =
"Administrators".cstring let level: DWORD = 1 var bufptr: LPBYTE = nil var
entriesRead, totalEntries: DWORD var resumeHandle: DWORD_PTR = 0
if NetLocalGroupGetMembers(servername, groupname, level, addr bufptr,
