' L_Welcome_MsgBox_Message_Text    = "This script will set the virtual drives."
' L_Welcome_MsgBox_Title_Text      = "Windows Scripting Host Sample"
' Call Welcome()


' ********************************************************************************
' *
' * Set drives
' *
CRLF = Chr(13) & Chr(10)


Dim VCDApi
Set VCDApi = WScript.CreateObject("Vc9api.Api")


Sub show_env(strText)
    MsgBox strText, vbInformation, L_Welcome_MsgBox_Title_Text
End Sub

VCDApi.VCDSetDebug(1)

result = VCDApi.VCDSetDriveLetters("F")
' show_env(result)


' ********************************************************************************
' *
' * Message box
' *
' Sub Welcome()
'     Dim intDoIt
' 
'     intDoIt =  MsgBox(L_Welcome_MsgBox_Message_Text, _
'                       vbOKCancel + vbInformation,    _
'                       L_Welcome_MsgBox_Title_Text )
'     If intDoIt = vbCancel Then
'         WScript.Quit
'     End If
' End Sub