Dennis, загани этот текст в пустой текстовый файлик и задай расширение ".vbs"
Dim WshNetwork, Domain, Komputer 'Обьявляем переменные
Set WshNetwork = WScript.CreateObject("WScript.Network"
'создаес ссылку на обьект
User = WshNetwork.UserName
Domain = WshNetwork.UserDomain
Komputer = WshNetwork.ComputerName
MsgBox "Имя активного пользователя: " & User & VbCrLf & "Имя домена: " & Domain & VbCrLf & "Имя компьютера: " & Komputer
' надпись "VbCrLf" переносит сообщение на следующую строку
Если что - спрашивай
WSH
WSH
