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.