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:
Merci à tous
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
Partager