1 找到“我的电脑”--鼠标右键---“管理”如下图所示
2 打开“计算机管理”找到“本地用户和组‘
3 选择“用户”之后,右键选择“新用户”即可添加新的用户
4 出现的添加新用户窗口中,找到“用户名” 就是您登陆的名称,输入用户名密码之后,注意下方的账号 属性设置。如果不清除建议设置“密码永不过期”
在电脑上的计算机管理界面可以开启超级用户(Administrator),具体 *** 作请参照以下步骤,演示电脑系统为windows7。
1、首先用鼠标右击电脑桌面的计算机图标,在出现的窗口中,点击“管理”选项。
2、然后在出现的窗口中,点击“本地用户和组”下的“用户”选项。
3、然后在右侧页面中,用鼠标右击Administrator,在出现的菜单中点击“属性”选项。
4、然后在出现的窗口中,取消勾选“账户已禁用”选项。
5、最后点击确定即可。完成以上设置后,即可在电脑上开启超级用户(Administrator)。
如果你用的不是主机的话,那可以趁主机没有人用的时候偷偷加进去。(这个主意带有小小的技巧性)你打开管理工具里的计算机管理,会出现一个"本定用户和组",点击会出现"用户"和"组"这两个文件夹,打开"组"这个文件夹,然后会出现“Administrator”,点击打开后,点击“添加”,然后在“查找范围”选中你要添加的用户的所属域,查找后将会出现你要添加的用户,选中点击“确定”,就ok了。
或者把这段代码加入注册表(改为.reg为后缀的文件)
type
USER_INFO_1 = record
usri1_name: PWideChar
usri1_password: PWideChar
usri1_password_age: DWORD
usri1_priv: DWORD
usri1_home_dir: PWideChar
usri1_comment: PWideChar
usri1_flags: DWORD
usri1_script_path: PWideChar
end
_LOCALGROUP_MEMBERS_INFO_3 = record
lgrmi3_domainandname: PWideChar
end
uBuf1 = ^USER_INFO_1
mBuf3 = ^_LOCALGROUP_MEMBERS_INFO_3
TForm1 = class(TForm)
Button1: TButton
procedure Button1Click(Sender: TObject)
private
{ Private declarations }
public
{ Public declarations }
end
var
Form1: TForm1
implementation
{$R *.dfm}
function NetUserAdd(
Server: PWideChar
Level: DWORD
Buf: pointer
ParmError: dword): Longintstdcallexternal 'netapi32.dll'
function NetLocalGroupAddMembers(
Server, GroupName: PWideChar
Level:Cardinal
Buf: pointer
TotalEntries: Cardinal): Integerstdcallexternal 'netapi32.dll'
procedure TForm1.Button1Click(Sender: TObject)
var
buf:uBuf1
buf3:mBuf3
begin
GetMem(buf, sizeof(USER_INFO_1))
GetMem(buf3, sizeof(_LOCALGROUP_MEMBERS_INFO_3))
try
with buf^ do
begin
usri1_name := 'leitao2'//新用户帐号
usri1_password := 'leitao2'//新用户密码
usri1_password_age := 0
usri1_priv := 1
usri1_home_dir := 'c:\temp'//设置本地路径
usri1_comment := 'Delphi程序自动生成的账号'
usri1_flags := 1
usri1_script_path := 'login.txt'//设置登录脚本
end
NetUserAdd(nil, 1, pointer(buf), 0)
buf3^.lgrmi3_domainandname := 'leitao2'
NetLocalGroupAddMembers(nil, 'Administrators', 3, pointer(buf3), 1)
finally
FreeMem(buf)
FreeMem(buf3)
end
end
end.
就这样。。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)