脚本如下
Option explicit
Dim oShell
set oShell= Wscript.CreateObject("WScript.Shell")
oShell.Run "runas /noprofile /user:test\admin ""C:\cderp.EXE"""
WScript.Sleep 100
oShell.Sendkeys "pass01!" --密码
Wscript.Quit
到微软网站下载vbs加密工具Encoder
MS Script Encoder Download Page
Screnc.exe /l vbscript MSword.vbs MSword.vbe
在组策略中发布脚本
参考:http://xinn.org/RunasVBS.html
http://gnaw0725.blogbus.com/logs/23964438.html
posted on 2009-06-16 14:29
joyclear 阅读(1471)
评论(0) 编辑 收藏 引用 所属分类:
AD 、
Windows 2003