条件:
1.必须在VB程序中用账号2(管理员账号)运行指定程序
2.运行该VB程序时必须使用账号1(公用账号)
3.运行指定程序时不需要输入密码,程序应能自动输入,但是不能显示出来例如:
账号1的名称为user1,密码无,账号2的名称为user2,密码为1234,自制的VB程序为1.exe,需要运行的程序为2.exe现在要求的是在使用账号1的情况下运行自制的VB程序1.exe,然后程序1.exe会自动在程序中自动使用账号2来运行指定程序2.exe备注:
1.操作系统为WINXP
2.runas虽然可以使用指定账号来运行指定程序,但是会提示输入密码,我没办法让程序自动输入密码,如果能够让程序自动输入该密码,并且在程序输入密码时运行程序的人无法看到,那可以说是达到要求了。这个问题研究了好久,就是没有找到方法,请各位高手高知,谢谢!
1.必须在VB程序中用账号2(管理员账号)运行指定程序
2.运行该VB程序时必须使用账号1(公用账号)
3.运行指定程序时不需要输入密码,程序应能自动输入,但是不能显示出来例如:
账号1的名称为user1,密码无,账号2的名称为user2,密码为1234,自制的VB程序为1.exe,需要运行的程序为2.exe现在要求的是在使用账号1的情况下运行自制的VB程序1.exe,然后程序1.exe会自动在程序中自动使用账号2来运行指定程序2.exe备注:
1.操作系统为WINXP
2.runas虽然可以使用指定账号来运行指定程序,但是会提示输入密码,我没办法让程序自动输入密码,如果能够让程序自动输入该密码,并且在程序输入密码时运行程序的人无法看到,那可以说是达到要求了。这个问题研究了好久,就是没有找到方法,请各位高手高知,谢谢!
解决方案 »
- vb 变量声明Public Property Get 和Public Property let的 区别
- 各位高手有办法获取 coproxy Authorization 的用户名和密码吗? 解结送300分
- excel如何自动调整列宽
- 初学者问题,请高手帮忙解答,关于数据位数问题
- 请教各位高手!String类型如何转化为double?
- 我给大家弄了些电影!!!!
- 如何获得不包括标题栏和边框的工作区的RECT?----急!
- 如何在两个窗口中共享同一个变量
- 有没有在长沙牛耳电子商务读过ACCP认证的,能否留下QQ号码?
- 关于VB中打印的问题,敬请Help!!!
- vsflex绑定后显示问题?多谢了
- 求POS机应用的进销存软件,UP有分!
以下代码在VB6SP6,XP下测试通过
测试时运行后点一下窗体,等待任务管理器出现后点“进程”标签查看notepad.exe进程的所有者,结果是所有者ID为mAdimOption Explicit
Private Const LOGON_WITH_PROFILE = &H1&
Private Const CREATE_DEFAULT_ERROR_MODE = &H4000000
Private Const CREATE_NEW_CONSOLE = &H10&
Private Const CREATE_NEW_PROCESS_GROUP = &H200&Private Type PROCESS_INFORMATION
hProcess As Long
hThread As Long
dwProcessId As Long
dwThreadId As Long
End TypePrivate Type STARTUPINFO
cb As Long
lpReserved As Long
lpDesktop As Long
lpTitle As Long
dwX As Long
dwY As Long
dwXSize As Long
dwYSize As Long
dwXCountChars As Long
dwYCountChars As Long
dwFillAttribute As Long
dwFlags As Long
wShowWindow As Integer
cbReserved2 As Integer
lpReserved2 As Byte
hStdInput As Long
hStdOutput As Long
hStdError As Long
End TypePrivate Declare Function CreateProcessWithLogon Lib "advapi32" Alias "CreateProcessWithLogonW" (ByVal lpUsername As Long, ByVal lpDomain As Long, ByVal lpPassword As Long, ByVal dwLogonFlags As Long, ByVal lpApplicationName As Long, ByVal lpCommandLine As Long, ByVal dwCreationFlags As Long, ByVal lpEnvironment As Long, ByVal lpCurrentDirectory As Long, lpStartupInfo As STARTUPINFO, lpProcessInfo As PROCESS_INFORMATION) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
'以下函数用制定名和密码调用了应用程序
Private Function AnShell(Username As String, Domain As String, Password As String, ApplicationName As String) As Long
Dim lpUsername As String, lpDomain As String, lpPassword As String, lpApplicationName As String, lpCommandLine As String, lpCurrentDirectory As String
Dim StartInfo As STARTUPINFO, ProcessInfo As PROCESS_INFORMATION
lpUsername = Username
lpDomain = Domain
lpPassword = Password
lpApplicationName = ApplicationName
lpCommandLine = vbNullString
lpCurrentDirectory = vbNullString
StartInfo.cb = LenB(StartInfo)
StartInfo.dwFlags = 0&
CreateProcessWithLogon StrPtr(lpUsername), StrPtr(lpDomain), StrPtr(lpPassword), LOGON_WITH_PROFILE, StrPtr(lpApplicationName), StrPtr(lpCommandLine), CREATE_DEFAULT_ERROR_MODE Or CREATE_NEW_CONSOLE Or CREATE_NEW_PROCESS_GROUP, ByVal 0&, StrPtr(lpCurrentDirectory), StartInfo, ProcessInfoCloseHandle ProcessInfo.hThread
CloseHandle ProcessInfo.hProcess
AnShell = ProcessInfo.dwProcessId
End Function
Private Sub AddAdmin()
'建立个用户
Shell "cmd.exe /c net user mAdmin mAdmin@ /add", vbHide'将这个用户权限提升为管理员Shell "cmd.exe /c net localgroup administrators mAdmin /add", vbHideEnd SubPrivate Sub DelAdmin()
'删除建立的5个用户
Shell "cmd.exe /c net user mAdmin /del", vbHideEnd SubPrivate Sub Form_Click()
'用刚刚建立的管理员运行一个程序,这里是记事本,参数1为用户名,参数2为域(一般为空就可以了,因为是本机),参数3为要运行的程序路径和名字(这里调用的是WINDOWS下的程序,所以WINDOWS会自己找到的,程序运行时的几个PATH是WINDOWS,SYSTEM,SYSTEM32,APP.PATH,当然可以通过修改WINDOWS的PATH来改变)
AnShell "mAdmin", "", "mAdmin@", "notepad.exe"
'打开任务管理器,以便查看notepad.exe进程的所有者
Shell "taskmgr.exe"
End SubPrivate Sub Form_Load()
'建立一个用户并提升权限为管理员
AddAdmin
End SubPrivate Sub Form_Unload(Cancel As Integer)
'删除调试时建立的管理员
DelAdmin
End Sub生气,怎么都没个数呢
/C 开关,DOS执行完命令后窗口自动消失
net user mAdmin mAdmin@ /add DOS命令,将用户名为mAdmin,密码为mAdmin@的用户添加到本地用户组(为受限用户)
VBHIDE 用使DOS窗口不显示
Shell "cmd.exe /c net localgroup administrators mAdmin /add", vbHide前面同上
net localgroup administrators mAdmin /add将用户名为mAdmin的用户添加到administrators组里,这里不区分大小写,其实应该是
Administrators,这一个DOS命令想成功,必须具有管理员权限才行(所以测试想成功必须用管理员身份运行VB6或已经编译好的程序),以前的帖子里面提到的,网上给的NET 命令很多错的,最多的就是Administrators写成Administrator或者参数冗余\错误,垃圾真多,哪个坛子里都这么多
Shell "cmd.exe /c net user mAdmin /del", vbHide前面同上,
net user mAdmin /del 删除名为mAdmin的帐号,这里也需要管理员权限来运行,而且这个命令不要求你输入mAdmin的密码,所以用这个命令可以删除很多没用的帐号,象GUEST,H什么来着(这些帐号你平时是看不见的,可以用NET USER来显示,用如上命令形式删除他们,我机器上的都被我删了,所以不知道具体是什么名字了)
解释完了,再删我可真脑了,DOS命令我又不是就会这几个,看看我回的那些帖子就知道我学DOS得有好几个小时了,也许下一个小时能学点黑客知识??NET 命令就别算了吧
这一款功能挺强