Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Public Function ADsFullName() As String
'This function requires a reference to _
Active DS Type Library (activeds.tlb)
'Will work in any office application that will _
allow you to write and run a macro
Dim objIADsUser As ActiveDs.IADsUser
Dim strUserID As String, strComputerName As String
strComputerName = Environ$("COMPUTERNAME")
strUserID = Environ$("USERNAME")
Set objIADsUser = GetObject("WinNT://" & _
strComputerName & "/" & strUserID & ",user")
ADsFullName = objIADsUser.FullName
Set objIADsUser = Nothing
End Function
Set WshNetwork = WScript.CreateObject("WScript.Network")
Set objIADsUser = GetObject("WinNT://" & WshNetwork.UserDomain & "/" & WshNetwork.UserName & ",user")
WScript.Echo objIADsUser.FullName