本帖最后由 aitest 于 2021-11-8 15:58 编辑
目的:制作成bat,封装管理员密码,转成exe。发给域用户临时安装软件使用
方向:域用户一健完成安装- @echo off
- start /wait D:\ET\64\Everything.exe
- RunAsAdmin()
- Func RunAsAdmin()
- Local $sUserName = "*"
- Local $sPassword = "*"
- Local $DOMAIN = "*"
- Local $pid = RunAs($sUserName,$DOMAIN,$sPassword,0,"Everything.exe","D:\ET\64\Everything.exe",@SW_HIDE)
- EndFunc
复制代码 程序可以启动安装界面,域管理员权限不生效。
试过
@echo off
runas user:* "D:\ET\64\Everything.exe"
程序启动安装,cmd提示需要输入密码 ,微软bat不支持装入密码。请问怎么解决?
最后找到一段:
set WshShell = WScript.CreateObject("WScript.Shell") WshShell.run "runas /user:test %comspec%"
,,Open command prompt
WScript.Sleep 1000
WshShell.SendKeys "111111" "send password WshShell.SendKeys"{ENTER}"
WScript.Sleep 1000
,,open ET
WsheShell.SendKeys Chr(34) + "D:\Everything\Everything.exe" + Chr(34)
WsheShell.SendKeys "{ENTER}"
WsheShell.SendKeys "exit"
,,Close command prompt
WsheShell.SendKeys "{ENTER}"
还是不行,请问哪里错了? |