Да выполняется без ошибок

Следовательно, строка

Set SC = CreateObject("ScriptControl")

выполняется так же без ошибок, и у Вас

работает нормально. Вам остается только реализовать задуманное с его применением, и убрать лишние строки из примера.

wildwolf007
Зачем оверквотить? Некрасиво..
Компонент должен быть под x32. Читайте внимательно, что пишут. Задача задействовать 32-битный интерпретатор. 8-й пост вообще никаким боком не касается решения проблемы вызова, там указан метод преобразования, который и задействован в примере badik.

Прошу прощения в мире VBS недавно могу чего-то не понимать и оверквотить не собирался хочу разобраться. Тема заключается в передаче параметров из одного языка в другой и как я понял в 8м посте передача произвелась через массив. Вам нужно было передать через ScriptControl что б исключить лишние операции, но у меня на 64 разрядной винде данный объект не работает и соответственно получается лучше тогда использовать только через массив и с лишними операциями. Так же? Зато будет работать и на 32 битных и на 64 битных ос.

Rumata пишет:

Невозможно создание объекта контейнером ActiveX: 'ScriptControl'

решается так:

%windir%\SysWOW64\cscript.exe имя-vbs-файла

Понимаю, что вопрос многократно обсуждался, но добавлю пару слов. Я нахожу размещение проверки архитектуры в коде скрипта более универсальным решением - он заработает даже у тех, кто не знает о существовании папки SysWOW64. Например так:

CheckOSx86x64Args()

Rem основной код начинается здесь
Rem примеры некоторых ActiveX, не имеющих 64x реализации
Set SC = CreateObject("ScriptControl")
Set JRO = CreateObject("JRO.JetEngine")
Set DAO = CreateObject("DAO.DBEngine.36")
CreateObject("ADOX.Catalog").Create "Provider = Microsoft.Jet.OLEDB.4.0;Data Source='C:\test.mdb';"
CreateObject("ADODB.Connection").Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source='C:\test.mdb';"

Sub CheckOSx86x64Args()
    Dim CmdLn, Arg
    With CreateObject("WScript.Shell")
        If Replace(LCase(WScript.Path), LCase(.ExpandEnvironmentStrings("%windir%\")), "") = "system32" Then
            CmdLn = Replace(LCase(WScript.FullName), "system32", "syswow64")
            If CreateObject("Scripting.FileSystemObject").FileExists(CmdLn) Then
                CmdLn = CmdLn & " """ & WScript.ScriptFullName & """"
                For Each Arg In WScript.Arguments
                    CmdLn = CmdLn & " """ & Arg & """"
                Next
                .Run CmdLn
                WScript.Quit
                End If
        End If
    End With
End Sub

alexii пишет:

А кто-то говорил, что «ScriptControl идёт в комплекте даже с XP».

Скорее всего, проблема была в попытке запуска несуществующей x64 версии ScriptControl. А x32 ScriptControl вроде вполне себе нативен в Win.

Так и есть у меня windows 7 64 разрядная значит тогда этого компонента нет под 64 разрядную ОС?

Невозможно создание объекта контейнером ActiveX: 'ScriptControl'

решается так:

%windir%\SysWOW64\cscript.exe имя-vbs-файла

Понимаю, что вопрос многократно обсуждался, но добавлю пару слов. Я нахожу размещение проверки архитектуры в коде скрипта более универсальным решением - он заработает даже у тех, кто не знает о существовании папки SysWOW64. Например так:

CheckOSx86x64Args()

Rem основной код начинается здесь
Rem примеры некоторых ActiveX, не имеющих 64x реализации
Set SC = CreateObject("ScriptControl")
Set JRO = CreateObject("JRO.JetEngine")
Set DAO = CreateObject("DAO.DBEngine.36")
CreateObject("ADOX.Catalog").Create "Provider = Microsoft.Jet.OLEDB.4.0;Data Source='C:\test.mdb';"
CreateObject("ADODB.Connection").Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source='C:\test.mdb';"

Sub CheckOSx86x64Args()
    Dim CmdLn, Arg
    With CreateObject("WScript.Shell")
        If Replace(LCase(WScript.Path), LCase(.ExpandEnvironmentStrings("%windir%\")), "") = "system32" Then
            CmdLn = Replace(LCase(WScript.FullName), "system32", "syswow64")
            If CreateObject("Scripting.FileSystemObject").FileExists(CmdLn) Then
                CmdLn = CmdLn & " """ & WScript.ScriptFullName & """"
                For Each Arg In WScript.Arguments
                    CmdLn = CmdLn & " """ & Arg & """"
                Next
                .Run CmdLn
                WScript.Quit
                End If
        End If
    End With
End Sub

Скорее всего, проблема была в попытке запуска несуществующей x64 версии ScriptControl. А x32 ScriptControl вроде вполне себе нативен в Win.

Дословно несколько иначе говорилось.

Дословно может быть. Но суть была именно в том, что «ничего не устанавливал, указанный компонент идёт в комплекте с ОС».

Может быть. Вот как обзаведусь x64 — сразу буду помнить такое .

Загрузите и установите: Download Windows Script Control from Official Microsoft Download Center.

Невозможно создание объекта контейнером ActiveX: 'ScriptControl'

решается так:

%windir%\SysWOW64\cscript.exe имя-vbs-файла