Это потому, что вы написали о VBScript, а не о классическом ASP.
Вы можете запустить это из окна cmd, и оно должно работать нормально. Но чтобы преобразовать его в ASP, нужно сделать пару вещей.
Окружите свой код
<%
... code here
%>
А затем измените каждый экземпляр CreateObject
на Server.CreateObject
Ваш код будет выглядеть так:
<%
Set objSysInfo = Server.CreateObject("ADSystemInfo")
strUserDN = objSysInfo.UserName
Set objUser = GetObject("LDAP://" & strUserDN)
arrGroups = objUser.memberOf
%>
Наконец, убедитесь, что веб-сервер IIS работает как пользователь с правильными разрешениями.