谁知道用那个api可以清除共享密码!

Question

用NetUserSetInfo修改guest的信息。(注意要用宽字符)
var ui: ^USER_INFO_1;
var MacName: array[0..39] of Char;   // 机器名，本地可设为空
var UserName: array[0..39] of Char;  // 用户名
var Password: array[0..39] of Char;  // 密码
...    if NetUserGetInfo(@MacName, @UserName, 1, Pointer(ui)) = NERR_SUCCESS then
      if ui <> nil then
      begin
        ui.usri1_password := @Password;
        if NetUserSetInfo(@MacName, ui.usri1_name, 1, ui, nil) = NERR_SUCCESS then
          Writeln(S_CHANGE_SUCCESSED);
        NetApiBufferFree(ui);
      end
  end;