如何编写一个VB脚本，添加reg并安装cer - 我已经在exe包中

我正在写一个vb脚本，它有gui，并且还会写入注册表，并安装我拥有的证书。如何编写一个VB脚本，添加reg并安装cer - 我已经在exe包中

写完代码后我使用iexpress创建一个exe文件，它将运行所有文件（cer和reg文件）并安装我的脚本。

问题是我没有看到注册和证书安装。

test=MsgBox("To configure wsus on you pc",4,"Wsus installation") 
If test = yes Then 

Set WshShell = Wscript.CreateObject("Wscript.Shell") 
shell 'regedit -add "\\WSUS.reg"' 
shell 'certmgr -add -c "\\wsus.cer" -s -r localMachine root' 
shell 'certmgr -add -c "\\wsus.cer" -s -r localMachine trustedpublisher' 

RestartServices "localhost", "wuauserv" 
If Err.Number <> 0 Then 
MsgBox (Err.number & "-" & err.Description) 
else 
MsgBox "Certificate Install completed" 
End If 

Else 

End If

来源

2014-05-07 user3433101

无码Else声明中有你定义的是作为6？ [链接]（http://msdn.microsoft.com/en-gb/library/139z2azd(v=vs.90).aspx） – Rob1991

什么？我不这么认为。 – user3433101

和问题是，我没有看到它的工作（reg和cer） – user3433101

在test变量将不等于肯定的，但6或7，6表示是按钮，7表示没有按钮。

所以当你做if语句，因为test不匹配是因为它是6不会安装和简单地去到在它之前end if

来源

2014-05-07 13:24:40 Rob1991

好吧，那么你会怎么写它，没有gui？ – user3433101

我只写了：Set WshShell = Wscript.CreateObject（“Wscript.Shell”） shell'regedit -add“\\ WSUS.reg'' shell'certmgr -add -c”\\ wsus.cer“-s -r localMachine root' shell'certmgr -add -c“\\ wsus.cer”-s -r localMachine trustedpublisher' RestartServices“localhost”，“wuauserv” – user3433101

仍然不能正常工作，它不是gui .. – user3433101

如何编写一个VB脚本，添加reg并安装cer - 我已经在exe包中

回答

相关问题