' *
' * Объект WSH Network.	Windows Script Host Model		wshcom.ocx
' *

Dim WSHNetwork
Dim CRLF

CRLF = Chr( 13 ) & Chr( 10 )
Set WSHNetwork = WScript.CreateObject("WScript.Network")


' **************************************************
' *
' * Вывод свойств объекта WSHNetwork
' *
' *
MsgBox "UserDomain"     & Chr( 9 ) & "= " & WSHNetwork.UserDomain  & CRLF &   _
       "UserName"       & Chr( 9 ) & "= " & WSHNetwork.UserName    & CRLF &   _
       "ComputerName"   & Chr( 9 ) & "= " & WSHNetwork.ComputerName,          _
       vbInformation + vbOKOnly,                                            _
       "Свойства WSHNetwork"