Gettin error bjSysInfo = CreateObject( "ADSystemInfo" ) in classic ASP in IIS7.0

Question

当我在Windows Server 2008上IIS7.0中托管的经典asp中嵌入代码时，我得到了未定义的对象CreateObject（"ADSystemInfo"）。当我使用VBscript在该服务器上执行相同的代码时，它运行良好。有人能帮我吗？我需要知道我是否需要更改的服务器设置

Set objSysInfo = CreateObject("ADSystemInfo")
strUserDN = objSysInfo.UserName
Set objUser = GetObject("LDAP://" & strUserDN)
arrGroups = objUser.memberOf

Answer 1

这是因为您所写的实际上是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 Web服务器以具有正确权限的用户身份运行。