Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations TouchToneTommy on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
How To Identify Domain Name? 1
- Thread starter StewartJ
- Start date
-
1
- #2
fe:
from environment variables
Sub WhoAmI()
MsgBox Environ$("USERDOMAIN"
& "\" & Environ$("USERNAME"
End Sub
or wscript:
Sub WhoAmi0()
Dim WSHNetwork
Dim colDrives, SharePoint
Dim CRLF
CRLF = Chr(13) & Chr(10)
Set WSHNetwork = CreateObject("WScript.Network"
MsgBox "UserDomain" & Chr(9) & "= " & WSHNetwork.UserDomain & CRLF & _
"UserName" & Chr(9) & "= " & WSHNetwork.UserName & CRLF & _
"ComputerName" & Chr(9) & "= " & WSHNetwork.ComputerName
End Sub
ide
from environment variables
Sub WhoAmI()
MsgBox Environ$("USERDOMAIN"
& "\" & Environ$("USERNAME"End Sub
or wscript:
Sub WhoAmi0()
Dim WSHNetwork
Dim colDrives, SharePoint
Dim CRLF
CRLF = Chr(13) & Chr(10)
Set WSHNetwork = CreateObject("WScript.Network"
MsgBox "UserDomain" & Chr(9) & "= " & WSHNetwork.UserDomain & CRLF & _
"UserName" & Chr(9) & "= " & WSHNetwork.UserName & CRLF & _
"ComputerName" & Chr(9) & "= " & WSHNetwork.ComputerName
End Sub
ide
- Status
