var
errCode :DWORD;
....
errCode := NetServerEnum(nil, 101, Buffer, MAX_PREFERRED_LENGTH, EntriesRead,
TotalEntries, ServerType, PDomainUnicode, ResumeHandle);
....         NetWkstaSetUID2 (char *                  pszReserved,
                      char *                  pszDomain,
                      char *                  pszUserName,
                      char *                  pszPassword,
                      char *                  pszParms,
                      unsigned short          usLogoffForce,
                      short                  sLevel,
                      char *                  pbBuffer,
                      unsigned short          cbBuffer,
                      unsigned short          pcTotalAvail
     );