Что нового

Создание объекта для использования функций VB Script Language

XpycT

Скриптер
Сообщения
380
Репутация
133
Всем привет

Если возможность через ObjCreate создать объект чтобы использовать функции VBS (VB Script Language)?

Поиск по системе показал что есть файл C:\Windows\system32\vbscript.dll в котором хранятся функции VBS, а вот работать с ними получается.

Пробовал создать объект через ObjCreate, но безуспешно

Код:
$oVBS = ObjCreate("VBScript")
ConsoleWrite("IsObj($oVBS) = " & IsObj($oVBS) & @CR)

$oVBS = ObjCreate("{3EEF9758-35FC-11D1-8CE4-00C04FC2B186}")
ConsoleWrite("IsObj($oVBS) = " & IsObj($oVBS) & @CR)

; ConsoleWrite("$oVBS.Now() = " & $oVBS.Now() & @CR)
 

inververs

AutoIT Гуру
Сообщения
2,135
Репутация
465
Так?
Код:
$o = ObjCreate("ScriptControl")
$o.language = "VBScript"
ConsoleWrite(ObjName($o) & @CRLF)
MsgBox(0, 0, $o.Eval("2 + 3"))
 
Автор
X

XpycT

Скриптер
Сообщения
380
Репутация
133
inververs

немного не так, таким способом можно сделать вот так

Код:
$o = ObjCreate("ScriptControl")
$o.language = "VBScript"
ConsoleWrite(ObjName($o) & @CRLF)
MsgBox(0, 0, $o.Eval("Now()"))


хотелось бы использовать так

Код:
$oVBS = ObjCreate("VBScript")
ConsoleWrite("IsObj($oVBS) = " & IsObj($oVBS) & @CR)

ConsoleWrite("$oVBS.Now() = " & $oVBS.Now() & @CR)
 

inververs

AutoIT Гуру
Сообщения
2,135
Репутация
465
Так он не IDispatch значит не выйдет через ObjCreate
 
Верх