Premier script VBS: erreur 800A0400

Version imprimable

Bonjour,

Je n'arrive pas à trouver le problème de l'erreur 800A0400 à la ligne 12, caract. 3. Voici le code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
' Script to automate mounting of EncFS volumes
'
' This script must be run from the same directory as
' the encfs.exe file.
'
MountVolume "D:\Documents", "O:", "MotdePasse"
 
Sub MountVolume(crypt, decrypt, pw)
  Set WshShell = WScript.CreateObject("WScript.Shell")
  Dim Cmd
  Cmd = "%COMSPEC% /c echo " & pw & "|""" & WshShell.CurrentDirectory & "\encfs.exe"" """
  & crypt & """ """ & decrypt & """ -S"
  WshShell.Run Cmd, vbHide
End Sub

Merci.

:salut:
Avant d’exécuter la commande, il vaut mieux la "debugger" avec un Wscript.echo ou bien un MsgBox

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
' Script to automate mounting of EncFS volumes
'
' This script must be run from the same directory as
' the encfs.exe file.
'
MountVolume "D:\Documents", "O:", "MotdePasse"
 
Sub MountVolume(crypt, decrypt, pw)
  Set WshShell = WScript.CreateObject("WScript.Shell")
  Dim Cmd
  Cmd = "%COMSPEC% /c echo " & pw & "|""" & WshShell.CurrentDirectory & "\encfs.exe"" """&_
  crypt & """ """ & decrypt & """ -S"
  wscript.echo cmd
End Sub

15/02/2014, 22h15
suitome

Ça fonctionne!! J'avais mis cet underscore au mauvais endroit. :P

Merci!!