Discussion :

[alassanediakite]

Salut à tous
Pouvez-vous me donner une solution en vbscript pour enregistrer une ActiveX?
Voici le code que j'ai fais; mais la ligne bleu que j'ai pris dans VBA ne marche pas:

Code :

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

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
Option Explicit
Dim IE
Dim doc 
Dim oFSO
Dim sSrcPath
Dim sDestPath
Dim oFold
Dim sProjectName

 verification("\wiaaut.dll")
 verification("\COMDLG32.OCX")
 'si  les dll et ocx sont là
  'inscrit les dll et ocx
 'sinon 
 'copie
 'inscrit les dll et ocx
 'fin si
function verification (filedllocx) 
 Set oFSO = CreateObject("Scripting.FileSystemObject")
 '0=windows   1=windows\system32 
 if not ofso.FileExists(oFSO.GetSpecialFolder(1).path & filedllocx ) then
  ofso.CopyFile oFSO.GetParentFolderName(Wscript.ScriptFullName) &  filedllocx, oFSO.GetSpecialFolder(1).path & filedllocx 
  Shell "regsvr32 -s """ & oFSO.GetSpecialFolder(1).path & filedllocx & ""
end if
 end function

Merci à tous

[SfJ5Rpw8]

affiche ta commande voir ce que cela donne :

Code :

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

 wscript.Echo  "regsvr32 -s """ & oFSO.GetSpecialFolder(1).path & filedllocx & ""

et montre nous .....

[alassanediakite]

Salut
voici les boites de message en pièce jointe

[ProgElecT]

Au vue de tes pieces jointes, j'essaierai çà

Code :

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

wscript.Echo  "regsvr32 -s " & oFSO.GetSpecialFolder(1).path & filedllocx

car, à mon avis (mais je ne pratique que tres peu VBS), il y a une guillemet de trop.

[alassanediakite]

Salut
Jusqu'à présent pas de réponse à la question: Comment inscrire une dll ou ocx en vbs?
Autrement; quelle est la commande, fonction ou instruction pour inscrire une dll ou ocx une fois que l'on connait le chemin du fichier dll ou ocx?
@+

[SfJ5Rpw8]

ta commande regser... Semble bien... ne peu tu pas mettre le copier le message retournè par le .echo (j ai pas acces aux .zip sur mon telephone...)

[Depite]

Bonjour,
je tombe un peu tard sur ce message mais j'apporte quand même un complément qui pourra toujours servir à ceux qui consulteront cette question à l'avenir.
A mon sens le problème d'échec de la commande vient tout simplement d'une petite faute de syntaxe dans la commande au niveau des guillemets:
Bill, sans doute par précaution, veut encadrer par des guillemets le nom complet du fichier fourni en argument de la commande ragSvr32; prudence louable mais, dans sa chaine de concaténation si les guillemets sont bien ouverts par

Code :

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

"regsvr32 -s """ &

, en revanche ils ne sont pas fermés par

Code :

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

& ""

qui ne fait qu'ajouter aucun caractère à la fin. Il suffit de terminer l'instruction par

Code :

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

& """"

pour résoudre le problème, ce qui donne :

Code :

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

"regsvr32 -s """ & oFSO.GetSpecialFolder(1).path & filedllocx & """"