Bonjour a tous, voila je cherche a faire une page demandant un login et mot de passe pour ensuite pouvoir mapper un lecteur réseau. j'ai trouvé ce petit bout de code mais il ne fonctionne pas correctement. pouvez vous m'aidez à le debugger
<%@ Language=VBScript %>
<HTML><HEAD><TITLE>Logon</TITLE></HEAD>
<BODY>
<%
dim sUser, sPwd
sUser = Request.Form("user")
sPwd = Request.Form("password")
if sUser <> "" then
Dim WshNetwork
Set WshNetwork = WScript.CreateObject("WScript.Network")
WshNetwork.MapNetworkDrive "w:", "http://172.16.51.200/toto", 0, sUser, sPwd
Response.Write "DONE<BR>"
end if
%>
<FORM action="connect.asp" method="post">
<TABLE BORDER="1">
<TR><TH>
User</TH><TD>
<INPUT type="text" name="user">
</TD></TR>
<TR><TH>
Password</TH><TD>
<INPUT type="password" name="password">
</TD></TR>
</TABLE>
<INPUT type="submit" value="Submit" id="submit1" name="submit1">
<INPUT type="reset" value="Reset" id="reset1" name="reset1">
</FORM>
</BODY>
</HTML>
quand j'execute j'obtien cette erreur
Erreur de compilation Microsoft VBScripterror
'800a0401'
Fin d'instruction attendue
/iisHelp/common/500-100.asp, line 11
Dim objASPError, blnErrorWritten, strServername, strServerIP, strRemoteIP Dim strMethod, lngPos, datNow, strQueryString, strURL
--------------------------------------------------------------------------^
Erreur d'exécution Microsoft VBScripterror
'800a01a8'
Objet requis: ''
/test/connect.asp,
line 14
Merci pour votre aide