Page Web ASP avec Vbscript

Bonjour à tous,

Je désire me faire une interface web afin d'effectuer à distance certaines tâches d'administration réseau. Là je veux faire une page pour délocker un usager. Je me crée une fonction en Vbs (qui fonctionne très bien lorsque je la save dans un fichier vbs) mais lorsque je la mets dans une page ASP, ça ne marche pas. Je ne sais vraiment pas ce que je fais de pas correct. Voici le code:

Code:

<%
On Error Resume Next

Function UnlockUser(sUser)

Dim oUser
sUser = "test"
Set oUser = GetObject("WinNT://domain.com/" & sUser & ",user")

'User Found?
If Err <> 0 Then

'no!
MsgBox = "User Not Found!"

Else

If oUser.IsAccountLocked = False Then

sMsg = "The Account Unlock Failed. Check that the account is, in fact, locked-out."

Else

oUser.IsAccountLocked = False
oUser.SetInfo
sMsg = "User Unlock Successful"
End If

End If

UnlockUser = sMsg

End Function

%>
<html>

<body>

Unlock User Account 
This page will work only for domain administrators or account operators.

<form action=UserUnlock.asp method=POST
enctype="application/x-www-form-urlencoded">

User ID: 
<INPUT TYPE="text" SIZE="20" NAME="UserID"><o:p></o:p>

<INPUT TYPE="submit" ACTION="UserUnlock.asp" METHOD="POST" NAME="Submit"
ACTION=UserUnlock.asp METHOD=POST ACTION=UserUnlock.asp METHOD=POST>

<div class=MsoNormal align=center style='text-align:center'>

<hr size=2 width="100%" noshade color=black align=center>

</form>
<%
If Request("Submit") <> "" Then
%>
Result for
 <% Response.Write Request("UserID") %> 
<% Response.Write UnlockUser(Request("UserID")) %>

<% End If %>

<a
href="http://webserver/Default.htm">Main Menu</a><o:p></o:p>

<a
href="http://webserver/Active_Directory.htm">Active Directory Menu</a><o:p></o:p>

</body>

</html>