首页 > 代码库 > windows 脚本
windows 脚本
sudo.vbs
http://blog.csdn.net/qidi_huang/article/details/52242053
c:\windows\sudo.vbs
‘ShellExecute 方法 ‘作用: 用于运行一个程序或脚本。 ‘语法 ‘ .ShellExecute "application", "parameters", "dir", "verb", window ‘ .ShellExecute ‘some program.exe‘, ‘"some parameters with spaces"‘, , "runas", 1 ‘关键字 ‘ application 要运行的程序或脚本名称 ‘ parameters 运行程序或脚本所需的参数 ‘ dir 工作路径,若未指定则使用当前路径 ‘ verb 要执行的动作 (值可以是 runas/open/edit/print) ‘ runas 动作通常用于提升权限 ‘ window 程序或脚本执行时的窗口样式 (normal=1, hide=0, 2=Min, 3=max, 4=restore, 5=current, 7=min/inactive, 10=default) Set UAC = CreateObject("Shell.Application") Set Shell = CreateObject("WScript.Shell") If WScript.Arguments.count<1 Then WScript.echo "语法: sudo <command> [args]" ElseIf WScript.Arguments.count=1 Then UAC.ShellExecute WScript.arguments(0), "", "", "runas", 1 ‘ WScript.Sleep 1500 ‘ Dim ret ‘ ret = Shell.Appactivate("用户账户控制") ‘ If ret = true Then ‘ Shell.sendkeys "%y" ‘ Else ‘ WScript.echo "自动获取管理员权限失败,请手动确认。" ‘ End If Else Dim ucCount Dim args args = NULL For ucCount=1 To (WScript.Arguments.count-1) Step 1 args = args & " " & WScript.Arguments(ucCount) Next UAC.ShellExecute WScript.arguments(0), args, "", "runas", 5 End If
windows 脚本
声明:以上内容来自用户投稿及互联网公开渠道收集整理发布,本网站不拥有所有权,未作人工编辑处理,也不承担相关法律责任,若内容有误或涉及侵权可进行投诉: 投诉/举报 工作人员会在5个工作日内联系你,一经查实,本站将立刻删除涉嫌侵权内容。