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

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

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