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.
Set con = Server.CreateObject("ADODB.Connection")
con.provider = "ADsDSOObject"
con.open "Active Directory Provider"
Set Com = CreateObject("ADODB.Command")
Set Com.ActiveConnection = con
Com.CommandText = "select givenName from 'LDAP://SERVERNAME/ou=Users,ou=Site,DC=domain,DC=com' WHERE sAMAccountName='" & theUser & "' ORDER BY sn; "