使用vbscript安装应用程序

Question

我想将此cmd命令转换为vb脚本或powershell

c:\windows\system32\certutil.exe -f -addstore "TrustedPublisher" "Mycert.cer"

我的问题是在“TrustedPublisher”“Mycert.cer”之间创建空间

由于

Answer 1

使用

1. 处理引用的功能
2. 用于存储命令组件的数组
3. Join()处理空格/分隔符

在structured way中构建命令行。在代码中：

Option Explicit

Function qq(s) : qq = """" & s & """" : End Function

Dim aParts : aParts = Array( _
      qq("c:\windows\system32\certutil.exe") _
    , "-f" _
    , "-addstore" _
    , qq("TrustedPublisher") _
    , qq("Mycert.cer") _
)
Dim sCmd : sCmd = Join(aParts)
WScript.Echo sCmd

输出：

cscript 29649158.vbs
"c:\windows\system32\certutil.exe" -f -addstore "TrustedPublisher" "Mycert.cer"

Answer 2

在vbscript中，字符串用引号括起来。要在字符串中加上引号，请为每个引号使用""。

"""c:\windows\system32\wordpad"" ""c:\windows\win.ini"""

表示字符串包含

"c:\windows\system32\wordpad" "c:\windows\win.ini"

Answer 3

你也可以尝试这样的代码：

Option Explicit
Dim MyCmd,Ws
Set Ws = CreateObject("Wscript.Shell")
MyCmd = "c:\windows\system32\certutil.exe -f -addstore "& DblQuote("TrustedPublisher") &" "& DblQuote("Mycert.cer") &""
MsgBox MyCmd
ws.run MyCmd
'**************************************************************************
'Adding Double quotes into variable
Function DblQuote(Str)
    DblQuote = Chr(34) & Str & Chr(34)
End Function
'**************************************************************************