Try something like this:Sub GetNetworkDomain()Dim wshSet wsh = CreateObject("WScript.Network")MsgBox wsh.UserDomainEnd Sub