首页
论坛
专栏
课程

分享:
专注APT攻击与防御
https://micropoor.blogspot.com/

实战中,需要用bat解决的事情总会碰到,而针对不同的环境,可能同一件事情需要不同的方案。
demo:测试bat
bat 内容:追加到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

如果需要在目标机上执行多个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

上一篇 :
下一篇 :
讨论 (0)
沪ICP备16048531号-1
沪公网安备 31011502006611号