vbs脚本WEB端执行

[zhm8818]

下面是段自动改帐户密码的脚本，现在我想把它放到WEB服务器上，让用户test1（用户是个变量，不同的用户有不同的用户名）通过访问网页的形式来自动重置密码，如何实现？

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

[xuzuning]

放在 asp 页面中 估计是没有权限

[zhm8818]

引用 1 楼 xuzuning 的回复:

放在 asp 页面中 估计是没有权限

但是我通过另一个ASP 页面来调用这个VBS脚本却是可行的，只是这种方式我不知道如何把表单里的用户如何传递给VBS脚本。因为文件都不是同一个

[xuzuning]

设有 a.vbs: msgbox wscript.arguments(0) 则 a.vbs hello!

[zhm8818]

哎，这段代码在服务器端运行不成功。提示各种出错。之前能运行成功原来是在浏览器客户端运行的。