personal helpdesk & webdesign
Sie befinden sich hier: Home » Makrocenter » VBS-Makros
Das folgende Makrobeispiel zeigt, wie man den aktiven Windows-User per VBS ermitteln kann.' Heiko Jendreck - personal helpdesk & webdesign ' http://www.phw-jendreck.de ' Version 1.00.043 2010.09.16 HJe ' Aktiven Windows-User per VBS ermitteln Option Explicit Dim oWshShell, UserName set oWshShell = CreateObject("WScript.Shell") (...)
Um Leerzeichen aus einem String zu entfernen. benutzt man die Funktion Trim. Mit Trim werden die Leerzeichen vor und nach einem String gelöscht. LTrim hingegen entfernt lediglich alle führende Lehrzeichen, sprich bis zur ersten String-Variable und RTrim löscht alle nachfolgenden Leerzeichen. ' Heiko Jendreck - personal helpdesk & webdesign ' (...)
Ziel des nachfolgenden Beispiel-Marko ist es, eine komplette Ordnerstruktur, ausgehend von einem Startordner, auflisten zu lassen. Die jeweilige Tiefe, kann dabei selbst bestimmt werden. Wir nutzen dafür die Funktion GetSubFolderList, welche sich rekursiv aufruft. Hinweis: Stellen Sie sicher, dass Sie Zugriff auf alle Ordner in dieser Struktur (...)
UTF-8 ist eine Zeichenkodierung, welche Internet oft angewendet respektive benutzt wird. Einige Editoren haben jedoch beim Speichern in UTF-8 das Problem, dass zusätzlich ein BOM (Byte Order Mark) eingefügt wird. Dies führt oft zu erheblichen Problemen, wenn beispielsweise einzelne PHP-Dateien verbunden werden. Um feststellen zu können, (...)
Durch einen Kundenauftrag bekam ich die Aufgabe, eine Datei nur dann in ein lokales Verzeichnis zu kopieren, wenn eine neuere Version vorliegt. Das folgende Beispielscript prüft zunächst die Verfügbarkeit des Quellordners respektive ob eine Quelldatei vorhanden ist. Ferner wird mittels Registry-Eintrag geprüft, ob eine neuere Dateiversion vorliegt. (...)
Es kann nützlich sein, die unterschiedlichen Versionen einer Datei auszulesen, um später damit weiter arbeiten zu können. Beispielsweise um einen Datenaustausch vorzunehmen. Dazu nutzen wir das FSO (File System Object). Im folgenden Beispiel sollen alle Daten aus dem Verzeichnis C:\Windows\System32 aufgelistet und deren Versionsnummer angezeigt (...)
Als Webdesigner möchte man natürlich seine Arbeit beim Kunden präsentieren. Dafür gibt es verschiedene Lösungsansätze. Mit dem folgenden Makro möchte ich aufzeigen, wie der InternetExplorer ferngesteuert werden kann und eine Webpräsentation völlig automatisch abläuft. Hierzu verwende ich das Objektmodell des InternetExplorers.' Heiko (...)
Um einen URL im InternetExplorer aufzurufen, gibt es verschiedene Lösungsansätze. Ich möchte hier 2 kleine Beispiele zeigen. Im ersten Beispiel verwenden wir WScript.Shell:' Heiko Jendreck - personal helpdesk & webdesign ' http://www.phw-jendreck.de ' 2009.10.13 Vers 1.0 ' URL im Internetexplorer aufrufen mit WScript.Shell ' (...)
Die Werte für den Einsatz eines Proxy-Servers im InternetExlporer, lassen sich durch ein Skript mit VBS setzen. Dazu wird der Eintrag direkt in die Registry geschrieben. Siehe Beispiel:' Heiko Jendreck - personal helpdesk & webdesign ' http://www.phw-jendreck.de ' 2009.10.09 Vers 1.0 ' Proxywert im IE setzen ' Mit diesem Script (VBS) lassen (...)
Die FIX-Funktion gibt den ganzzahligen Anteil einer Zahl zurück. Die INT-Funktion gibt den ganzzahligen Anteil einer Zahl zurück. Bei der FIX-Funktion ist der Rückgabewert für negative Zahlen kleiner oder gleich dem Argument Zahl. Bei der INT-Funktion ist der Rückgabewert für negative Zahlen größer oder gleich dem Argument Zahl. Parameter: Zahl (...)
Der Operator mod dividiert zwei Zahlen und gibt nur den Rest vom Ergebnis zurück. Beidpiel 5 mod 2 = 1; denn 5 geteilt durch 2 = 2 Rest 1 jede x-beliebige Zahl mod 1 = 0; denn es gibt keinen Restwert Entsprechende Formel Der Ausdruck a mod b ist zu beiden der folgenden Formeln äquivalent: a - (b * (a \ b)) a - (b * FIX(a / b))
Durch ein Kundenprojekt war es erforderlich ein VBS-Script zu entwerfen, welches die aktuelle TAPI-Line prüft und ein Call initiiert. ' Heiko Jendreck - personal helpdesk & webdesign ' http://www.phw-jendreck.de ' 2009.10.08 Vers 1.0 ' Settings strPhoneNumber = "+49 (6202) 1268480" strTapiLine = "AG manuelle Anwahl" 'Name der TAPI-Line (...)
Die Funktion MsgBox zeigt eine Meldung in einem Dialogfeld an und wartet darauf, dass der Benutzer auf eine Schaltfläche klickt. Anschließend wird eine ganze Zahl zurückgegeben, die anzeigt, auf welche Schaltfläche geklickt wurde. Parameter: Prompt - Erforderlich String-Ausdruck, der als Meldung im Dialogfeld angezeigt wird. Die maximale (...)
Manchmal kann es sinnvoll sein, eine MsgBox von allein wieder verschwinden zu lassen. set objShell = createobject("Wscript.shell") objShell.popup "Nach 3 Sekunden bin ich wieder weg.",3,"Messageboxmeldung"
' Heiko Jendreck - personal helpdesk & webdesign ' http://www.phw-jendreck.de ' 2008.10.01 Vers1.0 ' Convert doc2pdf - PDF aus Word 2007 Dokument erstellen Dim sPDFFile sPDFFile = "C:\test.pdf" ' an dieser Stelle bitte den Pfad und Dateinamen angeben oActiveDocument.SaveAs sPDFFile, 17 Voraussetzung dafür ist MS-Word ab Version (...)
Hier ein Makro zur Erstellung einer Textdatei, mittels FSO (File System Object). Der Name der erzeugten Textdatei beinhaltet das aktuelle Datum. Ich setze dies oft für die Fehlersuche und/oder als LOG-Buch ein. ' Heiko Jendreck - personal helpdesk & webdesign ' http://www.phw-jendreck.de ' 2009.05.17 Option Explicit '***************************************************** Dim (...)