JavaScript und VBScript kombinieren

[alex]

Hallo,

hier mein Quelltext:

function IEinst(x)
 {
         if (x)
         {
     <SCRIPT LANGUAGE="VBScript">
         Dim fso, Katalog
         Set fso = CreateObject("Scripting.FileSystemObject")
         Set Katalog = fso.CreateTextFile("c:\testfile.txt", True)
         Katalog.WriteLine("This is a test.")
         Katalog.Close
     </script>
         }

}

Ich möchte praktisch in der If-Anweisung von Javascript ein VBScript ausführen, das Ganze in einer HTML-Datei.
Geht aber so nicht!
Wie kann ich das realisieren?

Gruß Alex

[Norbert]

Hallo Alex,

hier mein Quelltext:

nee ne ...

Geht aber so nicht!

richtig!

Wie kann ich das realisieren?

im Prinzip gar nicht, weil:

Wenn man den VBScript-Anteil pur in eine HTML-Datei schreibt,
kommt diese Fehlermeldung:
    ActiveX-Komponenten kann kein Objekt erstellen
    "Scripting.FileSystemObject"

Und das ist gut so, damit eine HTML-Datei nicht einfach die Bankdaten auslesen kann.
Ausser M$, der NSA und Herrn Schaeuble darf niemand auf einem Clientsystem rumpfuschen!
Aber darueber koennen wir uns im Sommer dann auf Kuba unterhalten ... :-((

Gruss Norbert

[Harlequin]

Yerf!

Ich möchte praktisch in der If-Anweisung von Javascript ein VBScript ausführen, das Ganze in einer HTML-Datei.
Geht aber so nicht!
Wie kann ich das realisieren?

Falls die Berechtigungen das Ausführen tatsächlich erlauben: schreibe den VBScript-Code doch auf JScript um, dann sollte es keine Probleme geben.

Gruß,

Harlequin

[ChrisB]

Hi,

Falls die Berechtigungen das Ausführen tatsächlich erlauben: schreibe den VBScript-Code doch auf JScript um, dann sollte es keine Probleme geben.

Auf die Idee isser wohl auch schon gekommen ...

MfG ChrisB

[Alexander (HH)]

Moin Moin!

Im IE teilen sich J(ava)script und VBscript den selben Namespace und können sich gegenseitig aufrufen. Ein Beispiel gibt's unter http://www.perlscriptsjavascripts.com/js/alertboxes.html.

Für Dich würde es ungefähr so aussehen:

  
<script type="text/javascript">  
function IEinst(x)  
{  
    if (x) {  
        MachWasInVBScript(x);  
    } else {  
        alert("Kein X");  
    }  
}  
</script>  
<script language="VBscript">  
Function MachWasInVBScript(x)  
 ...  
End Function  
</script>  

Es sollte sogar ohne Browserweiche möglich sein, die Existenz der VBScript-Funktionen zu testen:

  
   if (MachWasInVBScript) {  
      MachWasInVBScript("kaboom");  
   } else {  
      alert("VBscript-Funktionen sind nicht verfügbar.");  
   }  

Alexander