易语言使用创建com对像。

momoca

需求详情：

php：

<?php
        $shell = new COM("SAPIEN.ActiveXPoSH");
        $shell_init = $shell->Init(false);
        if($shell->IsPowerShellInstalled){
            $shell->OutputMode=2;

            $shell->Execute('dir');
            echo '<pre>';
            print_r($shell->OutputString);
            echo '</pre>';
        }
?>

VB6：

Private Sub Form_Load()
    Dim s As Object
    Set s = CreateObject("SAPIEN.ActiveXPosh")
    s.Init (True)
    MsgBox s.IsPowerShellInstalled
    s.OutputMode = 2
    s.Execute ("dir")
    MsgBox (s.OutputString)
End Sub

前两个均调试通过了。但易语言我可能是创建对像没搞明白所以没写对。

.版本 2

.程序集 窗口程序集1
.程序集变量 a, 对象

.子程序 __启动窗口_创建完毕
.局部变量 t, 文本型

a.创建 (“SAPIEN.ActiveXPoSH”, )
a.方法 (“Init”, 真)
信息框 (a.读属性 (“IsPowerShellInstalled”, ), 0, )
a.写属性 (“OutputMode”, 2)
a.逻辑方法 (“Execute”, “dir”)
' a.查看 ()
t ＝ a.读文本属性 (“OutputString”, )
信息框 (t, 0, )
销毁 ()

调试环境：win2008，默认安装有powershell，安装ActiveXPosh

如有疑问请联系

附件:

ActiveXPosh.zip 下载

需求说明：

请自行调试成功，并付上易语言源文件。(2012-05-03 19:13:59)