vbscript + vb.netRésolu

Question

Bonjour,
je veux réaliser une application en vb.net.
dans cette application je veux afficher des résultats des fichiers écrits en vbscript.
par exemple , j'ai un fichier en vbscript qui permet de lister tous les processus:
le voilà : getprocess.vbs

strComputer = "."   ' Dot (.) equals local computer in WMI'


Set wbemServices = GetObject("winmgmts:\" & strComputer)
Set wbemObjectSet = wbemServices.InstancesOf("Win32_Process")


For Each wbemObject In wbemObjectSet
    WScript.Echo "Name:          " & wbemObject.Name      & vbCrLf & _
                 "   Handle:     " & wbemObject.Handle    & vbCrLf & _
                 "   Process ID: " & wbemObject.ProcessID
Next

donc je veux en cliquant sur un bouton de lancer l'exécution de ce fichier vbscript et d'afficher le résultat dans l'interface vb.
je ne sais pas quelles sont les commandes.
je suis débutante en vb et vbscript.
merci

cs_rt15 · Accepted Answer

Une débutante ?


Bonjour, habitez-vous chez vos parents ?


De ce que je le connais, VB.NET est pas franchement indiqué pour faire
une telle opération en exploitant les fonctions de l'OS qui
permettraient de faire ça proprement.


Tu peux essayer de faire ça en balançant la sortie de ton script dans un fichier, puis en lisant le fichier avec VB.NET.


Quelque chose comme ça :



    System.Diagnostics.Process.Start("CMD.exe", "/C cscript /nologo Nom.vbs>NomSortie.txt" );

cs_rt15 · Answer

Au fait, on peut lister les processus directement en VB.NET via :
System.Diagnostics.Process.GetProcesses

cs_ghofrane · Answer

bonjour,
 j'habite chez mes parents.
le problème ce n'est pas d'utiliser vb ou vbscript .
c'est un projet de fin d'année que je dois réaliser : interface en vb.net et manipuler les applications réseaux  en vbscript (à savoir ouvrir , fermer, stopper une application...).
merci pour la réponse mais est ce que vous connaissez un site intéressant concernant vbscript ou vb.net?
merci encore pour la réponse.
nb : la photo est belle .
 a bientôt et encore merci.

cs_rt15 · Answer

Il y a de nombreux cours et tuto sur developpez.com.


http://dotnet.developpez.com/cours/

http://vb.developpez.com/cours/

http://tahe.developpez.com/web/vbscript/


Sinon, un bouquin en papier, c'est plus chère, mais c'est très sympa aussi pour apprendre à langage.

cs_ghofrane · Answer

salut
lorsque j'ai essayé votre solution a console du CMD apparît pour qques instants.
est ce que il n'y a pas un moyen pour éviter ceci  et ainsi l'utilisation du cmd serait transparente pour celui qui exécute le programme.
merci beaucoup pour les sites .

cs_rt15 · Answer

Arf.


En fait je ferait un très mauvais parti pour toi. Moi le VB.net je supporte pas. Beuark sale.


Mais je crois avoir trouvé la réponse à ta question.


Je vais t'expliquer mon raisonnement pour que tu parvienne par tio même à résoudre ce genre de problème.


Je t'ai donné une méthode qui démarre un processus. Toi tu veux le
démarré caché. Un bon point de départ pour commencer à cherhcer comment
faire est de lancer chercher dans l'horrible aude de microsoft la
fonction que je t'ai donné.


On trouve son aide ici.


Là, tu constate que cette méthode admet de nombreuses surcharges...
Beaucoup prennent des Strings. Pour demander un démarrage processus
discret, il y a peu de chance qu'il faille ajuster un String. Par
contre, l'une d'elle prend une classe ProcessStartInfo. Il y a des
chances qu'elle contienne des options de démarrage du processus, y
compris la possibilité de le démarrer caché. Cliquons sur le lien de
cette surcharge. 
On tombe sur l'aide de la méthode pour cette version surchargée.


On y remarque des exmples qui peuvent nous aider à rédiger notre appel.


L'aide nous décris les paramètre, en l'occurence le seul qu'il y a : une instance de ProcessStartInfo.


Cliquons sur cette le lien vers cette classe.


On tombe ici, sur l'aide de la classe ProcessStartInfo.


On pourrait penser que l'option qui nous intéresse pourrait être sur
cette page, mais celle-ci ne semble pas vouloir détailler les
propriétés et méthodes... Il faut cliquer sur ProcessStartInfo Members
en fin de la page pour enfin avoir les membres.   


On cherche parmis les propriété une qui nous intéresse... On pourrait
penser que CreateNoWindow soit la bonne, mais il y a peu de chance : on
l'utilisera plutôt dans le cas d'une application console (Lancer le
nouveau processus dans cette console ou dans une autre)


En fait, la propriété qui nous intéresse s'appel WindowStyle. C'est
évident pour quelqu'un qui pratique le Win32, mais un peu moins qand on
débute, je te l'accorde...

Cliquons sur cette propriété.


On a quelques exemples, mais cela ne nous dis pas comment cacher une
fenêtre... Il faut pour cela savoir quelles valeurs peu prendre
l'énumération ProcessWindowStyle, car c'est le type de cette propriété.
On tombe donc finalement sur la description de cette énumération.


Et comme de part magie, hidden est un des éléments de cette énumération.


Là, je crois que tuas tout les éléments pour faire le code qui va bien,
à partir du moment ou tu as les bases en VB.NET bien sûr.

cs_Willi · Answer

Bonsoir,
En résumant voici ce que cela donne.

---------------------------------------------------

Dim p 
As

New
 Process()p.StartInfo.FileName = 

"cscript.exe"
p.StartInfo.Arguments = 
"c:\TonScript.vbs"
p.StartInfo.UseShellExecute = 
False
p.StartInfo.RedirectStandardOutput = 
True
p.StartInfo.WindowStyle = ProcessWindowStyle.Minimized

p.Start()

TaTextBox.Text = p.StandardOutput.ReadToEnd()

cs_rt15 · Answer

Bah zut Willi, t'avais pas vu que j'étais en train de draguer ?


Je passe pour quoi avec ta solution qui à l'air nickel...


Par contre, je crois qu'elle préfererait :

p.StartInfo.WindowStyle = ProcessWindowStyle.Hidden

cs_Willi · Answer

Aie rt15 j'ai tout fait capoté.  J'en suis désolé...je me retire donc 
Mais juste une précision il me semble que sur des scripts vb, il y a malgrès tout une fênetre de cscript qui s'ouvre et se masque et peut importe la valeur donnée à WindowStyle.

++ bon courage

cs_ghofrane · Answer

bonsoir rt15 et Willi

vraiment je ne peux dire que merci beaucoup.
j'ai vraiment de la chance de tomber sur des génies.

ah merci Internet comme quoi on trouve tt!!!
Bon , passons aux choses sérieuses : j'ai besoin de l'aide :
je veux écrire un fichier vbscript qui permet d'arreter une application ( c'est facile peut-etre) .
seulement mon problème est que je veux qu 'à chaque fois que je clique sur le nom de l'application ( à partir de l'interface vb.net), ce fichier vbscript se lance et prend comme paramètre le nom de l'application.
(je ne veux pas écrire par exemple 20 fichiers vbscript pour arreter 20 applications (c'est trop pour moi).

A propos rt15, je suis célibataire donc si tu m'aide ......
Bonne nuit et merci.

cs_ghofrane · Answer

rebonsoir
willi j'ai essayé ta solution mais il me sorte une erreur:
après instruction qui déclare le processus Dim p...
" fin d'instruction attendu"
je ne sais pas vraiment ce que ça veut dire et j'ai même 
essayé d'initialiser le processus mais en vain.
alors c'est quoi le problème!!


(rt15 surtout ne prends pas cet air, si tu te moques de moi
je me facherais ..
bon vous avez tous passez par cette phase d'apprentissage)




alors merci pour votre patience et votre aide.
a bientôt

cs_Willi · Answer

Ba comment ca sa fonctionne pas. Ce message vient du fait que tu as surement fait un mauvais copier coller de se que je t'ai fournit. Peux-tu donner le code de ton bouton qui se charge des scripts ?


Pour ta seconde question, à savoir lancer un script qui permet d'arreter une application. Pourquoi un script ? Tu peux le faire avec .net.

cs_rt15 · Answer

D'accord avec Willi. L'arrêt de processus se fait facilement en VB.NET,
alors pourquoi s'embêter à le faire en VBS. Surtout que c'est pas si
facile en VBS. Moi je ferais un shell de tskill... Pas beau pas beau.

cs_ghofrane · Answer

salut
Willi le pb que ceci est un projet de fin d'année et ceci est imposé par notre encadreur.
il veut qu'il voit entre autre la commande ou le script que exécute Windows.
et comme tu sais ça demande de passer disons vers le bas niveau.


le projet : réaliser une interface en vb.net qui permet de gérer ttes les applications réseaux : ping, ifconfig, iexplorer....(arrêt, démarrage, blocage, rendre visible au démarrage....).


et ceci graçe au script car il veut apprendre les commandes ou les scripts Windows.
alors tu réalise maintenant mon pb.

nb : concernant ton code, j'ai trouvé mon erreur.
mais en l'exécutant la fenetre CMD  apparaît.Alors pas de solution????

merci pour votre temps et votre patience.

cs_ghofrane · Answer

salut
rt15 je te remercie pour la longue explication d'hier ça m'a beaucoup aidé.
vaut mieux apprendre la méthode  plutôt que le résultat.
maintenat , j'ai oublié de veux dire que je veux apprendre le java (bon , je sais vous dites elle est folle) mais j'ai un autre projet.
bon, j'ai posé certaines questions dans le forum de java.
alors si vous avez des connaissances j'attend votre aide.
car au moins vous acceptez toutes mes bêtises.
vraiment, merci beaucoup.
A bientôt.

cs_Willi · Answer

Pour la fenetre qui apparait lors de l'execution de ton vbs elle disparait aussitot donc sa peut passer....
Concernant ton autre demande sur la fermture d'application par vbs. Tu dois générer ton fichier vbs suivant le nom de ton appli à fermer. Puis après l'executer avec le bout de code que je t'ai donné.

Pour le Java j'ai des notions alors je préfère laisser la place aux experts :)
rt15 détaillera surement ma méthode sur la fermeture d'appli...

cs_ghofrane · Answer

salut
 j'ai déja le code pour  arreter un processus :
strComputer = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\" & strComputer & "\root\cimv2")
Set colProcessList objWMIService.ExecQuery ("Select * from Win32_Process Where Name 'Nom du processus'")

For Each objProcess in colProcessList
objProcess.Terminate()
Next

mais je veux que le nom du processus soit une variable que prend le fichier vbs en entrée.

d'accord .

a bientôt.

et merci.

cs_Willi · Answer

Ba alors y a juste à y insérer le nom de ton processus

'récupère dans une listbox tes processus qui tournent
For
Each
 p 
As
 Process 
In
 Process.GetProcesses()
    TaListBox.Items.Add(p.ProcessName)

Next

Tu sélectionnes ton processus dans ta liste
Une fois sélectionné ton processus
Dim sTonProcess 
As

String
 = TaListBox.SelectedItem.ToString()

'On génère le fichier vbs
Dim sBase 
As

New
 System.Text.StringBuilder
sBase.AppendLine(
"strComputer = "".""")
sBase.AppendLine(
"objWMIService = GetObject(""winmgmts:{impersonationLevel=impersonate}!\"" & strComputer & ""oot\cimv2""")
sBase.AppendLine("colProcessList objWMIService.ExecQuery(""Select * from Win32_Process Where Name '" & sTonProcess & 
"'"")"
)
sBase.AppendLine(
"For Each objProcess In colProcessList")
sBase.AppendLine(
"objProcess.Terminate()")
sBase.AppendLine(
"Next")

'Ecriture du fichier vbs
IO.File.WriteAllText(
"c:	est.vbs", sBase.ToString())

Puis te reste plus qu'à utiliser le code que je t'ai fournit pour executer un vbs

++

cs_rt15 · Answer

Il est bizarre ton examinateur.

ifconfig (Linux) s'appelle ipconfig sous Windows. Mais c'est une
commande DOS, une antiquité si on veut. Tu peux récupérer toutes les
informations qu'elles donnent via WMI. Voilà un source qui peut peut être t'aider concernant le WMI.


Pour pinger en VB (Viw WMI) :explore
Function Ping(sHostName)

   
Dim objWMIService, colPings, objStatus

   
Set objWMIService = GetObject("winmgmts:\" & "." & "\root\cimv2")

   
Set colPings = objWMIService.ExecQuery("Select * From Win32_PingStatus where 
Address = '" & sHostName & "'") 

   
For Each objStatus in colPings

       
If IsNull(objStatus.StatusCode) Or (objStatus.StatusCode <> 0) Then 

           
Ping = 0 

       
Else

           
Ping = 1

       
End If

   
Next 

End Function

cs_ghofrane · Answer

bonsoir

très intellignet rt15 t'as repéré le pb :
mon prof est un génie en unix et ne sais pas beaucoup de choses
concernant le Windows.
c'est pour cela qu'il a imposé ce projet avec utilisation de scripts et aussi de leurs affichages.

bon, laissons le tranquille maintenant.
j'ai voulu savoir votre avis si on vous pose la question qu'elles sont ttes les applications réseaux sous Windows qu'on doit administrer?
que répondez vous?
je dois faire un script qui affiche la liste de toutes les apllications réseaux existants(tournant ou pas ) en un PC (env windows).

Aussi je veux savoir si vous connaissez ou stocke Windows l'historique ou la trace de l'utilisation de chaque application.
j'en ai besoin pour le mettre comme information dans l'interface(et c'est aussi imposé ).
nb : concernant les codes je vais les essayer bien sûr et si je trouve des pbs(comme d'habitude) je vais vous informer.

merci mes amis .
et a bientôt.

cs_rt15 · Answer

(Concernant les applis réseau tournant... Le plus efficace, c'est
un scanneur de port. C'est un utilitaire qui te donne toutes les applis
à l'écoute sur les ports. Mais ca se serait juste pour voire un peu ce
qu'un PC Windows propose...)


Les applis client/serveurs tout ça , il y en a pas mal qui sont des services.

Tu peux taper net start dans une console, ça te donne tous les services démarrés. Certains ont des noms évocateur du réseau.


La console de configuration de Windows permet d'ouvrir le fichier
services.msc qui permet d'accèder facilement aux description des
services.

cs_ghofrane · Answer

salut,
voilà un nouveau pb:
 


le code ci dessous exécute un fichier vbs : getprocess et redirige le résultat
vers un autre fichier sortie ensuite il affiche le contenu du fichier
sortie dans une liste.
le problème est que tt ceci est contenu dans un seul bouton
et vb.net me génére une erreur :
il écrit le résultat de script dans le fichier mais ensuite il affiche qu'il ne peut 
pas trouver le fichier C:\sortie.txt
et lorsque je l'exécute de nouveau il me donne le résultat dansla liste
donc on dirait que l'exécution est tellement lente de cscript
qu' il passe à l'affichage de la liste et le fichier n'est pas encore
généré.


Alors est ce que il y a une solution qui permet de retarder l'affichage
jusqu'à ce que le script termine son exécution.


 


 


System.Diagnostics.Process.Start("CMD.exe", "/C cscript /nologo c:\getprocess.vbs>c:\sortie.txt")
        Dim TextLine As String
        FileOpen(1, "c:\sortie.txt", OpenMode.Input)   ' Open file.
        While Not EOF(1)   ' Loop until end of file.
            TextLine = LineInput(1)   ' Read line into variable.
            ListBox1.Items.Add(TextLine) ' Print to the console.
        End While
        FileClose(1)   ' Close file.




merci et à bientôt.

cs_Willi · Answer

ghofrane, petite précision
On ne pose qu'une question par topic

++

cs_ghofrane · Answer

rebonsoir
 willi ,tu te moques .je vois très bien pas la peine d'écrire en gras.
mais n'oublie pas je suis débutante.
bon , laissons ça à un autre jour voilà une question:

est ce que je peux exécuter par exemple la commande
net start ou ping ou ipconfig ... a travers un fichier vbscript.
c'est à dire en appyant sur un bouton je lance un fichier
vbscript qui lui va lancer la commande dos voulu.


merci encore

cs_ghofrane · Answer

rebonsir,
pas la peine de répondre willi.
j'ai voulu simplement te dire merci pour ta gentillesse et ton aide.
rt15 tu me maunques déjà .
peut -etre qu'on va se rencontrer un jour mais garde ton super comportement.
merci pour toi aussi t'es un garçon génial
Au revoir .

cs_rt15 · Answer

Tu devrais utiliser la méthode de Willi pour la récupération de la
sortie de la commande, et pas un fichier texte comme je te l'ai dit. Sa
méthode est plus propre. Le souci que tu as eu est que ton appel n'est
pas bloquant : VB.NET n'attend la fin du script.


"CMD.exe", "/C cscript /nologo c:\getprocess.vbs>c:\sortie.txt"


Dans cette ligne, Windows lance cmd.exe avec le reste en arguement.
CMD.exe, c'est  l'environement d'execution DOS de Windows, donc
des commandes  net start, ping... mais aussi cscript. cscript se
charge d'interpréter le script vbs, et le > est une redirection
comme sous unix de la sortie DOS. Donc pour executer une comande DOS,
il suffit de faire du "CMD.exe /C ping".


Mais là encore, ce serait un peu plus jolie de faire tout ça en WMI,
pour le faire en VBS, et pas récupérer des sortie textes un peu à
l'arrache.


Un lien sur WMI :

http://msdn2.microsoft.com/en-us/library/ms950396.aspx


Un autre sur le VBS :

http://msdn2.microsoft.com/en-us/library/t0aew7h6.aspx


Et surtout embète pas Willi. C'est un monsieur patron sur ce site. Et là tu as transgressé le 5ème commandement.

cs_Willi · Answer

Oui un ne m'embete pas sinon je vais le dire :)
Le 5ième commandement du réglement  c'est principalement pour augmenter tes chances d'avoir une réponse à un autre problème car plus visible quand meme que des questions posées dans une 3ième pages de réponse... 
++

Vbscript + vb.net

27 réponses

Votre réponse

Discussions similaires