Asp + Vbscript

**nicobox** · 05/10/2006, 23h02

Bonjour,

Voilà j'essai de faire un truc tres simple, je souhaite récupérer un bout de vbscript et l'insérer dans une page asp, ca donne donc ca :

(J'ai simplement remplacé les wscript.echo par des reponse.write)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
<%@ LANGUAGE = VBScript %>
 
<HTML>
    <HEAD>
        <TITLE>ESSAI</TITLE>
    </HEAD>
    <BODY> 
    <BR>essai</BR>
 
<%
 
Set dtmConvertedDate = CreateObject("WbemScripting.SWbemDateTime")
 
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
 
Set colOperatingSystems = objWMIService.ExecQuery _
   ("Select * from Win32_OperatingSystem")
 
For Each objOperatingSystem in colOperatingSystems
    response.write "Boot Device: " & objOperatingSystem.BootDevice
    response.write "Build Number: " & objOperatingSystem.BuildNumber
    response.write "Build Type: " & objOperatingSystem.BuildType
 
Next
 
  %>
</BODY>
</HTML>

Cependant quand j'execute ma page asp, j'ai le résultat suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
essai
 
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
--------------------------------------------------------------------------^
error '80041003' 
/evroult/index.asp, line 23

Ma question est donc simple, peux t'on récuperer facilement un morceau de vbscript et l'inserer dans une page asp ? Quelles sont les contraintes ?

D'avance merci beaucoup de votre aide !

**malbaladejo** · 06/10/2006, 09h18

Vu le message d'erreur, l'erreur ne se trouve pas dans le code que tu nous as donné mais dans la déclaration des variables.
Tu ne peux pas avoir plusieur dim sur la même ligne.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim objASPError, blnErrorWritten, strServername, strServerIP, strRemoteIP
Dim strMethod, lngPos, datNow, strQueryString, strURL

**nicobox** · 06/10/2006, 13h14

Envoyé par malbaladejo

Vu le message d'erreur, l'erreur ne se trouve pas dans le code que tu nous as donné mais dans la déclaration des variables.
Tu ne peux pas avoir plusieur dim sur la même ligne.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim objASPError, blnErrorWritten, strServername, strServerIP, strRemoteIP
Dim strMethod, lngPos, datNow, strQueryString, strURL

Mais il n'y a rien d'autres que ce code, je n'ai pas de déclaration de variable ... une idée ?

**Gwenn** · 06/10/2006, 13h22

Salut,

le premier message d'erreur provient du fichier Ms qui est mal écrit, ne pas y preter attention

Le second :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

error '80041003'

apparait généralement sur un probleme d'autorisation d'acces

**malbaladejo** · 06/10/2006, 13h40

Qu'y a t'il a la ligne 23 de la page /evroult/index.asp ?

**nicobox** · 06/10/2006, 13h46

Envoyé par malbaladejo

Qu'y a t'il a la ligne 23 de la page /evroult/index.asp ?

il y a ca :

Set dtmConvertedDate = CreateObject("WbemScripting.SWbemDateTime")

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colOperatingSystems = objWMIService.ExecQuery _
("Select * from Win32_OperatingSystem")

C'est par là que ca plante, ce qui est bizarre c'est qu'n prenant ces lignes et les en les copiant dans un .vbs ca fonctionne par contre des que je colle tout ca dans de l'asp, ca ne marche plus. Il doit avoir quelque chose à modifier mais je ne vois pas quoi ...

**marabout** · 09/10/2006, 13h06

Envoyé par Gwenn

Le second :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

error '80041003'

apparait généralement sur un probleme d'autorisation d'acces

Le WScript que tu utilises dans ton fichier VBS est, comme son nom l'indique du Windows scripting et donc peut travailler sur Windows et il peut même aller très loin dans la gestion de cet OS... Il peut egalement créer des "virus"...

Il est donc fort probable (mais ce n'est qu'une hypothèse) que ton serveur ou que quelque chose en asp bloque ce genre de script... Perso, je trouverais cela rassurant au même titre que de savoir qu'un JavaScript ne peut pas lancer un exécutbale sur ma machine... Tu imagines les dégats que pourraient faire une page asp ?

Asp + Vbscript

ASP

Vue hybride

Discussions similaires

Partager

Partager