Batch Index du Forum
S’enregistrerRechercherFAQMembresGroupesConnexion
Répondre au sujet Page 1 sur 1
[R] Cenvertion batch en vbs.
Auteur Message
Répondre en citant
Message [R] Cenvertion batch en vbs. 
Salut, il y quelque temps j'avais fait
Code:
@echo off&title Recherche des IDs
:1
ECHO  ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo  º                       ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ                         º
echo  º                        RECHERCHE DES IDENTIFIANTS                          º
echo  º                         ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ                           º
ECHO  ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
set /p var="Nom;Prenom> "
ECHO  ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo  º IDENTIFIANT          EMPLACEMENT            NOM.PRENOM                     º
ECHO  ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
net view SERVEUR1 >1
for /f "delims=" %%a in ('findstr /I "%VAR%" 1') do echo    %%a
del 1
echo Recherche termin‚...
pause>Nul
cls&goto 1
programme en batch qui me sevrait à rechercher un identifiant au lycée en récupérant le résultat de la commande "net view SERVEUR1".

J'ai voulu le refaire en vbs mais je ne sais pas si il fonctionne et c'est ce que je voulais savoir,
Code:

' Déclaration des variables ------------------------------
Option Explicit
Dim fso, WshShell, objShell, objScriptExec ' <<-- Variables systèmes
Dim fichier, recherche, resultat, fichier_2, resultat_2, fichier_3 ' <<-- Variables perso


' Vérification du fichier "config.ini" -------------------
Set fso = CreateObject("Scripting.FileSystemObject")

If NOT (fso.FileExists("config.ini")) Then
    Set WshShell = WScript.CreateObject("WScript.Shell")
    Set fichier = fso.OpenTextFile("config.ini", 2,true) ' <<-- Entrer le nom du serveur ou chercher les identifiants dans le fichier "config.ini"
    fichier.write("SERVEUR1")
End If


' Saisie de la recherche ---------------------------------
recherche = inputbox("RECHERCHE DES IDENTIFIANTS DU LYC" & chr(201) & "E"  & vbCrLf & "Entrer soit un nom, un pr" & chr(233) & "nom, le code d'une classe ou une cha" & chr(238) & "ne de caract" & chr(232) & "res." & vbCrLf & "(Vous pouvez rechercher parmis les " & chr(233) & "l" & chr(232) & "ves, les professeurs et les employ" & chr(233) & "s)." , "Recherche des identifiants" , "nom;pr" & chr(233) & "nom;000")

If recherche = "" Then
    WScript.Quit()
End If


' Récupération des paramètres de "config.ini" ------------
Set fichier_2 = fso.OpenTextFile("config.ini", 1)
resultat_2 = fichier_2.ReadAll
fichier_2.Close


' Récupération des données -------------------------------
Set objShell = CreateObject("WScript.Shell")
Set objScriptExec = objShell.Exec("Net View """ + resultat_2 + """ | find" + recherche)
resultat = objScriptExec.StdOut.ReadAll


' Enregistrement des données -----------------------------
If NOT (resultat) = "" Then
    Set fichier_3 = fso.OpenTextFile("_", 8, True)
    fichier_3.Write resultat
    fichier_3.Close
 Else
    Set fichier_3 = fso.OpenTextFile("_", 8, True)
    fichier_3.Write "Aucun résultat n'a été trouvé."
    fichier_3.Close
End If

' Affichage du résultat ----------------------------------
CreateObject("WScript.Shell").Run "chrome.exe _"

WScript.Sleep(5000)
fso.DeleteFile ("_" )

WScript.Quit() 
le code source. Le but étant d'ouvrir le résultat de la commande "net view SERVEUR1" dans chrome (le résultat peut contenir plusieurs lignes).

Merci,


EDIT : En fait c'est bon je l'ai fini. pour ce que ça intéresse voila le code source

Apres je c'est pas si ça marche partout mais perso dans mon lycée ça marche.




______________________________________________________
#~Ma chaine Youtube~#
Message Publicité 
PublicitéSupprimer les publicités ?


Montrer les messages depuis:
Répondre au sujet Page 1 sur 1
  



Index | créer un forum | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation
Copyright 2008 - 2016 // Batch