如何添加administrator?

如何添加administrator?,第1张

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.

就这样。。


欢迎分享,转载请注明来源:内存溢出

原文地址: https://outofmemory.cn/bake/11199157.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2023-05-14
下一篇 2023-05-14

发表评论

登录后才能评论

评论列表(0条)

保存