inscription de OCX et de DLL

Version imprimable

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:

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

17/08/2009, 15h42
SfJ5Rpw8

affiche ta commande voir ce que cela donne :

Code:

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

et montre nous .....
18/08/2009, 13h20
alassanediakite

1 pièce(s) jointe(s)

Salut
voici les boites de message en pièce jointe
18/08/2009, 13h39
ProgElecT

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

Code:

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.
20/08/2009, 14h14
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?
@+
20/08/2009, 14h43
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...)
20/08/2009, 15h06
ProgElecT

Salut bill
Comme j'ai sûrement dit des bêtises dans mon intervention plus haut, la moindre des choses est de donner le renseignement dont tu as besoin pour aider alassanediakite utilement.
Les 2 messages de .Echo
regsvr32 -s "C:\WINDOWS\system32\wiaaut.dll
regsvr32 -s "C:\WINDOWS\system32\COMDLG32.dll
18/01/2012, 12h17
Depite

Autre piste

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:

"regsvr32 -s """ &

, en revanche ils ne sont pas fermés par

Code:

& ""

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

Code:

& """"

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

Code:

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