Asp + Vbscript

Version imprimable

Asp + Vbscript

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:

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:

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 !

06/10/2006, 09h18
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:

1 2 Dim objASPError, blnErrorWritten, strServername, strServerIP, strRemoteIP Dim strMethod, lngPos, datNow, strQueryString, strURL
06/10/2006, 13h14
nicobox
Citation:
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:

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 ?
06/10/2006, 13h22
Gwenn

Salut,

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

Le second :

Code:

error '80041003'

apparait généralement sur un probleme d'autorisation d'acces
06/10/2006, 13h40
malbaladejo

Qu'y a t'il a la ligne 23 de la page /evroult/index.asp ?
06/10/2006, 13h46
nicobox

Citation:

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 ...
06/10/2006, 13h51
malbaladejo

Essaie de remplacer :

Code:

Set dtmConvertedDate = CreateObject("WbemScripting.SWbemDateTime")

par :

Code:

Set dtmConvertedDate = Server.CreateObject("WbemScripting.SWbemDateTime")

Citation:

Envoyé par malbaladejo

Essaie de remplacer :

Code:

Set dtmConvertedDate = CreateObject("WbemScripting.SWbemDateTime")

par :

Code:

Set dtmConvertedDate = Server.CreateObject("WbemScripting.SWbemDateTime")

Non c pareil ....

Je répète quand j'éxecute le code dans un .vbs ca marche tres bien par contre quand je le colle dans de l'asp comme ci dessous, ca marche pas ...
Code:

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></HEAD> <BODY> <B><DIV ALIGN="CENTER"> <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 %> </DIV><B> </BODY> </HTML>
:tagcode: Merci

06/10/2006, 14h26
malbaladejo

c'est possible.
Mais l'asp et le vbscript ne marche tout à fait pareil.
09/10/2006, 13h06
marabout

Citation:

Envoyé par Gwenn

Le second :

Code:

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 ?