0

私は gui を持つ vb スクリプトを書いており、レジストリにも書き込み、私が持っている証明書をインストールしています。

iexpress を使用しているコードを記述した後、すべてのファイル (cer および reg ファイル) を実行してスクリプトをインストールする exe ファイルを作成します。

問題は、reg と certicate のインストールが表示されないことです。

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
4

1 に答える 1

0

in の変数はtestyes と等しくはなりませんが、6 または 7 です。6 は yes ボタンを表し、7 は no ボタンを表します。

したがって、ifステートメントを実行testすると、6 であるため yes と一致しないため、インストールされず、単にElseコードが含まれていないステートメントに移動します。end if

于 2014-05-07T13:24:40.490 に答える