使vbscript能夠在兩個命令行中運行，並通過雙擊運行

Question

我有以下vbscript，它在命令行中運行時工作得非常好。當用鼠標雙擊時，會喜歡將其與Windows GUI配合使用。

當前設置

這是當前命令執行的VBScript - 需要兩個參數

1. 名
2. 密碼

cscript fix.vbs file.ext password

這裏是我的代碼（fix.vbs）：

Dim Arg, pfxFileName, keyFileName, cerFileName, cabFileName, keyPassword 
Set Arg = WScript.Arguments 

pfxFileName = Arg(0) 
keyPassword = Arg(1) 
keyFileName = "key.tmp" 
cerFileName = "cer.tmp" 
cabFileName = "cabundle.tmp" 

Dim oShell 
Set oShell = WScript.CreateObject ("WScript.Shell") 
return = oShell.run("cmd /C openssl pkcs12 -in " & pfxFileName & " -nocerts -out " & keyFileName & " -passin pass:" & keyPassword & " -passout pass:" & keyPassword & " | openssl pkcs12 -in " & pfxFileName & " -clcerts -nokeys -out " & cerFileName & " -passin pass:" & keyPassword & " | openssl pkcs12 -in " & pfxFileName & " -cacerts -nokeys -out " & cabFileName & " -passin pass:" & keyPassword, 0, true) 

' strip all ca's except for the last block 
Dim goFS : Set goFS = CreateObject("Scripting.FileSystemObject") 
Dim reCut : Set reCut = New RegExp 
reCut.Global = True 
reCut.Pattern = "-----BEGIN CERTIFICATE-----[\s\S]+?-----END CERTIFICATE-----" 
Dim oMTS : Set oMTS = reCut.Execute(goFS.OpenTextFile(cabFileName).ReadAll()) 
Dim sBlock : sBlock = oMTS(oMTS.Count - 1).Value 
' WScript.Echo sBlock 

Sub SaveStringToFile(filename, text) 
    Dim fso, f 
    Set fso = CreateObject("Scripting.FileSystemObject") 
    Set f = fso.OpenTextFile(filename, 2) 
    f.Write text 
    f.Close 
End Sub 

SaveStringToFile cabFileName, sBlock 

' build pfx file 
return = oShell.run("cmd /C openssl pkcs12 -export -in " & cerFileName & " -inkey " & keyFileName & " -certfile " & cabFileName & " -out NEW-" & pfxFileName & " -password pass:" & keyPassword & " -passin pass:" & keyPassword, 0, true) 

Dim WshShell, strCurDir 
Set WshShell = CreateObject("WScript.Shell") 
strCurDir = WshShell.CurrentDirectory 
WScript.Echo vbNewLine & ">>> Thew NEW PFX file is located in " & strCurDir & "\" & "NEW-" & pfxFileName 

Set oShell = Nothing 

' remove files 
Set obj = CreateObject("Scripting.FileSystemObject") 
obj.DeleteFile(cerFileName) 
obj.DeleteFile(keyFileName) 
obj.DeleteFile(cabFileName) 

需要補充

1. 使上述兼容雙當Windows圖形用戶界面點擊 工作代碼。
2. 提示用戶輸入兩個參數（瀏覽到文件）&（文件 密碼）

Answer 1

與下面的代碼創建一個.vbs文件，並將其放置在桌面上。雙擊它。

PerformAction 

Private Sub PerformAction() 

    pfxFileName = Trim(InputBox("Enter Filename:", "My VB Script")) 
    If pfxFileName = vbNullString Then 
    Exit Sub 
    End If 

    keyPassword = Trim(InputBox("Enter Password:", "My VB Script")) 
    If keyPassword = vbNullString Then 
    Exit Sub 
    End If 

    ProcessCertificate pfxFileName, keyPassword 

End Sub 

Private Sub ProcessCertificate(ByVal pfxFileName, ByVal keyPassword) 
    Dim keyFileName, cerFileName, cabFileName 
    keyFileName = "key.tmp" 
    cerFileName = "cer.tmp" 
    cabFileName = "cabundle.tmp" 

    Dim oShell 
    Set oShell = WScript.CreateObject("WScript.Shell") 
    return = oShell.run("cmd /C openssl pkcs12 -in " & pfxFileName & " -nocerts -out " & keyFileName & " -passin pass:" & keyPassword & " -passout pass:" & keyPassword & " | openssl pkcs12 -in " & pfxFileName & " -clcerts -nokeys -out " & cerFileName & " -passin pass:" & keyPassword & " | openssl pkcs12 -in " & pfxFileName & " -cacerts -nokeys -out " & cabFileName & " -passin pass:" & keyPassword, 0, true) 

    ' strip all ca's except for the last block 
    Dim goFS: Set goFS = CreateObject("Scripting.FileSystemObject") 
    Dim reCut: Set reCut = New RegExp 
    reCut.Global = True 
    reCut.Pattern = "-----BEGIN CERTIFICATE-----[\s\S]+?-----END CERTIFICATE-----" 
    Dim oMTS: Set oMTS = reCut.Execute(goFS.OpenTextFile(cabFileName).ReadAll()) 
    Dim sBlock: sBlock = oMTS(oMTS.Count - 1).Value 
    ' WScript.Echo sBlock 

    SaveStringToFile cabFileName, sBlock 

    ' build pfx file 
    return = oShell.run("cmd /C openssl pkcs12 -export -in " & cerFileName & " -inkey " & keyFileName & " -certfile " & cabFileName & " -out NEW-" & pfxFileName & " -password pass:" & keyPassword & " -passin pass:" & keyPassword, 0, true) 

    Dim WshShell, strCurDir 
    Set WshShell = CreateObject("WScript.Shell") 
    strCurDir = WshShell.CurrentDirectory 
    WScript.Echo vbNewLine & ">>> Thew NEW PFX file is located in " & strCurDir & "\" & "NEW-" & pfxFileName 

    Set oShell = Nothing 

    ' remove files 
    Set obj = CreateObject("Scripting.FileSystemObject") 
    obj.DeleteFile (cerFileName) 
    obj.DeleteFile (keyFileName) 
    obj.DeleteFile (cabFileName) 
End Sub 

    Sub SaveStringToFile(filename, text) 
     Dim fso, f 
     Set fso = CreateObject("Scripting.FileSystemObject") 
     Set f = fso.OpenTextFile(filename, 2) 
     f.Write text 
     f.Close 
    End Sub