vbs脚本ASP中实现

[zhm8818]

下面这段代码是自动更改用户test1（是个变量）密码的，我想让它在WEB器上让用户通过web访问自动执行，请问该如何实现？

Option Explicit

Dim objOU, objUser, objRootDSE

Dim strContainer, strDNSDomain, strPassword

Set objRootDSE = GetObject("LDAP://RootDSE")

strDNSDomain = objRootDSE.Get("DefaultNamingContext")

strContainer = "OU=test, "

strPassword = "P@ssw0rd"

strContainer = strContainer & strDNSDomain
set objOU =GetObject("LDAP://" & strContainer )

For each objUser in objOU

If objUser.samaccountname="test1" then

objUser.SetPassword strPassword

objUser.IsAccountLocked=False
objUser.SetInfo

End If


Next



WScript.Quit

[小小小菜鸟_]

用VB把它封装成vb activex dll组件，然后用ASP来调用即可。

[hookee]

IIS 中设置 访问该asp的匿名访问账号为Adminstartor的账号试试看，WScript.Quit 这句不要

[zhm8818]

引用 1 楼 hao33892 的回复:

用VB把它封装成vb activex dll组件，然后用ASP来调用即可。

我封装完后还是无法调用，一调用就会出语法错误。

[zhm8818]

引用 2 楼 hookee 的回复:

IIS 中设置 访问该asp的匿名访问账号为Adminstartor的账号试试看，WScript.Quit 这句不要

这个方法已经试过了，没用，会提示代码有问题，各种错误

[zhm8818]

引用 2 楼 hookee 的回复:

IIS 中设置 访问该asp的匿名访问账号为Adminstartor的账号试试看，WScript.Quit 这句不要

vbs脚本如何封装成dll？