Wenn Sie von einem Windows 10 (ab dem Build 1709) Computer auf ein Windows Server 2003 Share zugreifen wollen, kommt folgende Fehlermeldung:
Windows can’t find Servername. Check the spelling and try again.
Auch bei einigen NAS-Systemen oder in älteren Netzwerkumgebungen kann der Zugriff verweigert werden respektive sind die Systeme sind gar nicht erst sichtbar. Weiterlesen
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.
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
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.
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")
UserName = oWshShell.ExpandEnvironmentStrings("%UserName%")
Wscript.Echo UserName
' Wir beenden sauber. :)
WScript.Quit()
Getestet wurde das Script in einer Windows-XP-Umgebung.
' 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
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