Anfänger benötigt Starthilfe

Moin Moin,

ich bin gerade dabei meine Hausarbeit für die Uni fertigzustellen. Da diese aus zwei Dateien besteht, nämlich eine PowerPoint-Präsentation und ein Word-Dokument, wollte ich auf der CD ein Autostart erzeugen.

Die Autostart.inf kann, wenn ich richtig informiert bin, nur ausführende Dateien, wie *.exe öffnen. Ich habe über Excel ein PopUp-Fenster erstellt, das dann eine einfache Abfrage stellt, was man sich anschauen möchte (entweder PPS oder DOC). Die musste ich, da ich nur das PopUp-Fenster öffnen wollte über eine VBS.datei öffnen lassen. eine vbs kann aber nicht von einer inf geöffnet werden. jetzt wollte ich eine exe schreiben, die die vbs öffnet.

Ist es möglich, die VBS programmierung in die au3 einzubinden?

Option Explicit
Dim Excel, FSO, Path, Datei
Set Excel = WScript.CreateObject("Excel.Application")
Set FSO = CreateObject("Scripting.FileSystemObject")
Path = FSO.GetParentFolderName(WScript.ScriptFullName)
Dim InTaskBar, State
InTaskBar = Excel.ShowWindowsInTaskbar
State = Excel.WindowState
 
Excel.ShowWindowsInTaskbar = False
Excel.WindowState = -4140
Set Datei = Excel.Workbooks.Open(Path & "\PopUpFenster.xls", , , , "")
Excel.Visible = True
Excel.ExecuteExcel4Macro ("PopUpFenster.xls!wbSave(" & InTaskBar & ", " & State & ")")
Excel.ExecuteExcel4Macro ("PopUpFenster.xls!wbOpen()")
Set Excel = Nothing
Set FSO = Nothing
WScript.Quit

über hilfreiche tipps wäre ich sehr angetan

schöne grüße aus hamburg

Zitat

Ist es möglich, die VBS programmierung in die au3 einzubinden?

kA =)

aber du kannst die .vbs datei mit autoit starten .. lol

shellexecute()

wie arbeite ich dann weiter?

shellexecute(\datei.vbs) will er nicht annehmen. ich wollte die sachen ja, wie gesagt auf cd brennen und dann sollte er ja die datei im hauptverzeichnis finden, oder? macht man bei autoit nicht das symbol "\" für das gleiche verzeichnis, wenn man vorher nichts schreibt?

Zitat von killing joke

wie arbeite ich dann weiter?

shellexecute(\datei.vbs) will er nicht annehmen. ich wollte die sachen ja, wie gesagt auf cd brennen und dann sollte er ja die datei im hauptverzeichnis finden, oder? macht man bei autoit nicht das symbol "\" für das gleiche verzeichnis, wenn man vorher nichts schreibt?

ShellExecute(@ScriptDir & "\datei.vbs")

Danke schon mal. ich hab das getestet, leider kommt diese meldung:

Line 22 (File "C:\....\Desktop\Autorun.au3"):
$Datei = $oExcel.Workbooks.Oben($Path & "\PopUpFenster.xls",,,,"")
$Datei = $oExcel.Workbooks.Open($Path & "\PopUpFenster.xls", ^ERROR
Error: Error in expression.

??? Bitte wie??? kann mir da auch einer bei helfen?

klappt leider nichts
hat einer von euch ne lösung`??? würde das heute gerne abschließen können, weil morgen die präsentation stattfinden muss

ansonsten muss ich mir halt was anderes einfallen lassen....