?? adduser.~dpr
字號:
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.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -