VBS > EXE

Version imprimable

VBS > EXE

Bonjour,

J'ai quelques lignes dans un fichier .vbs qui fonctionnent très bien. Les voici :
Code:

1 2 3 4 5 6 7 8 Dim SourceFld : SourceFld = "N:\...\...\...\...\" Dim CHMFile : CHMFile = "InfoPedia.chm" Dim TempFld : TempFld = CreateObject("WScript.Shell").ExpandEnvironmentStrings("%TEMP%") & "\" With CreateObject("Scripting.FileSystemObject") .CopyFile SourceFld & CHMfile, TempFld & CHMfile End With WScript.CreateObject("WScript.Shell").Run Chr(34) & TempFld & CHMFile & Chr(34)
Ce code est placé sur une partie du réseau accessible à tous les utisateurs.

Mon problème : dès que je transforme ce fichier en .exe, il plante avec l'erreur : "La version de ce fichier est incompatible avec la version de windows que vous utilisez. Consultez les informations système de l'ordinateur pour savoir si vous avez besoin d'une version x86 (32 bits) ou x64 (64 bits), puis contactez l'éditeur du logiciel."

Et s'il est mis en .bat, c'est pas mieux. Une idée pour que cela fonctionne ?

D'après le message, il y a incompatibilité avec Windows

On peut :
- soit à partir de Propriétés du fichier .exe, onglet Compatibilité mettre celle qui convient
- soit incorporer le code suivant au script existant en modifiant ce qu'il faut(j'ai mis WINXP) et la modification de la compatibilité est automatique.
Il ne faut pas oublier de relancer une seconde fois le script(ou le fichier compilé) pour que les modifications prennent effet et que le script compilé
doit porter le même nom que le script .vbs(avec l'extension .exe) :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Option Explicit
 
  Const HKCU = &H80000001, REG_SZ = 1
  Const sPath = "Software\Microsoft\Windows NT\CurrentVersion\AppCompatFlags\Layers"
  Dim WshShell, wmiLocator, wshNetwork, wmiNameSpace, objReg, lRC
  Dim Mycomputer, DestValue, fso
 
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set wmiLocator = CreateObject("WbemScripting.SWbemLocator")
    Set wshNetwork = CreateObject("WScript.Network")
    Mycomputer = wshNetwork.ComputerName
    Set wmiNameSpace = wmiLocator.ConnectServer(Mycomputer, "root\default")
    Set objReg = wmiNameSpace.Get("StdRegProv")
    DestValue = WScript.ScriptFullName
    DestValue = Left(DestValue,Len(DestValue)-3) & "exe"
 
    WriteCompatibleEntry HKCU, sPath
 
'==============================
 Sub WriteCompatibleEntry(sHive, sPath)
    Dim sNames, sKeyName, sValue
    If Not fso.FileExists(DestValue) Then 
       MsgBox "Le fichier " & DestValue & " n'existe pas "
       Exit Sub
    End If
    lRC = objReg.EnumValues(sHive, sPath, sNames, REG_SZ)
    For Each sKeyName In sNames
      If Err.Number <> 0 Then Exit For
      If sKeyName = DestValue Then
        lRC = objReg.GetStringValue(sHive ,  sPath, DestValue,  sValue) ' La valeur existe-elle ?
        If lRC = 0 Then  Exit For  ' Si oui, on sort de la boucle
      Else  ' Sinon on l'écrit avec sa donnée
          lRC = objReg.SetStringValue(sHive, sPath, DestValue, "WINXP")
      End If
    Next
End Sub

25/03/2015, 07h52
QuestVba

Bonjour,

Ben c'est un problème de réseau. L'entreprise refuse les *.exe sur notre "N:". Donc, seule solution, un bidouillage personnel. Merci.