Hi @all,
ich versuche verzweifelt ein paar Zeilen VBS-Code in AutoIT zu integrieren:
VBS-Code:
Dim fileName
Dim WSHNetwork
Dim shareName: shareName = WScript.Arguments(0)
Dim xmldom : set xmldom = CreateObject("Msxml2.DOMDocument")
Dim fpc : set fpc = WScript.CreateObject("Fpc.Root")
Dim array : set array = fpc.GetContainingArray
set WSHNetwork = CreateObject("WScript.Network")
fileName=shareName & "\" & WSHNetwork.ComputerName & "-" & _
Month(Now) & "-" & Day(Now) & "-" & Year(Now) & ".xml"
array.Export xmldom, 0
xmldom.save(fileName)
Alles anzeigen
Ich wollte zumindest, dass der Inhalt dieses XML-Objekts als MsgBox ausgegeben wird.
Nur leider erscheint folgender Fehler:
"C:\Program Files\AutoIT\SciTe\..\autoit3.exe" /ErrorStdOut "C:\Program Files\AutoIT\Projects\isa.au3"
C:\Program Files\AutoIT\Projects\isa.au3 (8) : ==> Error parsing function call.:
MsgBox(4096, "", $array1[0])
MsgBox(4096, "", $array1^ ERROR
>Exit code: 1 Time: 0.663"
Bis jetzt sieht mein AutoIT-Code so aus:
#Include <_XMLDomWrapper.au3>
#include <Array.au3>
Local $obj = ObjCreate("Msxml.DomDocument")
$oFPC=ObjCreate("Fpc.Root")
$array1=$oFPC.GetContainingArray
MsgBox(4096, "", $array1[0])
Könnt Ihr mir helfen? Vielen Dank schonmal im Voraus!
Gruß
Peter