第四十五課:解決bat一句話下載payload黑窗
專注APT攻擊與防御
https://micropoor.blogspot.com/

實(shí)戰(zhàn)中,需要用bat解決的事情總會碰到,而針對不同的環(huán)境,可能同一件事情需要不同的方案。
demo:測試bat
bat 內(nèi)容:追加到bat.txt里。
附代碼:

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

但是代碼過長,需要追加寫入。需要簡化下代碼。
附代碼:

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

如果需要在目標(biāo)機(jī)上執(zhí)行多個bat,如果需要把代碼中的bat.bat變成變量的話。
附代碼:

1 If WScript.Arguments.Count >= 1 Then
2 ReDim arr(WScript.Arguments.Count‐1)
3 For i = 0 To WScript.Arguments.Count‐1
4 Arg = WScript.Arguments(i)
5 If InStr(Arg, " ") > 0 Then Arg = """" & Arg & """"
6 arr(i) = Arg
7 Next
8
9 RunCmd = Join(arr)
10 CreateObject("Wscript.Shell").Run RunCmd, 0, True
11 End If

Micropoor
?