Option Explicit

Dim fs
Dim wshNetwork
Dim sUser, sUDomain, sComputer

Set wshNetwork = CreateObject("WScript.Network")
sUser = wshNetwork.Username
sUDomain = wn.UserDomain
sComputer = wn.ComputerName

WScript.Echo "Angemeldeter Benutzer: " & sUser
WScript.Echo "Domain: " & sUDomain
WScript.Echo "Computer: " & sComputer