Get Domain Name

[trevorwilliams2]

Anybody know of a function / way to retrieve the name of the current domain?

 

[StarPassing]

Try this:

Function GetData()
Dim wshNetWork
Dim strUserDomain
Dim strCompName

Set wshNetWork = CreateObject("WScript.Network")
strUserDomain = wshNetWork.UserDomain
strCompName = wshNetWork.computername
MsgBox "User Domain: " & strUserDomain & vbNewLine & "Computer Name: " & strCompName
End Function

Tom

 

[trevorwilliams2]

Just what I needed. Works great. Thanks!