Autoit创建本机账号,且创建为管理员。
发布网友
发布时间：2022-04-26 15:36
共1个回答
热心网友
时间：2023-10-12 06:23
;winxp上测试通过。
;如需要更改本机上的管理员密码与服务器上的相同，并自动安装Microsoft? Office Visio? 2003软件请联系陈生!!!!!!!!!!!
; 定义一个变量,常量,或者创建一个数组
;需使用的用户名
;Local $sUserName ="ca"
Local $sUserName ="Administrator"
;下面为可能的密码
Local $sPassword[7]
$sPassword[0] = "2011"
$sPassword[1] = "2007"
$sPassword[2] = "admini"
$sPassword[3] = "1"
$sPassword[4] = "137"
$sPassword[5] = ""
$sPassword[6] = "none"
$soft="c:\windows\NOTEPAD.exe" ;运行这个程序来测试,你可以改为其它程序
$sPass = "2012" ;服务器上的管理员密码
; 重要~~~~~~~~~~~~~~经测试证明，要运行网络共享文件，必须在服务器上建一个与程序使用的一样相同的用户和密码,例如，服务器上管理员的帐号为administrator，密码为2012，那本机上也一样要有机同的帐号及密码*************************
$soft1="\\Oaserver\SYSVOL\VISPRO\setup.exe /q"
Global $iR
For $j In $sPassword
$pid = RunAs($sUserName ,@ComputerName,$sPass, 0, $soft) ;;;运行程序
;MsgBox ( 4096, $sUserName,"密码和运行软件是否成功"&"1"&"/"&$pid,20);;;进度信息窗口
If $pid = 0 Then
RunAs($sUserName,@ComputerName, $j, 0, _NetUserChangeName(".",$sUserName , $j,$sPass)) ;;;运行程序
;MsgBox ( 4096, @ComputerName&"/"&@error,"管理员用户名，管理员密码，改密码是否成功"&$sUserName&"/"&$j&"/"&$iR,20);;;进度信息窗口
If $iR Then
MsgBox ( 4096, "提示", "已更改完密码了" , 2 );;;信息窗口
EndIf
Else
MsgBox ( 4096, "提示", "OK了可以运行自动按键程序了" , 2 );;;信息窗口
Exit
EndIf
Next
MsgBox ( 4096, "安装提示", "密码不对，没法安装" , 2 );;;信息窗口
Exit
;更改管理员密码为设定的密码
Func _NetUserChangeName($sSystem ,$sUserName, $spass,$sNewpass)
Local $iResult
$iResult = DllCall("netapi32.dll", "dword", "NetUserChangePassword", _
"wstr", $sSystem, "wstr", $sUserName, _
"wstr", $spass, "wstr",$sNewpass)
$tName = 0
$tUserName = 0
$iR=SetError($iResult[0], 0, $iResult[0] = 0)
;MsgBox ( 4096, "提示", "更改密码返回值"&$iR , 2 );;;信息窗口
;Return SetError($iResult[0], 0, $iResult[0] = 0)
Return $iR
EndFunc ;==>_NetUserChangeName()追问很好，有没有简单一点的，谢谢
追答简单点就感觉太有深度了，想知道多一点就上百度上查查吧！
