Chyba: Zobrazí chybová zpráva "Komponenta ActiveX nemůže vytvořit objekt" při použití modulu Windows Script Host spustit vzdálený skript

Příznaky

Při pokusu spustit vzdálený skript pomocí Windows Script Host (WSH) 5.6 v počítači se systémem Windows XP, může se zobrazit následující chybová zpráva:

Chyba: Součást ActiveX nemůže vytvořit objekt
Kód: 800A01AD
Zdroj: Chyba Microsoft VBScript Runtime

Příčina

K tomuto chování může dojít, pokud instalační program pro vzdálené skriptování WSH byla provedena nesprávně v počítači se systémem Windows XP.

Řešení

Chcete-li tento problém vyřešit, zaregistrujte WScript objekt spuštěním příkazu wscript regserver z příkazového řádku nebo pomocí příkazu Spustit v nabídce Start .

Stav

Společnost Microsoft potvrzuje, že se jedná o problém v produktech této společnosti, které jsou uvedeny v části "Platí pro".

Další informace

Kroky pro reprodukci problému

  1. Klepněte na tlačítko Start, přejděte na příkaz programy, přejděte na položku Příslušenstvía potom klepněte na tlačítko Poznámkový blok.
  2. Následující kód zkopírujte a vložte jej do programu Poznámkový blok:
    <package><job>
    <script language="VBScript">
    set oController = CreateObject("WSHController")
    set oProcess = oController.CreateScript(<Path To Remote Script>, <Server>)
    WScript.ConnectObject oProcess, "remote_"
    oProcess.Execute
    While oProcess.Status <> 2
    WScript.Sleep 100
    WEnd
    WScript.Echo "Done"

    Sub remote_Error
    Dim theError
    Set theError = oProcess.Error
    WScript.Echo "Error - Line: " & theError.Line & ", Char: " & theError.Character & vbCrLf & "Description: " & theError.Description
    WScript.Quit -1
    End Sub

    </script>
    </job>
    </package>

  3. Uložte dokument s názvem souboru RemoteTest.wsf.
  4. V nabídce soubor klepněte na tlačítko Nový vytvořte nový soubor.
  5. Následující kód zkopírujte a vložte jej do nového dokumentu programu Poznámkový blok:
    <package><job>
    <script language="VBScript">
    set fso = CreateObject("Scripting.FileSystemObject")
    set fout = fso.CreateTextFile("c:\RemoteTest.txt", true)
    fout.WriteLine Now
    fout.Close
    </script>
    </job>
    </package>

  6. Uložte dokument s názvem souboru RemoteFile.wsf. Při spuštění souboru RemoteTest.wsf počítač připojí ke vzdálenému serveru a spustí RemoteFile.wsf. Poznámka: musíte zadat pro připojení ke vzdálenému serveru, cestu k souboru a informace o serveru.
Vlastnosti

ID článku: 311269 - Poslední kontrola: 20. 1. 2017 - Revize: 1

Váš názor