Nützliche Helferlein per VBScript

Lies diesen Artikel und viele weitere mit einem kostenlosen, einwöchigen Testzugang.

Das Entwickeln von Access-Anwendungen ist das eine, der Umgang mit der Peripherie derselben das andere. So will Ihre Anwendung erst verteilt werden, oder Sie benötigen Systemaktionen, die sich unter Access nicht so ohne weiteres ausführen lassen. Dann könnten Ihnen möglicherweise extern gestartete Skripte weiterhelfen. Solche Skripte schauen wir uns in diesem Beitrag an.

Beispieldatenbank

Die Beispiele dieses Artikels finden Sie in der Datenbank 1504_ScriptingDemo.zip und den enthaltenen Dateien.

Script-Sprachen

Wenn Sie sich nach Möglichkeiten umsehen, um abseits von Access- und VBA-Programmierung unter Windows Makros auszuführen, so bieten sich etwa Batch-Dateien mit der Endung bat oder cmd an, die Kommandozeilenaktionen starten. Viel Freude werden Sie dabei wahrscheinlich nicht haben, da der Sprachumfang reichlich beschränkt ist und zudem die Kenntnis zahlreicher Kommandozeilenparameter erfordert. Erheblich ausgefeilter kommt da die Windows-Powershell daher, über die sich fast alles realisieren lässt. Sie verlangt Ihnen jedoch noch mehr Einarbeitung ab, die zudem wegen des objektorientierten Ansatzes nicht gerade leicht fällt.

So bleibt als leistungsfähiger Ausweg das standardmäßig unter Windows installierte Visual Basic Scripting, kurz VBScript. Das Gute an der Sache: Wenn Sie sich halbwegs mit VBA-Programmierung auskennen, so wird ihnen das Erstellen von VBScripten leicht von der Hand gehen, denn Syntax und Sprachumfang sind nahezu identisch. Auf einige Unterschiede gehen wir noch ein.

VBScripte

VBScript-Dateien sind einfache Textdateien mit der Endung vbs, die VBA-Code enthalten und von der Windows-Scripting-Engine ausgeführt werden. Diese Dateiendung ist automatisch mit einem der beiden Script-Prozessoren wscript.exe oder cscript.exe verknüpft.

Doppelklicken Sie also auf eine vbs-Datei, so startet in der Regel die wscript.exe, welche die Anweisungen dann abarbeitet. Dabei nimmt sich die Engine den Code zunächst genau unter die Lupe und testet ihn auf Syntaxfehler. Im Fehlerfall wird eine entsprechende Meldung geöffnet. Danach kompiliert sie ihn und startet die Prozedur. Aber auch dann, wenn die Syntax stimmt, kann es zu Fehlern etwa infolge falscher Parameter oder inkorrekter Objektansprache kommen. Dann ereignet sich ebenfalls eine Fehlermeldung und das Script wird an dieser Stelle abgebrochen.

An dieser Stelle ein Hinweis: VBScript ist an sich noch kein Sicherheitsrisiko, arbeitet jedoch nicht in abgeschotteter Umgebung. Zwar können Windows-API-Funktionen nicht aufgerufen – hier ein Unterschied zu VBA -, dafür aber beliebige ActiveX-Komponenten erzeugt werden, die ihrerseits allerlei Unbill hervorzubringen imstande wären. Aus diesem Grund werden die Script-Engines von Administratoren zuweilen gesperrt und die Ausführung von vbs-Dateien verhindert. Inzwischen kommt das immer seltener vor, denn über VBA-Programmierung, die ja Bestandteil von beliebigen Access-, Word- oder Excel-Dateien sein kann, sind noch viel mehr unheilvolle Aktionen möglich. Und diese Dateien werden ja auch nicht gesperrt.

VBScripte erzeugen

Nicht einfacher, als das! Legen Sie eine neue Textdatei an und speichern sie unter der Endung vbs ab. Schreiben Sie nur diese eine Zeile in sie:

Msgbox "Hallo! Bin ein VBScript!"

Doppelklicken Sie auf die dergestalt modifizierte Datei, und schon werden Sie mit dem Meldungsfenster beglückt, wenn Scripting nicht auf Ihrem System deaktiviert ist.

Die Tatsache, dass es sich nur um Textdateien handelt, eröffnet die Möglichkeit, Scripte auch aus Access heraus zu erstellen. Dazu wird der Code in eine String-Variable geschrieben und diese in das Dateisystem abgespeichert, wie etwa in der Prozedur in Listing 1. Der Variablen sScript wird die Codezeile von oben zugewiesen und über die Open-Anweisung eine Datei mit dem Namen test.vbs angelegt, wobei als Pfad das Verzeichnis der Datenbank (CurrentProject.Path) verwendet wird. Anschließend wird die vbs-Datei über die Script-Engine (wscript.exe) und die Shell-Anweisung aufgerufen.

Sub CreateVBScript()
     Dim sScript As String
     Dim sVBSFile as string
     sVBSFile = CurrentProject.Path & "\test.vbs"
     sScript = "Msgbox ""Ich bin ein VBScript!"""
     Open sVBSFile For Binary As #1
     Put #1, , sScript
     Close #1
     DoEvents
     Shell "wscript.exe " & sVBSFile
End Sub

Listing 1: Aus VBA heraus erzeugte VBS-Datei

Rufen Sie einfach die Prozedur CreateVBScript aus dem VBA-Direktfenster heraus auf und überzeugen Sie sich vom Erfolg der Routine.

Anwendungsfälle

Warum sollte man aus Access heraus ein VBScript aufrufen Schließlich lässt sich ja über VBA dasselbe erreichen, wie über ein externes Skript. Das stimmt jedoch nicht immer. Manche Aufgaben können nur über administrative Rechte erledigt werden – etwa das Setzen von bestimmten Registry-Schlüsseln. Und da Access nun Mal nur unter normalen Benutzerrechten ausgeführt wird, kann derlei nicht vollzogen werden. Von der Lösung, Access dennoch als Administrator auszuführen, sollten Sie besser die Finger lassen, weil dann die Add-Ins von Access und VBA durcheinander geraten können.

Hier hilft ein VBScript aus, das Aufgaben unter erhöhten Benutzerrechten ausführt. Den dafür benötigten Code schauen wir uns später an.

Oft gebraucht wird ein Skript, das Ihre Datenbank überhaupt erst installiert. Nehmen wir an, Sie hätten alle Teile Ihrer Anwendung in einer Zip-Datei untergebracht. Da wäre es schön, wenn ein Script auf einem Zielrechner etwa folgende Aufgaben erledigen würde:

Entpacken des Archivs; Anlegen von Zielverzeichnissen; Kopieren von Dateien in die Zielverzeichnisse; Setzen des Vertrauenswürdigen Orts für die Datenbank; Anlegen einer Verknüpfung auf dem Desktop; und eventuell noch das Registrieren benötigter ActiveX-Komponenten. Auch hierfür gibt es ein umfangreiches Beispiel-Skript, welches auf den folgenden Seiten erläutert wird.

VBScript vs. VBA

Unter VBScript brauchen Sie, wie wir weiter oben bereits gesehen haben, keine Prozedur zu deklarieren. Das Script selbst stellt schon eine Prozedur dar. Sie können gleich zu Beginn im Code mit der ersten Anweisung beginnen. Es ist Ihnen jedoch unbenommen, trotzdem Prozeduren auf die gleiche Weise anzulegen, wie unter VBA. Solche Sub– oder Function-Prozeduren sind dann sinnvoll, wenn sie als Unterroutinen im Code öfters aufgerufen werden.

Variablen müssen unter VBScript nicht deklariert werden. Dies kommt dem Verhalten von VBA gleich, wenn kein Option Explicit im Modulkopf steht. VBScript-Variablen sind immer vom Typ Variant, was aber nicht bedeutet, dass ihr Sub-Typ nicht von Belang wäre. Funktionen etwa, die einen String als Parameter erwarten, kann kein Long-Wert übergeben werden. So eine Konversion nimmt VBS nicht automatisch vor.

Wenn Sie es gewohnt sind, unter VBA in For..Next-Schleifen die Zählervariable namentlich einzusetzen, so müssen Sie unter VBScript davon Abstand nehmen.

Ende des frei verfügbaren Teil. Wenn Du mehr lesen möchtest, hole Dir ...

Testzugang

eine Woche kostenlosen Zugriff auf diesen und mehr als 1.000 weitere Artikel

diesen und alle anderen Artikel mit dem Jahresabo