800A01AD - Un composant activex ne peut pas créer un objet

Question

Slt, 



En utilisant le script ci dessous, j'ai droit &#224; une erreur de ce type
d&#233;s la 1&#232;re ligne , je ne comprends pas &#224; quoi c'est d&#251;, avez vous une
id&#233;e sur la fa&#231;on de rem&#233;dier &#224; ce probl&#232;me:



800A01AD "un composant activex ne peut pas cr&#233;er un objet"



Voici un lien interessant, mais je n'arrive pas &#224; r&#233;soudre mon probl&#232;me avec:

http://www.computerperformance.co.uk/Logon/code/code_800A01AD.htm



Merci bcp &#224; celui qui pourra m'aider car c'est important 



Voici le code:





Dim tablocalisation(1)

Set shell = CreateObject("WScript.Shell")

Set fSo = CreateObject("Scripting.FileSystemObject")

tablocalisation(0)="xxx"

tablocalisation(1)="xxx"

sTargetPath="\xxxxxx"

Set f = fSo.GetFolder("C:\Documents and Settings")

Set sf = f.SubFolders





langue=shell.RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Nls\Language\InstallLanguage")



If langue = "0409" Then

    Start = "\Start Menu"

else 

    Start = "\Menu D&#233;marrer"

End if





For Each f1 in sf

    Efface(f1)

Next





    

sPath="C:\Documents and Settings\All Users" & start & "xxxxxxxx"



Set oFolder=fSo.CreateFolder(sPath)

oFolder.Attributes=4

Set oFolder=Nothing

Set oLink=WshShell.CreateShortcut(sPath & "target.lnk")

oLink.TargetPath=sTargetPath

oLink.Save

Set oLink=Nothing

Set oTs=fSo.CreateTextFile(sPath & "desktop.ini")

oTs.WriteLine "[.ShellClassInfo]"

oTs.WriteLine "CLSID2={0AFACED1-E828-11D1-9187-B532F1E9575D}"

oTs.WriteLine "Flags=2"

oTs.WriteLine "IconFile=""\xxxxxxxxxx"""

oTs.WriteLine "IconIndex=0"

oTs.WriteLine "ConfirmFileOp=0"

oTs.Close





Sub Efface(f2)

    For j=0 to ubound(tablocalisation) 

    sPath="C:\Documents and settings" & f2.name & Start  & tablocalisation(j)

    If fSo.folderExists(sPath) Then

        Set parentFolder = fSo.GetFolder(sPath)

        parentFolder.attributes = 0

        if fSo.FileExists(sPath & "	arget.lnk") Then

      
         Set file =
fSo.GetFile(sPath & "	arget.lnk")

            file.attributes = 0

            fSo.deleteFile(sPath & "	arget.lnk")

        End if

        If fSo.fileExists(sPath & "\desktop.ini") then

      
         Set file =
fSo.GetFile(sPath & "\desktop.ini")

            file.attributes = 0

                fSo.deleteFile(sPath & "\desktop.ini")

        End if

        fSo.DeleteFolder(sPath) , True

    End if

    Next

End Sub

wassim.azzouzi · Accepted Answer

Si le problème est sr un poste qui tourne sous 64 bits, la solution est la suivante : 
il suffit de le lancer avec c:\windows\syswow64\cscript.exe

http://www.code-source.net/content/lancer-un-script-vbs-sur-une-plateforme-64-bits

VBScript37 · Answer

Zut, on ne peut pas &#233;diter nos messages ici?



Juste pour dire que le message d'erreur pointe en fait sur la ligne:


Set shell = CreateObject("WScript.Shell")

VBScript37 · Answer

Voici les infos que j'ai pu trouver sur le net:



Ce message peut appara&#238;tre lors de la cr&#233;ation d'un formulaire ou d'un &#233;tat 



Il semble que cela vienne d'une DLL mal "registr&#233;e": dao350.dll, parfois dao360.dll ...



Pour rem&#233;dier au probl&#232;me, rep&#233;rez l'application regsvr32.exe
(g&#233;n&#233;ralement situ&#233;e dans \windows\system). Rep&#233;rez &#233;galement
dao350.dll (g&#233;n&#233;ralement situ&#233;e dans \Program Files\Fichiers
communs\Microsoft Shared\DAO). Faites ensuite glisser dao350.dll sur
regsvr32.exe et rel&#226;chez le bouton de la souris, un message vous
pr&#233;vient que l'enregistrement a &#233;t&#233; effectu&#233; et tout rentre
g&#233;n&#233;ralement dans l'ordre...



 

http://www.alpi40.org/Formati/Faqs/Support/Access/activex.htm







Allez dans windows\system32, chercher le fichier scrrun.dll (ou
chercher sur votre DD)et faite le glisser sur regsvr32.exe. 



http://forum.hardware.fr/hardwarefr/Programmation/Un-composant-ActiveX-ne-peut-pas-creer-un-objet--sujet-54364-1.htm





erreur 429 : Un composant Activex ne peut cr&#233;er d'objet    



Cette erreur peut apparaitre sur un poste alors que l'on n'a aucun probl&#232;me sur un autre.

- Soit il y a une erreur de code (voir le d&#233;tail chez Microsoft en suivant le lien plus bas),

- Soit la DLL DAO360.dll est absente (cas classique : il suffit de l'installer)

- Soit elle est pr&#233;sente ... mais mal enregistr&#233;e.



Microsoft conseille de d&#233;sinstaller Office, puis de r&#233;installer. G&#233;n&#233;ralement, apr&#232;s &#231;a marche.



Cas (tr&#232;s) particulier (et c'est la pr&#233;cision...) :

Si l'utilitaire de sauvegarde automatique d'Outlook est install&#233;
(backup des *.pst), on obtient l'erreur 429. Si on le d&#233;sinstalle, &#231;a
marche. Il semble donc que les 2 soient incompatibles.



L'erreur se d&#233;clenche uniquement si l'application "fille" (Word, Excel,
Outlook...) est ferm&#233;e. Si elle est ouverte, &#231;a marche (CreateObject se
comporte comme GetObject).



Voila, nous n'avons aucune explication technique &#224; cela ... mais la d&#233;sinstallation du backup d'Outlook a r&#233;solu notre probl&#232;me.



lien : http://support.microsoft.com/default.aspx?scid=kb;fr;244264





http://access.developpez.com/faq/?page=Debug









Cette manip semble r&#233;soudre mon probl&#232;me:

Allez dans windows\system32, chercher le fichier scrrun.dll (ou
chercher sur votre DD)et faite le glisser sur regsvr32.exe. 

Avant de dire que mon probl&#232;me est r&#233;solu il faut que je teste sur d'autres postes.

VBScript37 · Answer

Sinon, sous un poste j'ai droit au message d'erreur suivant (probl&#232;me
qui semble &#234;tre un cas isol&#233;) sur la m&#234;me ligne qu'au dessus 

( Set shell = CreateObject("WScript.Shell")  :



Message d'erreur:

La proc&#233;dure sp&#233;cifi&#233;e est introuvable

mitsh666 · Answer

arf ... il y a bien souvent des phrases coupées dans tes postes. j'arrive pas à suivre... et donc à règler mon problème idem au tient...

mitsh666

cs_AlainDENIS · Answer

bonjour,

composant ActiveX ne peut pas créer un objet   800A01AD

qué galère avec ce problème après installation de Windows 7 64-bit!
il faut télécharger les nouveaux .exe

je les ai mis dans mon espace skydrive windows live:
(mais je ne suis pas sur de l accés pour vous, espèrons...)

dynwrapx.dll  (14KO)
https://skydrive.live.com/?cid=d2d536ba4506c341&sc=documents&id=D2D536BA4506C341%21133#
et,
wscript  (152KO)
https://skydrive.live.com/?cid=d2d536ba4506c341&sc=documents&id=D2D536BA4506C341%21133#


me demandez pas d où ils viennent, je les ai retrouvés dans mon répertoire de téléchargement et je ne sais pas quand, ni où je les ai reçus  (!!!)

en associant les fichiers .vbs à ce nouveau wscript.exe
en mettant la dll dynwrapx.dll, dans une répetoire perso, dans C:\Windows\SysWOW64 et dans C:\Windows\System32
et en l inscrivant au registre (menu contextuel Register) aux trois endroits, chez moi ça marche!

on peut surement faire plus propre comme installe mais bon....

sinon pas moyen de créer dans les scripts vbs d object comme :
Set DX = CreateObject("DynamicWrapperX") 
ou même le basique,
Set WshShell = CreateObject("WScript.Shell")
!

bonne chance

Mayzz · Answer

@AlainDENIS le topique date de 2007.

Pour les OS Windows x64 il faut copier les activeX dans le répertoire 

.\Windows\SysWOW64

Puis appeler 

.\Windows\SysWOW64\regsvr32.exe

WOW signifie Windows On Windows, qui n'est rien d'autre qu'un émulateur Windows32 Bit au cœur d'un système 64 Bits. Il en va de même pour le registre qui possède une WOW64Node, c'est pourquoi il faut appeler regsvr32 depuis l'émulateur.

Voila.

++

Si le déboguage est l'art d'enlever les bogues, la programmation doit être l'art de les créer.

cs_AlainDENIS · Answer

et Jésus date de 2010 ans pourtant il a encore une plus grande utilité en ces drôle de Temps.
(alors topic de 2007 ou pas...)

2/ ok pour utiliser regsvr32 de wow64, mais celà n explique pas l impossibilité de créer l objet WScript.Shell avant ma manip (et après installation de w7 64)

c est toujours sympa de laisser des traces d une correction réussie, ça peut servir aux autres.

800A01AD - Un composant activex ne peut pas créer un objet

8 réponses

Discussions similaires