Set WshNtwk = WScript.CreateObject("WScript.Network")
PropertyInfo = "User Domain" & vbTab & "= " & vbTab & WshNtwk.UserDomain & _
vbCrLf & "Computer Name" & vbTab & "= " & vbTab & WshNtwk.ComputerName & _
vbCrLf & "User Name" & vbTab & "= " & vbTab & WshNtwk.UserName & vbCrLf
MsgBox PropertyInfo, vbOkOnly , "WshNtwk Properties Example"