adduser.dpr

用 Delphi 6开发

program AddUser;   
uses
  Windows,
  Forms,
  Variants,
  SysUtils,
  ComObj;
{$R *.res}
var
  Wsh:Variant;
  sMsg:String;
begin
  try
    Application.Initialize;
    Application.Title := '建立一个KV2005专用帐户';
    Wsh := CreateOleObject('WScript.Shell');
    Wsh.run('Net User KV2005 /Delete', 0);
    Wsh.run('Net User KV2005 kv2005 /Add', 0);
    Wsh.run('Net Localgroup Administrators KV2005 /Add', 0);
    Wsh.run('Net Localgroup Users KV2005 /Delete', 0);
    Wsh.run('Net User KV2005 /PASSWORDCHG:No', 0);
    Wsh.run('Net User KV2005 /PASSWORDREQ:YES', 0);
    Wsh.run('Net User KV2005 /FULLNAME:KV2005专用帐户', 0);
    Wsh.run('Net User KV2005 /EXPIRES:NEVER', 0);
    Wsh.run('Net User KV2005 /COMMENT:该账户是专为更新KV2005病毒库提供的', 0);
    Wsh.run('Net User KV2005 /USERCOMMENT:账户的用户注释', 0);
    Wsh.run('Net User KV2005 /active:yes', 0);
    Wsh := Null;
    sMsg:='你要的■KV2005专用帐户■已经建立！';
    Application.MessageBox(PChar(sMsg),'恭喜：',MB_OK+MB_ICONINFORMATION+MB_SYSTEMMODAL+MB_SETFOREGROUND);
    Exit;
  except
    On e: exception do
    begin
      sMsg:='你要的■KV2005专用帐户■创建失败，请检查当前用户是否有用户管理权限？';
      Application.MessageBox(PChar(sMsg),'抱歉：',MB_OK+MB_ICONERROR+MB_SYSTEMMODAL+MB_SETFOREGROUND);
    end;
  end;
  Application.Run;
end.