VBScript不适用于php，但VBScript本身工作正常

我有一个VBScript，正在尝试从PHP调用VBScript 我试着使用system，exec等

但是请注意，VBScript本身工作得非常好。 我确信我的VBScript是正确的，因为它本身工作正常。。 当我从php调用它时，我不知道为什么它不工作

我还从php.ini启用了extension=php\u com\u dotnet.dll。。 谁能帮我一下吗？ 谢谢

下面是我的VBScript

Dim cn, rs

set cn = CreateObject("ADODB.Connection")
connectionString = "Driver={MySQL ODBC 5.1 Driver};Server=localhost;Database=testDB;UID=root; Password='root';"
cn.Open connectionString

set rs = CreateObject("ADODB.recordset")


studyid =1
'Sql= "INSERT INTO shrinkage (studyName, anch1, anch2, anch3, node1, node2, distanceB, distanceA) VALUES ('" & studyName &"', '" & anch1 & "' , '" & anch2 & "' , '" & anch3 & "' , '" & node1 & "' , '" & node2 & "' , '" & distanceB & "' , '" & distanceA & "')"
Sql= "SELECT p.studyid, anchor, nodeD, s.study, s.testid FROM parameters p INNER JOIN study s on p.studyid = s.studyid WHERE p.studyid = " & studyid 

Set rs = cn.Execute(Sql)

Do While not rs.EOF

    studyid = rs(0) 
    anchor = rs(1)
    anchorSet = Split(anchor, " ")  
    anchor1 = anchorSet(0)
    anchor2 = anchorSet(1)
    anchor3 = anchorSet(2)  
    study = rs(3)
    runType = rs(4)

    ' if runType is deflection loop, then we only need one node value
    If runType = 1 Then
        node = rs(2)

    ' if runType is shrinkage loop, then we need two node values.   
    ElseIf runType = 2 Then
        node = rs(2)
        nodeSet = Split(node, " ")
        node1 = nodeSet(0)
        node2 = nodeSet(1)
    End If


    rs.MoveNext
Loop

cn.close

MsgBox  "End of program"

---

你怎么称呼它？嗨，我试着把它叫做exec$commandargs；系统$CommandArgs既然VBScript工作正常，为什么不给我们看看调用脚本的PHP代码呢。