Nsph3re | Bonsoir.
Voilà quelques temps que j'ai des soucis pour me faire un réseau, et plus particulièrement avec un Routeur Wireless G (DIR-300 de D-Link).
Petite histoire et configuration :
Je dispose de 2 pc avec Windows XP Pro, l'un en 32bit et l'autre en 64bit.
Le pc en 32bit est connecté à une AliceBox (  ) en Ethernet et lorsque j'ai voulu mettre l'autre en Wifi, impossible !
Enfin bref, raz le bol du Wifi, la connection la plus merdique au monde à mon point de vue, j'ai acheter ce petit DIR-300 pour tout mettre en Ethernet.
Problème ! J'ai lancé les configuration sur le pc en 64bit, et la connection est niquel, mais sur le 32bit, impossible d'avoir accès au net et à l'interface du modem.
Après plusieurs messages d'erreur (.asp script) que j'ai corrigé en grande partie (et oui microsoft a oublié de sauter des lignes......) j'arrive presque à la fin de la correction, mais je Bloque !!
Voilà le message d'erreur actuel :
Citation :
Erreur de compilation Microsoft VBScript error '800a03f6'
'End' attendu
/iisHelp/common/500-100.asp, line 122 error '800401e4'
Syntaxe incorrecte
/localstart.asp, line 40
|
Les script sont les suivant (dans l'état actuel)
500-100.asp (je met en couleur la ligne d'erreur)
Spoiler :
<%@ language="VBScript" %>
<% Option Explicit
Const lngMaxFormBytes = 200
Dim objASPError, blnErrorWritten, strServername, strServerIP, strRemoteIP
Dim strMethod, lngPos, datNow, strQueryString, strURL
If Response.Buffer Then
Response.Clear
Response.Status = "500 Erreur interne du serveur"
Response.ContentType = "text/html"
Response.Expires = 0
End If
Set objASPError = Server.GetLastError %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2 Final//EN"> <html dir=ltr> <head> <style> a:link {font:8pt/11pt verdana; color:FF0000} a:visited {font:8pt/11pt verdana; color:#4e4e4e} </style> <META NAME="ROBOTS" CONTENT="NOINDEX"> <title>La page ne peut pas être affichée</title> <META HTTP-EQUIV="Content-Type" Content="text-html; charset=Windows-1252"> </head> <script> function Homepage(){ <!-- // in real bits, urls get returned to our script like this: // res://shdocvw.dll/http_404.htm#http://www.DocURL.com/bar.htm //For testing use DocURL = "res://shdocvw.dll/http_404.htm#https://www.microsoft.com/bar.htm" DocURL=document.URL; //this is where the http or https will be, as found by searching for :// but skipping the res:// protocolIndex=DocURL.indexOf("://",4); //this finds the ending slash for the domain server serverIndex=DocURL.indexOf("/",protocolIndex + 3); //for the href, we need a valid URL to the domain. We search for the # symbol to find the begining //of the true URL, and add 1 to skip it - this is the BeginURL value. We use serverIndex as the end marker. //urlresult=DocURL.substring(protocolIndex - 4,serverIndex); BeginURL=DocURL.indexOf("#",1) + 1; urlresult=DocURL.substring(BeginURL,serverIndex); //for display, we need to skip after http://, and go to the next slash displayresult=DocURL.substring(protocolIndex + 3 ,serverIndex); InsertElementAnchor(urlresult, displayresult); }
function HtmlEncode(text)
{
return text.replace(/&/g, '&').replace(/'/g, '"').replace(/</g, '<').replace(/>/g, '>');
}
function TagAttrib(name, value)
{
return ' '+name+'="'+HtmlEncode(value)+'"';
}
function PrintTag(tagName, needCloseTag, attrib, inner){
document.write( '<' + tagName + attrib + '>' + HtmlEncode(inner) );
if (needCloseTag) document.write( '</' + tagName +'>' );
}
function URI(href)
{
IEVer = window.navigator.appVersion;
IEVer = IEVer.substr( IEVer.indexOf('MSIE') + 5, 3 );
return (IEVer.charAt(1)=='.' && IEVer >= '5.5') ?
encodeURI(href) :
escape(href).replace(/%3A/g, ':').replace(/%3B/g, ';');
}
function InsertElementAnchor(href, text)
{
PrintTag('A', true, TagAttrib('HREF', URI(href)), text);
}
//--> </script> <body bgcolor="FFFFFF"> <table width="410" cellpadding="3" cellspacing="5"> <tr> <td align="left" valign="middle" width="360"> <h1 style="COLOR:000000; FONT: 13pt/15pt verdana"><!--Problem-->La page ne peut pas être affichée</h1> </td> </tr> <tr> <td width="400" colspan="2"> <font style="COLOR:000000; FONT: 8pt/11pt verdana">Un problème affecte la page que vous essayez d'obtenir et elle ne peut pas être affichée.</font></td> </tr> <tr> <td width="400" colspan="2"> <font style="COLOR:000000; FONT: 8pt/11pt verdana"> <hr color="#C0C0C0" noshade> <p>Essayez les opérations suivantes :</p> <ul> <li id="instructionsText1">Cliquez sur le bouton <a href="javascript:location.reload()">Actualiser</a> ou réessayez plus tard. </li> <li>Ouvrez la <script> <!-- if (!((window.navigator.userAgent.indexOf("MSIE" ) > 0) && (window.navigator.appVersion.charAt(0) == "2" ))) { Homepage(); } //--> </script> page d'accueil, puis recherchez les liens vers les informations souhaitées. </li> </ul> <h2 style="font:8pt/11pt verdana; color:000000">HTTP 500,100 – Erreur interne au serveur – Erreur ASP <br> Services Internet (IIS)</h2> <hr color="#C0C0C0" noshade> <p>Informations techniques (destinées au personnel du Support technique)</p> <ul> <li><strong>Type d'erreur :<br>
<% Dim bakCodepage
on error resume next
bakCodepage = Session.Codepage
Session.Codepage = 1252
on error goto 0
Response.Write Server.HTMLEncode(objASPError.Category)
If objASPError.ASPCode > "" Then
Response.Write Server.HTMLEncode(", " & objASPError.ASPCode)
Response.Write Server.HTMLEncode(" (0x" & Hex(objASPError.Number) & " )" ) & "<br>"
If objASPError.ASPDescription > "" Then
Response.Write objASPError.ASPDescription & "<br>"
If objASPError.ASPDescription > "" Then
Response.Write objASPError.ASPDescription & "<br>"
blnErrorWritten = False ' Only show the Source if it is available and the request is from the same machine as IIS If objASPError.Source > "" Then
strServername = LCase(Request.ServerVariables("SERVER_NAME" ))
strServerIP = Request.ServerVariables("LOCAL_ADDR" )
strRemoteIP = Request.ServerVariables("REMOTE_ADDR" )
If (strServername = "localhost" Or strServerIP = strRemoteIP) And objASPError.File <> "?" Then
Response.Write Server.HTMLEncode(objASPError.File)
If objASPError.Line > 0 Then
Response.Write ", line " & objASPError.Line
If objASPError.Column > 0 Then
Response.Write ", column " & objASPError.Column
Response.Write "<br>"
Response.Write "<font style=""COLOR:000000; FONT: 8pt/11pt courier new""><b>"
Response.Write Server.HTMLEncode(objASPError.Source) & "<br>"
If objASPError.Column > 0 Then
Response.Write String((objASPError.Column - 1), "-" ) & "^<br>"
Response.Write "</b></font>"
blnErrorWritten = True
End If
End If
If Not blnErrorWritten And objASPError.File <> "?" Then
Response.Write "<b>" & Server.HTMLEncode( objASPError.File)
If objASPError.Line > 0 Then
Response.Write Server.HTMLEncode(", line " & objASPError.Line)
If objASPError.Column > 0 Then
Response.Write ", column " & objASPError.Column
Response.Write "</b><br>"
End If
%>
</li> <p> <li>Type de navigateur :<br> <%= Request.ServerVariables("HTTP_USER_AGENT" ) %> </li> <p> <li>Page :<br>
<% strMethod = Request.ServerVariables("REQUEST_METHOD" )
Response.Write strMethod & " "
If strMethod = "POST" Then
Response.Write Request.TotalBytes & " octets à "
End If
Response.Write Request.ServerVariables("SCRIPT_NAME" )
lngPos = InStr(Request.QueryString, "|" )
If lngPos > 1 Then
Response.Write "?" & Left(Request.QueryString, (lngPos - 1))
End If
Response.Write "</li>"
If strMethod = "POST" Then
Response.Write "<p><li>POST Data:<br>"
If Request.TotalBytes > lngMaxFormBytes Then
Response.Write Server.HTMLEncode(Left(Request.Form, lngMaxFormBytes)) & " . . ."
Else
Response.Write Server.HTMLEncode(Request.Form)
End If
Response.Write "</li>"
End If
%>
<p> <li>Heure :<br>
<% datNow = Now()
Response.Write Server.HTMLEncode(FormatDateTime(datNow, 1) & ", " & FormatDateTime(datNow, 3))
on error resume next
Session.Codepage = bakCodepage
on error goto 0
%>
</li> </p> <p> <li>Plus d'informations :<br>
<% strQueryString = "prd=iis&sbp=&pver=5.0&ID=500;100&cat=" & Server.URLEncode(objASPError.Category) & _
"&os=&over=&hrd=&Opt1=" & Server.URLEncode(objASPError.ASPCode) & "&Opt2=" & Server.URLEncode(objASPError.Number) & _
"&Opt3=" & Server.URLEncode(objASPError.Description)
strURL = "http://www.microsoft.com/ContentRedirect.asp?" & _
strQueryString
%>
<a href="<%= strURL%>">Support technique Microsoft</a> </li> </p> </font> </td> </tr>
</table>
</body>
</html> |
localstart.asp (de même pour la couleur)
Spoiler :
<%@ Language = "VBScript" %>
<% Response.Buffer = True %>
<html>
<%
' Prepare variables.
Dim oFS, oFSPath
Dim sServername, sServerinst, sPhyspath, sServerVersion
Dim sServerIP, sRemoteIP
Dim sPath, oDefSite, sDefDoc, sDocName, aDefDoc
Dim bSuccess ' This value is used later to warn the user if a default document does not exist.
Dim iVer ' This value is used to pass the server version number to a function.
bSuccess = False
iVer = 0
' Get some server variables to help with the next task.
sServername = LCase(Request.ServerVariables("SERVER_NAME" ))
sServerinst = Request.ServerVariables("INSTANCE_ID" )
sPhyspath = LCase(Request.ServerVariables("APPL_PHYSICAL_PATH" ))
sServerVersion = LCase(Request.ServerVariables("SERVER_SOFTWARE" ))
sServerIP = LCase(Request.ServerVariables("LOCAL_ADDR" )) ' Server's IP address
sRemoteIP = LCase(Request.ServerVariables("REMOTE_ADDR" )) ' Client's IP address
' If the querystring variable uc <> 1, and the user is browsing from the server machine,
' go ahead and show them localstart.asp. We don't want localstart.asp shown to outside users.
If Not (sServername = "localhost" Or sServerIP = sRemoteIP) Then
Response.Redirect "iisstart.asp"
Else
' Using ADSI, get the list of default documents for this Web site.
sPath = "IIS://" & sServername & "/W3SVC/" & sServerinst
Set oDefSite = GetObject(sPath)
sDefDoc = LCase(oDefSite.DefaultDoc)
aDefDocs = split(sDefDoc, "," )
' Make sure at least one of them is valid.
Set oFS = CreateObject("Scripting.FileSystemObject" )
For Each sDocName in aDefDocs
If oFS.FileExists(sPhyspath & sDocName) Then
If InStr(sDocName,"iisstart" ) = 0 Then
' IISstart doesn't count because it is an IIS file.
bSuccess = True ' This value will be used later to warn the user if a default document does not exist.
Exit For
End If
End If
Next
' Find out what version of IIS is running.
Select Case sServerVersion
Case "microsoft-iis/5.0"
iVer = 50 ' This value is used to pass the server version number to a function.
Case "microsoft-iis/5.1"
iVer = 51
Case "microsoft-iis/6.0"
iVer = 60
End Select
%>
<head>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso-8859-1">
<script language="javascript">
// This code is executed before the rest of the page, even before the ASP code above.
var gWinheight;
var gDialogsize;
var ghelpwin;
// Move the current window to the top left corner.
window.moveTo(5,5);
// Change the size of the window.
gWinheight= 480;
gDialogsize= "width=640,height=480,left=300,top=50,"
if (window.screen.height > 600)
{
<% if not success and Err = 0 then %>
gWinheight= 700;
<% else %>
gWinheight= 700;
<% end if %>
gDialogsize= "width=640,height=480,left=500,top=50"
}
window.resizeTo(620,gWinheight);
// Launch IIS Help in another browser window.
loadHelpFront();
function loadHelpFront()
// This function opens IIS Help in another browser window.
{
ghelpwin = window.open("http://localhost/iishelp/","Help","status=yes,toolbar=yes,scrollbars=yes,menubar=yes,location=yes,resizable=yes,"+gDialogsize,true);
window.resizeTo(620,gWinheight);
}
function activate(ServerVersion)
// This function brings up a little help window showing how to open the IIS snap-in.
{
if (50 == ServerVersion)
window.open("http://localhost/iishelp/iis/htm/core/iisnapin.htm", "SnapIn", 'toolbar=no, left=200, top=200, scrollbars=yes, resizeable=yes, width=350, height=350');
if (51 == ServerVersion)
window.open("http://localhost/iishelp/iis/htm/core/iiabuti.htm", "SnapIn", 'toolbar=no, left=200, top=200, scrollbars=yes, resizeable=yes, width=350, height=350');
if (60 == ServerVersion)
window.open("http://localhost/iishelp/iis/htm/core/gs_iissnapin.htm", "SnapIn", 'toolbar=no, left=200, top=200, scrollbars=yes, resizeable=yes, width=350, height=350');
if (0 == ServerVersion)
window.open("http://localhost/iishelp/", "Help", 'toolbar=no, left=200, top=200, scrollbars=yes, resizeable=yes, width=350, height=350');
}
</script>
<title>Bienvenue !</title>
<style>
ul{margin-left: 15px;}
.clsHeading {font-family: Verdana; color: black; font-size: 11; font-weight: 800; width:210;}
.clsEntryText {font-family: Verdana; color: black; font-size: 11; font-weight: 400; background-color:#FFFFFF;}
.clsWarningText {font-family: Verdana; color: #B80A2D; font-size: 11; font-weight: 600; width:550; background-color:#EFE7EA;}
.clsCopy {font-family: Verdana; color: black; font-size: 11; font-weight: 400; background-color:#FFFFFF;}
</style>
</head>
<body topmargin="3" leftmargin="3" marginheight="0" marginwidth="0" bgcolor="#FFFFFF"
link="#000066" vlink="#000000" alink="#0000FF" text="#000000">
<!-- BEGIN MAIN DOCUMENT BODY --->
<p align="center"><img src="winXP.gif" vspace="0" hspace="0"></p>
<table width="500" cellpadding="5" cellspacing="3" border="0" align="center">
<tr>
<td class="clsWarningText" colspan="2">
<table><tr><td>
<img src="warning.gif" width="40" height="40" border="0" align="left">
</td><td class="clsWarningText">
<b>Votre service Web est maintenant en service.
<% If Not bSuccess And Err = 0 Then %>
<p>Aucune page Web par défaut n'est pour l'instant définie pour vos
utilisateurs. Les utilisateurs qui essaient de se connecter à votre site Web à partir d'un autre ordinateur reçoivent actuellement une page
<a href="iisstart.asp?uc=1">En chantier</a> .
Votre serveur Web indique les fichiers suivants comme possibles pages Web par défaut : <%=sDefDoc%>. Pour l'instant, seule iisstart.asp existe.<br><br>
<% End If %>
Pour ajouter des documents à votre site Web par défaut, enregistrez les fichiers dans <%=sPhyspath%>.
</b>
</td></tr></table>
</td>
</tr>
<tr>
<td>
<table cellpadding="3" cellspacing="3" border=0 >
<tr>
<td valign="top" rowspan=3>
<img src="web.gif">
</td>
<td valign="top" rowspan=3>
<span class="clsHeading">
Bienvenue !</span><br>
<span class="clsEntryText">
Internet Information Services (IIS) 5.1 pour Microsoft Windows XP Professionnel
apporte à Windows la puissance des applications pour le Web. Avec IIS, vous pouvez aisément partager des fichiers
et des imprimantes ou vous pouvez créer des applications pour publier des informations en toute sécurité sur le Web
de façon à améliorer la façon dont votre entreprise partage l'information. IIS constitue une plate-forme sécurisée
pour la construction et le déploiement sur le Web de solutions de e-commerce ou d'applications dédiées critiques.
<p>
Windows XP Professionnel avec les Services Internet (IIS) installés constitue un système d'exploitation personnel et de développement idéal pour :</span>
<p>
<ul class="clsEntryText">
<li>Installer un serveur Web personnel
<li>Partager des informations avec votre équipe
<li>Bases de données Access
<li>Développer un intranet d'entreprise
<li>Développer des applications pour le Web.
</ul>
<p>
<span class="clsEntryText">
IIS intègre à Windows des standards Internet éprouvés, pour que l'utilisation du Web n'implique pas de devoir
tout réapprendre et d'assimiler de nouvelles méthodes de publication, de gestion ou de développement de contenu.
<p>
</span>
</td>
<td valign="top">
<img src="mmc.gif">
</td>
<td valign="top">
<span class="clsHeading">Gestion intégrée</span>
<br>
<span class="clsEntryText">
Vous pouvez gérer IIS grâce au composant Gestion de l'ordinateur de <a href="javascript:activate(<%=iVer%> );">Windows XP</a>
ou en utilisant des scripts. Grâce à la console, vous pouvez également partager avec d'autres personnes, via le Web,
le contenu de vos sites et de vos serveurs gérés avec les Services Internet. En accédant au composant logiciel
enfichable IIS à partir de la console, vous pouvez configurer la plupart des paramètres et propriétés usuels
d'IIS. Après le développement d'un site et de ses applications, ces paramètres et propriétés peuvent être
utilisés dans un environnement de production reposant sur des serveurs Windows plus puissants.
<p>
</span>
</td>
</tr>
<tr>
<td valign="top">
<img src="help.gif">
</td>
<td valign="top">
<span class="clsHeading"><a href="javascript:loadHelpFront();">Documentation en ligne</a></span>
<br>
<span class="clsEntryText">L'aide en ligne des Services Internet (IIS) comprend un index, un outil de recherche sur le texte complet,
et la possibilité d'imprimer une rubrique individuelle ou tout un nœud. Pour l'administration de
programmation et le développement de scripts, utilisez les exemples installés avec IIS. Les fichiers
d'aide sont stockés sous forme HTML, ce qui vous permet de les annoter et de les partager autant
que nécessaire. Grâce à l'aide en ligne de IIS, vous pouvez :<p>
</span>
<ul class="clsEntryText">
<li>Obtenir de l'aide sur les tâches
<li>En savoir plus sur le fonctionnement et la gestion d'un serveur
<li>Consulter les documents de référence
<li>Consulter des exemples de code.
</ul>
<p>
<span class="clsEntryText">
D'autres sources d'informations importantes sur les Services Internet (IIS) sont disponibles sur les sites Web de Microsoft.com :
MSDN, TechNet et le site Windows.
</span>
</td>
</tr>
<tr>
<td valign="top">
<img src="print.gif">
</td>
<td valign="top">
<span class="clsHeading">Impression Web</span>
<br>
<span class="clsEntryText">Windows XP Professionnel répertorie dynamiquement toutes les imprimantes de votre serveur
sur un site Web facile d'accès. Vous pouvez utiliser ce site pour contrôler les
imprimantes et leurs tâches. Il vous permet également de vous connecter aux imprimantes
à partir de tout ordinateur Windows. Pour en savoir plus sur l'impression Internet,
consultez l'aide sur Windows.
</span>
</td>
</tr>
</table>
</td>
</tr>
</table>
<p align=center><em><a href="/iishelp/common/colegal.htm">© 1997-2001 Microsoft Corporation. Tous droits réservés.</a></em></p>
</body>
</html>
<% End If %> |
Donc si quelqu'un pouvais me corriger ça, ou au moins me donner la solution, ce serais vraiment sympa... ça me ferais chier d'avoir mit 50€ dans un minilan pour des prunes.
Merci d'avance !
|
