Discussion :

[suitome]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[hackoofr]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[suitome]

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

Merci!!