Kategorie: 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.

Veröffentlicht am
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")

' Search SerialNumber
For each strResult in objWMI.Instances_
    ' Print SerialNumber - Service-Tag
    WScript.Echo "Seriennummer: " & strResult.SerialNumber
Next
' Deallocate used object
Set objWMI = Nothing

' Wir beenden sauber. :)
WScript.Quit()

Getestet wurde das Script mit Windows 10 sowie einem Computer der Marke Dell. Bei anderen System kann es ggf. zu anderen Ausgaben kommen.

Win32_BIOS-WMI-Klasse

Die Win32_BIOS-WMI-Klasse repräsentiert die Attribute der BIOS (Basic Input / Output Services) des Computersystems, die auf dem Computer installiert sind. Es folgt eine Liste der Attribute.

Wscript.Echo "BiosCharacteristics: " & strResult.BiosCharacteristics
Wscript.Echo "BuildNumber: " & strResult.BuildNumber
Wscript.Echo "Caption: " & strResult.Caption
Wscript.Echo "CodeSet: " & strResult.CodeSet
Wscript.Echo "CurrentLanguage: " & strResult.CurrentLanguage
Wscript.Echo "Description: " & strResult.Description
Wscript.Echo "IdentificationCode: " & strResult.IdentificationCode
Wscript.Echo "InstallableLanguages: " & strResult.InstallableLanguages
Wscript.Echo "InstallDate: " & strResult.InstallDate
Wscript.Echo "LanguageEdition: " & strResult.LanguageEdition
Wscript.Echo "ListOfLanguages: " & strResult.ListOfLanguages
Wscript.Echo "Manufacturer: " & strResult.Manufacturer
Wscript.Echo "Name: " & strResult.Name
Wscript.Echo "OtherTargetOS: " & strResult.OtherTargetOS
Wscript.Echo "PrimaryBIOS: " & strResult.PrimaryBIOS
Wscript.Echo "ReleaseDate: " & strResult.ReleaseDate
Wscript.Echo "SerialNumber: " & strResult.SerialNumber
Wscript.Echo "SMBIOSBIOSVersion: " & strResult.SMBIOSBIOSVersion
Wscript.Echo "SMBIOSMajorVersion: " & strResult.SMBIOSMajorVersion
Wscript.Echo "SMBIOSMinorVersion: " & strResult.SMBIOSMinorVersion
Wscript.Echo "SMBIOSPresent: " & strResult.SMBIOSPresent
Wscript.Echo "SoftwareElementID: " & strResult.SoftwareElementID
Wscript.Echo "SoftwareElementState: " & strResult.SoftwareElementState
Wscript.Echo "Status: " & strResult.Status
Wscript.Echo "TargetOperatingSystem: " & strResult.TargetOperatingSystem
Wscript.Echo "Version: " & strResult.Version

Veröffentlicht am
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 = objSystemInfo.ComputerName

' Print local hostname
WScript.Echo "Hostname: " & strHostname

' Deallocate used object
Set objSystemInfo = Nothing

' Wir beenden sauber. :)
WScript.Quit()

Getestet wurde das Script mit Windows 10.

Veröffentlicht am
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 beenden sauber. :)
WScript.Quit()

Getestet wurde das Script in einer Windows-XP-Umgebung.

Version 2 – WinNTSystemInfo

' Heiko Jendreck - personal helpdesk & webdesign
' http://www.phw-jendreck.de
' 2019.05.15 Vers 1.0
' UserName aufrufen mit WScript.Shell
Option Explicit

' Declaration of variables
Dim objSystemInfo, strUserName

' Create object WinNTSystemInfo
Set objSystemInfo = WScript.CreateObject("WinNTSystemInfo")

' Get active UserName
strUsername = objSystemInfo.UserName

' Print aktive UserName
WScript.Echo "UserName: " & strUserName

' Deallocate used object
Set objSystemInfo = Nothing

' Wir beenden sauber. :)
WScript.Quit()

Getestet wurde das Script mit Windows 10

Veröffentlicht am
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 →