asp 流量统计
随笔-81  评论-28  文章-2  trackbacks-0

脚本如下

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 阅读(1174) 评论(0)  编辑 收藏 引用 所属分类: ADWindows 2003
只有注册用户登录后才能发表评论。