OVH Cloud OVH Cloud

IIS et VB6.0

1 réponse
Avatar
jean saint jalmes
Bonjour,

Sous Windows XP PRO, j'ai installé IIS et j'essaie de développer une
application IIS sous VB6.0.

En exécutant l'exemple WcDemo de la MSDN, j'obtient systématiquement
l'erreur suivante :

"Erreur de compilation Microsoft VBScript error '800a0401'
Fin d'instruction attendue
/iisHelp/common/500-100.asp, line 11
Dim objASPError, blnErrorWritten, strServername, strServerIP, strRemoteIP
Dim strMethod, lngPos, datNow, strQueryString, strURL
--------------------------------------------------------------------------^
Objet Server error 'ASP 0178 : 800a0005'
Erreur d'accès Server.CreateObject
/wcDemo/wcdemo.ASP, line 14
L'appel à Server.CreateObject a échoué lors de la vérification des
permissions. L'accès à cet objet est refusé.

Je ne comprends pas cette erreur car :

- sous IIS, j'ai autorisé les scripts et les exécutables.
- j'ai déchargé puis rechargé intégralement Visual Studio 6.0.

Voici le contenu de WcDemo.asp :

<%
Server.ScriptTimeout=600
Response.Buffer=True
Response.Expires=0

If (VarType(Application("~WC~WebClassManager")) = 0) Then
Application.Lock
If (VarType(Application("~WC~WebClassManager")) = 0) Then
Set Application("~WC~WebClassManager") =
CreateObject("WebClassRuntime.WebClassManager")
End If
Application.UnLock
End If

Application("~WC~WebClassManager").ProcessNoStateWebClass "wcDemo.wbcls1", _
Server, _
Application, _
Session, _
Request, _
Response
%>

Merci d'avance pour votre aide car je ne sais plus ou chercher.

Cordialement, Jean

1 réponse

Avatar
Clive Lumb
jean saint jalmes wrote:
Bonjour,

Sous Windows XP PRO, j'ai installé IIS et j'essaie de développer une
application IIS sous VB6.0.

En exécutant l'exemple WcDemo de la MSDN, j'obtient systématiquement
l'erreur suivante :

"Erreur de compilation Microsoft VBScript error '800a0401'
Fin d'instruction attendue
/iisHelp/common/500-100.asp, line 11
Dim objASPError, blnErrorWritten, strServername, strServerIP,
strRemoteIP Dim strMethod, lngPos, datNow, strQueryString, strURL
--------------------------------------------------------------------------


^
Objet Server error 'ASP 0178 : 800a0005'
Erreur d'accès Server.CreateObject
/wcDemo/wcdemo.ASP, line 14
L'appel à Server.CreateObject a échoué lors de la vérification des
permissions. L'accès à cet objet est refusé.

Je ne comprends pas cette erreur car :

- sous IIS, j'ai autorisé les scripts et les exécutables.
- j'ai déchargé puis rechargé intégralement Visual Studio 6.0.

Voici le contenu de WcDemo.asp :

<%
Server.ScriptTimeout`0
Response.Buffer=True
Response.Expires=0

If (VarType(Application("~WC~WebClassManager")) = 0) Then
Application.Lock
If (VarType(Application("~WC~WebClassManager")) = 0) Then
Set Application("~WC~WebClassManager") > CreateObject("WebClassRuntime.WebClassManager")
End If
Application.UnLock
End If

Application("~WC~WebClassManager").ProcessNoStateWebClass
"wcDemo.wbcls1", _ Server, _
Application, _
Session, _
Request, _
Response
%>

Merci d'avance pour votre aide car je ne sais plus ou chercher.

Cordialement, Jean



Le réponse semble être ici
http://support.microsoft.com/default.aspx/kb/259725
Ceal serait dû au fait que lors du développement (c.a.d dans lIDE de VB) le
serveur DCOM est VB6, pas IIS. VB6 n'est pas enregistré comme serveur, donc
DCOM prend les permissions par défaut qui sont insuffisantes.

Il faut donc copier ce texte dans un fichier .reg et double cliquer dessus
pour l'importer dans la base de registres
NOTE - Ton lecteur de news peut couper des lignes - il y en a 7 au total, si
tu en vois plus, alors saches que les lignes commencent avec (dans l'ordre)
R[@[@[".

REGEDIT4
[HKEY_CLASSES_ROOTCLSID{70F214BA-94E2-4bdf-8F30-32CB4A905E4D}]
@="VB ASP Debugging"
[HKEY_CLASSES_ROOTCLSID{70F214BA-94E2-4bdf-8F30-32CB4A905E4D}LocalServer3
2]
@="vb6.exe"
[HKEY_CLASSES_ROOTAppIDvb6.exe]
"AppId"="{70F214BA-94E2-4bdf-8F30-32CB4A905E4D}"