VBscript应用程序启动器

Question

由于新的供应商编程变更，我有一个奇怪的要求。

我们使用C：\ windows \ system32中的dnscmd.exe程序自动设置DNS记录。

供应商现在进行了更改，限制我们运行位于特定目录（而不是system32）中的脚本。

我需要一个可以执行C：\ windows \ system32 \ dnscmd.exe的VBscript并让我动态提供交换机。

EX：我能做到

dnscmd.vbs /recordadd blahblah blah
dnscmd.vbs /recorddelete blahblah blah

Answer 1

你走了：

Dim oShell : Set oShell = WScript.CreateObject ("WScript.Shell")
'separate commands by "&" symbols
dim commands(1)
commands(0) = "dnscmd.exe /recordadd blahblah blah"
commands(1) = "dnscmd.exe /recorddelete blahblah blah"

'....continue....

oShell.run "cmd /K CD C:\windows\system32\ & " join(commands, " & ")
Set oShell = Nothing