VBS-Makros

Kleine Codeschnipsel für VB-Script. Diese VBS-Makros eignen sich sehr gut für automatisierte Programmabläufe und Testzwecke.

Visual Basic Script (kurz: VBScript oder VBS) ist eine von Microsoft entwickelte Skriptsprache. Sie ist eng verwandt mit Visual Basic (VB) und Visual Basic for Applications (VBA) und richtet sich ferner an alle Windows Benutzer zur Steuerung des Betriebsystemes.

Der klare Vorteil der VBS-Makros liegt in den geringen Systemvoraussetzungen sowie dem direkten Starten des Codes ohne kompilieren.

Seriennummer oder Service-Tag auslesen

von

Einige Computerhersteller verwenden im Bios eine eigene Seriennummer, um das Gerät einwandfrei zu kennzeichnen. Bei Dell heißt sie Service-Tag Nummer. ‚ Heiko Jendreck – personal helpdesk & webdesign ‚ http://www.phw-jendreck.de ‚ 2019.05.15 Vers 1.0 ‚ SerialNumber aufrufen mit WScript.Shell Option Explicit ‚ Declaration of variables Dim objWMI, strResult ‚ Create object Set objWMI = GetObject(„winmgmts://localhost/root/cimv2:Win32_BIOS“) … Weiterlesen

ComputerName aufrufen mit WScript.Shell

von

Das folgende Makrobeispiel zeigt, wie man den Computernamen per VBS bzw. WScript ermitteln kann. ‚ Heiko Jendreck – personal helpdesk & webdesign ‚ http://www.phw-jendreck.de ‚ 2019.05.15 Vers 1.0 ‚ ComputerName aufrufen mit WScript.Shell Option Explicit ‚ Declaration of variables Dim objSystemInfo, strHostname ‚ Create object WinNTSystemInfo Set objSystemInfo = WScript.CreateObject(„WinNTSystemInfo“) ‚ Get local hostname strHostname … Weiterlesen

Aktiven Windows User ermitteln

von

Das folgende Makrobeispiel zeigt, wie man den aktiven Windows User per VBS ermitteln kann. Version 1 – ExpandEnvironmentStrings ‚ 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“) UserName = oWshShell.ExpandEnvironmentStrings(„%UserName%“) Wscript.Echo UserName ‚ Wir … Weiterlesen

URL im Internet Explorer aufrufen

von

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

' In diesem Makro wird, mit Hilfe des WScript.Shell Objektes, ein URL im IE aufgerufen. 
' zunächst setzen wir den URL für den Programmaufruf
strUrl = "http://www.phw-jendreck.de"

' Wir verbinden uns mit dem Objekt WScript.Shell
Dim objWshShell
Set objWshShell = CreateObject("WScript.Shell")

' nun starten wir den InternetExplorer und rufen den URL auf
objWshShell.Run "iexplore.exe " & strUrl

Weiterlesen