ASP

Afficher le résultat d'un vbs dans une page asp

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Afficher le résultat d'un vbs dans une page asp

chepa_jemls

Voici mon code:

Code :

<%@ LANGUAGE=VBScript %>
<HTML>
<head>
</head>
<body>
<script language=vbs>
Dim args, oWinNT, oDomain, objExec, objShell
Set objShell = WScript.CreateObject("WScript.Shell" )
Set args=Wscript.Arguments
domain="glab"
Wscript.echo "Liste des machines du domaine " & domain
set oWinNT=GetObject("WinNT://" & domain)
for each oDomain in oWinNT
if lcase(oDomain.class)="computer" then
Set objExec = objShell.Exec("Ping -n 1 -l 1 " & oDomain.name)
Do While Not objExec.stdout.AtEndOfStream
if InStr(objExec.stdOut.ReadLine,"TTL=" )<>0 Then
Wscript.echo oDomain.name
Exit Do
end if
Loop
end if
next
</script>
</BODY>
</HTML>

Le script VBS marche très bien, mais il faudrait que le contenu oDomain.name soit afficher à l'écran.

Le script est censé afficher les machines qui sont connectée sur le domaine

Publicité

gedeon

Met ton script dans le header , sous forme d'une fonction qui retourne une chaine puis appelle le dans le body

chepa_jemls

tu peux me montrer stp? car je début en ASP et j'aimerai partir sur un exemple concret!

Est ce que cela résoudrait mon problème sur le fait que cela en réalise pas d'affichage?

gedeon

Ton code c tout sauf de l'asp. y'a aucun code serveur dedans.
C le meme pb que pour du javascript.

La seule balise coté serveur c celle-ci :

* <%@ LANGUAGE=VBScript %>

Et elle ne fait ..... rien. sauf indiquer au serveur que tu va lui envoyer du code VBS dans les pages , ce que tu ne fait pas

chepa_jemls

Ben aide moi si tu sais ^^, faut bien que je commence par quelque part ;-)

Tu sais me montrer un exemple au départ de ce que j'ai mis dnas le topic?

Ce serait sympa

gedeon

Tous ce qui est entre les balises <% et %> sera exécuté sur le serveur. Maintenant si tu ne sais meme pas ça c que tu n'a pas ouvert un seul fichier d'aide ou d'exemple.
Et je suis pas formateur donc je m'arrete là

chepa_jemls

gedeon a écrit :

ca je le sais très bien alors, désolé de vouloir débuté!

Et vu qeu c'est assez chaud de trouver un site bien fait..

Je te dis pas merci

gedeon

C bien dommage car je suis le seul a t'avoir répondu.
Je te reproche pas de débuter je te reproche de ne pas chercher et d'aller à la solution de facilité. Actuelement tu ne comprend pas ce que tu fais et si quelqu'un le fait à ta place tu n'en saura pas plus. Donc tu vas là http://www.allhtml.com/ tu regardes langage ASP, introduction et premier pas et tu auras ta reponse. Et si tu continues a lire les autres chapitres et que tu les comprends là tu auras tout bon.

chepa_jemls

ben c'est ce que j'attendais: des références...

Arjuna

Aircraft Ident.: F-MBSD

Plusieurs choses :

1/ Un script ASP (côté serveur) s'éxécute dans une balise "<% %>" et non une balise SCRIPT.
Exemple :

Code :

<p>
<%
Response.Write "toto"
%>
</p>

Tu peux aussi normalement, mais ça ne marche pas toujours, conserver ta balise Script, en lui ajoutant l'attribut "runat" avec pour valeur "server" :

Code :

<p>
<script language="VBScript" runat="Server">
Response.Write "toto"
</script>
</p>

Mais ça ne marche pas toujours, donc je te déconseille vivement d'utiliser cette syntaxe !

2/ Le code ainsi éxécuté tourne sur le serveur, et non sur la machine cliente. Ainsi, tu verras les objets du réseau du serveur, et non celui du poste client.

3/ Enfin, il est impossible de faire appel à l'objet "WScript.Shell" dans un script côté client, à moins peut-être de mettre la sécurité au minimum.

Publicité

chepa_jemls

Merci bcp, je test tout ça dés que je sais

chepa_jemls

quand tu parles du coté du serveur, y a pas moyen que je le fasse tourner sur une machine qui n'est pas serveur?

Juste pour les tests

Arjuna

Aircraft Ident.: F-MBSD

Ben faut qu'il y ait IIS dessus, tu peux pas éxécuter de l'ASP si t'as pas un serveur web.

chepa_jemls

ah ben c'est bien ce ue j'ai fait, mais je pensais qu'il y avait une autre subtilité

Arjuna

Aircraft Ident.: F-MBSD

Non non

chepa_jemls

Y a t il d'autre truc que je dois être au courrant avant de vraimentcommencer a encoder?

Arjuna

Aircraft Ident.: F-MBSD

Ben commence, et reviens quand tu seras bloqué, parceque là comme ça, à part te dire qu'il faut un clavier pour écrire sur un ordinateur, et un navigateur web pour voir le résultat de l'éxécution d'un ASP, je vois pas trop

chepa_jemls

Oki merci bcp, demain j'attaque ça! j'espere que cela ira et ne plus être enmerdé ;-)

chepa_jemls

Arjuna a écrit :

Plusieurs choses :

1/ Un script ASP (côté serveur) s'éxécute dans une balise "<% %>" et non une balise SCRIPT.
Exemple :

Code :

<p>
<%
Response.Write "toto"
%>
</p>

J'ai une dernière question (oui je suis enmerdant;-))tu parle de script ASP , mais c'est aussi a cette endroit que je dosi mettre mes script VBS?

merci de votre aide les gars

Arjuna

Aircraft Ident.: F-MBSD

Ca dépend. ASP, c'est une technologie. VBS, c'est un langage.

Un script "client" (qui tourne sur la machine de l'utilisateur) se met entre simples balises <script>. Ce genre de script sert généralement à faire des modifications dans la mise en page (roll-over, etc.). Il peut être en JavaScript ou en VBScript (dans le second cas, il ne marchera grossomodo que si l'utilisateur utilise Internet Explorer, c'est donc à éviter).
Un script "serveur", lui, qui est de l'ASP, sera écrit pour faire des accès aux bases de données, faire des traîtements sur le serveur, etc. Lui, il tourne dans les fameuses balises <% %>. Il peut, comme les autres scripts, être soit en JavaScript, soir en VBScript (il vaut mieu par contre utiliser VBScript pour l'ASP).

Exemple simple :

Code :

<% @Language="VBScript" %>
<% Option Explicit %>
<html>
<head>
<title>Da Arjuna's test</title>
<script language="JavaScript" type="text/javascript">
function doClick(val)
{
alert("Vous avez clické sur le bouton " + val.ToString());
}
</script>
</head>
<body>
<%
Dim i
For i = 1 to 5
Response.Write "<p><a href=""#"" onclick=""doClick(" & i & " )"">" & i & "</a></p>" & vbCrLf
Next
%>
</body>
</html>

Copie ce que fait cet exemple.
Execute le.
Joue avec.
Regarde le source depuis IE (complètement différent)
Et essaie de comprendre comment ça marche.
T'as toutes les bases là

chepa_jemls

des posts comme ça, j'adore ;-)

Merci bcp

chuuuuuuuuuut....ne me dérangez pas, je fais de l'asp ;-)

chepa_jemls

Bon cela tourne, maitenant je voudrais améliorer ma page mais j'ai un problème:

J'aimerai pouvoir entrer un texte dans une zone de saisie et la mettre dans une variable (cela sera pour initialiser la variable domain)!!

je ne trouve nul part cela

Arjuna

Aircraft Ident.: F-MBSD

Dans ta page :

Code :

<form method="POST" action="toto.asp">
<input type="text" name="prout" value="Tu tapes ton texte ici">
<input type="submit" name="btnSubmit" value="Et après tu cliques là">
</form>

Dans toto.asp

Code :

Dim maVar
maVar = Request.Form("prout" )
Response.Write "T'as tapé """ & maVar & """."

Message édité par Arjuna le 22-03-2005 à 16:02:38

chepa_jemls

on peut pas travaille rsur le même fichier?

Message édité par chepa_jemls le 22-03-2005 à 18:05:59

Arjuna

Aircraft Ident.: F-MBSD

si, mais ça recharge la page, donc il faut bien garder en mémoire que ton code sera rééxécuté.

chepa_jemls

j'ai pas très bien compris la façon de faire pour lire dans une zone de saisie.

Voila mon code, tu saurais m'aider?

Code :

<% @Language="VBScript" %>
<html>
<head>
<title>Da Arjuna's test</title>
<script language="vbs"></script>
<!--
sub cmdChanger_OnClick
MsgBox "essai"
End Sub
-->
</script>
</head>
<body>
<%
Dim args, oWinNT, oDomain, objExec, objShell
Set objShell = Server.CreateObject("WScript.Shell" )
domain="Internet"
set oWinNT=GetObject("WinNT://" & domain)
for each oDomain in oWinNT
if lcase(oDomain.class)="computer" then
Set objExec = objShell.Exec("Ping -n 1 -l 1 " & oDomain.name)
Do While Not objExec.stdout.AtEndOfStream
if InStr(objExec.stdOut.ReadLine,"TTL=" )<>0 Then
Response.Write oDomain.name%><br><%
Exit Do
end if
Loop
end if
next
%>
</body>
</html>

Arjuna

Aircraft Ident.: F-MBSD

Code :

<%
Dim args, oWinNT, oDomain, objExec, objShell
Set objShell = Server.CreateObject("WScript.Shell" )
domain="Internet"
set oWinNT=GetObject("WinNT://" & domain)
for each oDomain in oWinNT
if lcase(oDomain.class)="computer" then
Set objExec = objShell.Exec("Ping -n 1 -l 1 " & oDomain.name)
Do While Not objExec.stdout.AtEndOfStream
if InStr(objExec.stdOut.ReadLine,"TTL=" )<>0 Then
Response.Write oDomain.name%><br><%
Exit Do
end if
Loop
end if
next
%>

devient :

Code :

<%
Dim args, oWinNT, oDomain, objExec, objShell
Set objShell = Server.CreateObject("WScript.Shell" )
'domain="Internet"
%>
<form method="post">
Domaine : <input type="text" name="domain" value="<%=Request.Form("domain" )%>">
<input type="submit" value="Search">
</form>
<%
if Request.Form("domain" ) <> "" then
set oWinNT=GetObject("WinNT://" & Request.Form("domain" ))
for each oDomain in oWinNT
if lcase(oDomain.class)="computer" then
Set objExec = objShell.Exec("Ping -n 1 -l 1 " & oDomain.name)
Do While Not objExec.stdout.AtEndOfStream
if InStr(objExec.stdOut.ReadLine,"TTL=" )<>0 Then
Response.Write oDomain.name%><br><%
Exit Do
end if
Loop
end if
next
else
Response.Write "<p>Entrez un nom de domaine s'il vous plaît</p>"
end if
%>

Et noublie pas le "Option Explicit" au début de la page

Message édité par Arjuna le 22-03-2005 à 19:27:30

chepa_jemls

Voila la modification mais le problème est qu'il affiche tout d'un cous!il ne me laisse pas le temps d'entrer mon nom de domaine!!

Il met met directement Entrez un nom de domaine s'il vous plaît
Voilà mon code

Code :

<% @Language="VBScript" %>
<html>
<head>
<title>Da Arjuna's test</title>
<script language="vbs"></script>
<!--
sub cmdChanger_OnClick
MsgBox "essai"
End Sub
-->
</script>
</head>
<body>
<%
Dim args, oWinNT, oDomain, objExec, objShell
Set objShell = Server.CreateObject("WScript.Shell" )
'domain="Domjemelle"
%>
<form method="post" ID="Form1">
Domaine : <input type="text" name="domain" value="<%=Request.Form("domain" )%>" ID="Text1">
<input type="submit" value="Search" ID="Submit1" NAME="Submit1">
</form>
<%
if Request.Form("domain" ) <> "" then
set oWinNT=GetObject("WinNT://" & domain)
for each oDomain in oWinNT
if lcase(oDomain.class)="computer" then
Set objExec = objShell.Exec("Ping -n 1 -l 1 " & oDomain.name)
Do While Not objExec.stdout.AtEndOfStream
if InStr(objExec.stdOut.ReadLine,"TTL=" )<>0 Then
Response.Write oDomain.name%><br><%
Exit Do
end if
Loop
end if
next
else
Response.Write "<p>Entrez un nom de domaine s'il vous plaît</p>"
end if
%>
</body>
</html>

Arjuna

Aircraft Ident.: F-MBSD

chepa_jemls a écrit :

Code :

<% @Language="VBScript" %>
<html>
<head>
<title>Da Arjuna's test</title>
<script language="vbs"></script>
<!--
sub cmdChanger_OnClick
MsgBox "essai"
End Sub
-->
</script>
</head>
<body>
<%
Dim args, oWinNT, oDomain, objExec, objShell
Set objShell = Server.CreateObject("WScript.Shell" )
'domain="Domjemelle"
%>
<form method="post" ID="Form1">
Domaine : <input type="text" name="domain" value="<%=Request.Form("domain" )%>" ID="Text1">
<input type="submit" value="Search" ID="Submit1" NAME="Submit1">
</form>
<%
if Request.Form("domain" ) <> "" then
set oWinNT=GetObject("WinNT://" & domain)
for each oDomain in oWinNT
if lcase(oDomain.class)="computer" then
Set objExec = objShell.Exec("Ping -n 1 -l 1 " & oDomain.name)
Do While Not objExec.stdout.AtEndOfStream
if InStr(objExec.stdOut.ReadLine,"TTL=" )<>0 Then
Response.Write oDomain.name%><br><%
Exit Do
end if
Loop
end if
next
else
Response.Write "<p>Entrez un nom de domaine s'il vous plaît</p>"
end if
%>
</body>
</html>

Ben c'est normal qu'il te dire "entrez un nom de domaine s'il vous plaît". Tu tapes le noms, et zou, tu fais la recherche en cliquant sur le bouton. Le message sera alors remplacé par le résultat de ton script

chepa_jemls

quand je clique après avoir rnetré le nom de domaine, il met met une page d'erreur(comme si il toruvait pas la page)

EDIT: Pour information, il s'agit d'une erreur 405

REEDRIT: EN surfant ej me suis rendu compte qu'il fallait faire un truc du genre dans le form:action="essai.asp?valeur=valeur1". Je sais pas commentintrodfuire cela, mais cela à l'air de passer, le problème ets que je l'attribue pas à la bonne variable (domaine) Tu sais me dire?

Message édité par chepa_jemls le 23-03-2005 à 10:59:26

chepa_jemls

Voilà c'est résolu, en surfant un peu sur internet!

J'attends de tester cela sur le domaine ici

Publicité

FORUM HardWare.fr

Programmation

ASP

Afficher le résultat d'un vbs dans une page asp

Sujets relatifs
Optimisation sur une page de rendu graphique	aide pour un NOT IN sur un resultat d'une requete
page de man	[HTML/JS] Ouvrir une fenêtre en pleine page (pas "plein écran" :o )
Impression page web	Imprimer le resultat d'une requete SQL contenu dans un rowsource
Comment lire une page aspx en local	Probleme avec IE et lien vers page lente à afficher
lien vers une page en chemin absolu
Plus de sujets relatifs à : Afficher le résultat d'un vbs dans une page asp

Page générée en 0.157 secondes