IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBScript Discussion :

liste des processus


Sujet :

VBScript

  1. #1
    Membre confirmé
    Homme Profil pro
    Ingénieur réseau et sécurité / Consultant
    Inscrit en
    Août 2005
    Messages
    1 068
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 35
    Localisation : Suisse

    Informations professionnelles :
    Activité : Ingénieur réseau et sécurité / Consultant
    Secteur : Industrie

    Informations forums :
    Inscription : Août 2005
    Messages : 1 068
    Points : 493
    Points
    493
    Par défaut liste des processus
    salut tout le monde je suis un gros debutant en vbs...

    jaimerai faire un script qui list les processus actif d'une machine en réseau local...

    pour le moment j'ai sa:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    strComputer = "."
    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
    Set colItems = objWMIService.ExecQuery("Select * from Win32_Process",,48)
     
    For Each objItem in colItems
    	WScript.Echo objItem.Caption
    Next
    jaimerai savoir comment pouvoir le faire sur une machine de mon réseau local... merci
    Il y a 10 types de personnes sur la planète. Ceux qui comprennent le binaire et ceux qui ne le comprennent pas...

  2. #2
    Membre confirmé
    Homme Profil pro
    Ingénieur réseau et sécurité / Consultant
    Inscrit en
    Août 2005
    Messages
    1 068
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 35
    Localisation : Suisse

    Informations professionnelles :
    Activité : Ingénieur réseau et sécurité / Consultant
    Secteur : Industrie

    Informations forums :
    Inscription : Août 2005
    Messages : 1 068
    Points : 493
    Points
    493
    Par défaut
    bon comme personne sais jai deja réussi a faire quelque chose de plus...

    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
    31
    32
    33
    msgbox("Ce script va lister tous les processus actif"),vbinformation
     
    strComputer1 = "."
    Set objWMIService = GetObject("winmgmts:\\" & strComputer1 & "\root\cimv2")
    Set colItems = objWMIService.ExecQuery("Select * from Win32_Process",,48)
     
    For Each objItem in colItems
    	WScript.Echo "Caption: " & objItem.Caption
    next
     
    '***********************************************************
     
    if msgbox("Voulez-vous continuer ?",vbyesno) = vbno then
    	wscript.quit
    	else
     
    strComputer = "."
    strProcessKill = "'iexplore.exe'"
     
    ' connexion a WMI
    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
     
    ' requête WMI méthode ExecQuery de la classe Win32_Process
    Set colProcess = objWMIService.ExecQuery ("Select * from Win32_Process Where Name = " & strProcessKill )
     
    ' requête WMI méthode ExecQuery de la classe Win32_Process
    For Each objProcess in colProcess
    objProcess.Terminate()
    Next
     
    WSCript.Echo "Vous avez exploser " & strProcessKill & " sur " & strComputer
     
    end if
    voila maintenant il maffiche la liste des processus et je peut en killer un... mais jamerai bien le choisir... est-ce possible ?
    Il y a 10 types de personnes sur la planète. Ceux qui comprennent le binaire et ceux qui ne le comprennent pas...

  3. #3
    Membre confirmé
    Homme Profil pro
    Ingénieur réseau et sécurité / Consultant
    Inscrit en
    Août 2005
    Messages
    1 068
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 35
    Localisation : Suisse

    Informations professionnelles :
    Activité : Ingénieur réseau et sécurité / Consultant
    Secteur : Industrie

    Informations forums :
    Inscription : Août 2005
    Messages : 1 068
    Points : 493
    Points
    493
    Par défaut
    ya vraiment pas un seul pro du vbs dans ce forum ?
    Il y a 10 types de personnes sur la planète. Ceux qui comprennent le binaire et ceux qui ne le comprennent pas...

  4. #4
    Membre habitué
    Inscrit en
    Mai 2003
    Messages
    361
    Détails du profil
    Informations forums :
    Inscription : Mai 2003
    Messages : 361
    Points : 146
    Points
    146
    Par défaut
    Je voulais te passer un lien le matin qui se trouve sur la faq, mais j'ai hésité!
    • Comment tuer un processus en connaissant le nom de sa fenêtre ?

    http://vb.developpez.com/faq/?page=Systeme#tuer_process

    Désolé d'être en retard, mais cela peut aussi t'inspirer!

  5. #5
    Membre confirmé
    Homme Profil pro
    Ingénieur réseau et sécurité / Consultant
    Inscrit en
    Août 2005
    Messages
    1 068
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 35
    Localisation : Suisse

    Informations professionnelles :
    Activité : Ingénieur réseau et sécurité / Consultant
    Secteur : Industrie

    Informations forums :
    Inscription : Août 2005
    Messages : 1 068
    Points : 493
    Points
    493
    Par défaut
    merci bien pour tout sa mais j'ai eu le temps de developpé sa ...

    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
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
     
    msgbox("Bienvenue dans Kill Process V1.0"),vbinformation
     
    if msgbox("Le programme va lister les processus actifs."& vbcrlf &"Etes-vous d'accord ?",vbyesno) = vbno then
    	msgbox("Ok. Merci et à bientôt"),vbinformation
    	else
     
    strComputer1 = "."
    num = 0
     
    Set objWMIService = GetObject("winmgmts:\\" & strComputer1 & "\root\cimv2")
    Set colItems = objWMIService.ExecQuery("Select * from Win32_Process",,48)
     
     
    For Each objItem in colItems
    	WScript.Echo "Processus N°"& num &" =====> "& objItem.Caption
    	num = num+1
    next
     
    wscript.echo " "
    wscript.echo "Il y a "& num-1 & " processus actif"
     
    '***********************************************************
     
    if msgbox("Voulez-vous killer un processus ?",vbyesno) = vbno then
    	msgbox("Ok. Merci et à bientôt"),vbinformation
    	wscript.quit
    	else
     
    		strComputer = ""
    		strProcessKill = inputbox("Entrez le nom du processus à killer","Kill Process","Exemple => 'NomDuProcessus'")
     
    		' connexion a WMI
    		Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
     
    		' requête WMI méthode ExecQuery de la classe Win32_Process
    		Set colProcess = objWMIService.ExecQuery ("Select * from Win32_Process Where Name = " & strProcessKill )
     
    		' requête WMI méthode ExecQuery de la classe Win32_Process
    		For Each objProcess in colProcess
    			objProcess.Terminate()
    		Next
     
    		WSCript.Echo "Vous avez stoppé " & strProcessKill & " on " & strComputer
     
     
    end if
     
    end if
    bref... bon maintenant j'aimerai pouvoir l'executer mais pas seulement sur mon pc... jaimerai que depuis un post, on puisse lister et tuer un processus d'un autre pc sur un LAN par exemple...
    Il y a 10 types de personnes sur la planète. Ceux qui comprennent le binaire et ceux qui ne le comprennent pas...

  6. #6
    Membre confirmé
    Homme Profil pro
    Ingénieur réseau et sécurité / Consultant
    Inscrit en
    Août 2005
    Messages
    1 068
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 35
    Localisation : Suisse

    Informations professionnelles :
    Activité : Ingénieur réseau et sécurité / Consultant
    Secteur : Industrie

    Informations forums :
    Inscription : Août 2005
    Messages : 1 068
    Points : 493
    Points
    493
    Par défaut
    ya personne qui saurai comment faire pour lister les processus d'un pc dans un LAN depuis une autre machine ?
    Il y a 10 types de personnes sur la planète. Ceux qui comprennent le binaire et ceux qui ne le comprennent pas...

  7. #7
    Expert éminent sénior


    Profil pro
    Inscrit en
    Juin 2003
    Messages
    14 008
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juin 2003
    Messages : 14 008
    Points : 20 038
    Points
    20 038
    Par défaut
    et tu as essayer de modifier les lignes
    par
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    strComputer1 = "NOMDELAUTREPC"

  8. #8
    Candidat au Club
    Profil pro
    Inscrit en
    Décembre 2005
    Messages
    9
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Décembre 2005
    Messages : 9
    Points : 4
    Points
    4
    Par défaut
    Hello tu as un truc de Mr Jean-Claude BELLAMY qui est sympa sinon

    J'ai juste rajouté un InputBox avant.

    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
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
    58
    59
    60
    61
    62
    63
    64
    65
    66
    67
    68
    69
    70
    71
    72
    73
    74
    75
    76
    77
    78
    79
    80
    81
    82
    83
    84
    85
    86
    87
    88
    89
    90
    91
    92
    93
    94
    95
    96
    97
    98
    99
    100
    101
    102
    103
    104
    105
    106
    107
    108
    109
    110
    111
    112
    113
    114
    115
    116
    117
    118
    119
    120
    121
    122
    123
    124
    125
    126
    127
    128
    129
    130
    131
    132
    133
    134
    135
    136
    137
     
    Sub ListMachineServices
     
     dim  computer
     
         computer = InputBox("Entrer le nom machine")
     
            Call ServicesList (computer)
     
    End Sub
     
     
    ' ----------------------------------------------------------
    ' Script VBS d'affichage sous EXCEL de la liste des services
    ' d'un ordinateur avec nom complet, nom court et état
    '
    ' Syntaxe :
    '    ListServ &#91;<ordinateur>&#93;
    ' Paramètre &#58;
    '    <ordinateur> &#58; nom NetBIOS de l'ordinateur
    '                   s'il est omis &#58; ordinateur local
    '
    ' Jean-Claude BELLAMY © 2003
    ' Version améliorée par Jean-Christophe VIALA © 2003
    ' ----------------------------------------------------------
     
    Sub ServicesList &#40;computer&#41;
     
    Const xlCenter  = &HFFFFEFF4
    Const xlBottom  = &HFFFFEFF5
    Const xlContext = &HFFFFEC76
    Const msoFalse  = 0
    Const msoScaleFromTopLeft = 0
     
    Dim ServiceSet, Network,oXL
     Set Network = CreateObject&#40;"WScript.Network"&#41;
     
     Set ServiceSet = GetObject&#40;"winmgmts&#58;&#123;impersonationLevel=impersonate&#125;!//" & Computer & "/root/cimv2"&#41;.InstancesOf&#40;"Win32_Service"&#41;
     
     Set oXL = CreateObject&#40;"EXCEL.application"&#41;
    oXL.Visible = True
    oXL.screenupdating=false
    oXL.Workbooks.Add
    oXL.Cells&#40;1,1&#41;.Value ="Services de " & Computer
     
    NL=2
     
    oXL.Cells&#40;2, 2&#41;.Value = "Nom complet "
    oXL.Cells&#40;2, 2&#41;.Font.ColorIndex = 5
    oXL.Cells&#40;2, 3&#41;.Value = "Nom court "
    oXL.Cells&#40;2, 3&#41;.Font.ColorIndex = 5
    oXL.Cells&#40;2, 4&#41;.Value = "Démarrage "
    oXL.Cells&#40;2, 4&#41;.Font.ColorIndex = 5
    oXL.Cells&#40;2, 5&#41;.Value = "État "
    oXL.Cells&#40;2, 5&#41;.Font.ColorIndex = 5
     
     
    ' Cellule NL,1,"Nom complet"
    ' Cellule NL,2,"Nom court"
    ' Cellule NL,3,"Démarrage"
    ' Cellule NL,4,"État"
     
     
    For each Service in ServiceSet
    	NL=NL+1
    	oXL.Cells&#40;NL, 2&#41;.Value =  Service.Caption
     
    	Desc=Service.Description
    	If not IsEmpty&#40;Desc&#41; and not IsNull&#40;Desc&#41; and Desc<>Service.Caption Then
    		With oXL.Range&#40;"A" & NL&#41;
    			.AddComment
    			.Comment.Visible = True
    			.Comment.Text Desc
    			.Comment.Shape.Select True
    			oXL.Selection.ShapeRange.ScaleWidth 2, msoFalse, msoScaleFromTopLeft
    			k=len&#40;Desc&#41;/150
    			If k<1 then k=1
    			oXL.Selection.ShapeRange.ScaleHeight k, msoFalse, msoScaleFromTopLeft
    			oXL.Selection.ShapeRange.SetShapesDefaultProperties
    			.Comment.Visible = false
    			End With
    		End If
    	 oXL.Cells&#40;NL, 3&#41;.Value =  Service.Name
     
    	Select Case Service.StartMode
    		Case "Manual"
                            oXL.Cells&#40;NL, 4&#41;.Value = "Manuel"
    		Case "Disabled"
    			oXL.Cells&#40;NL, 4&#41;.Value = "Désactivé"
    		Case "Auto"
    			oXL.Cells&#40;NL, 4&#41;.Value = "Automatique"
    		Case else
    			oXL.Cells&#40;NL, 4&#41;.Value = "Problème !"
    	end select
     
    	Etat=Service.State
    	If Lcase&#40;Etat&#41;="running" Then oXL.Cells&#40;NL, 5&#41;.Value = "Démarré"
    	If NL=int&#40;NL/2&#41;*2 Then
    		oXL.Range&#40;"A" & NL & "&#58;E" & NL&#41;.Select
    		oXL.Selection.Interior.ColorIndex = 35
    		End If
    	Next
    oXL.Range&#40;"A1"&#41;.Select
    oXL.Selection.Font.Bold = True
    With oXL.Selection.Font
    	.Name = "Arial"
    	.Size = 12
        End With
    oXL.Range&#40;"A2&#58;E2"&#41;.Select
    oXL.Selection.Font.Bold = True
    oXL.Selection.Interior.ColorIndex = 28
     
    oXL.Columns&#40;"A&#58;E"&#41;.Select
    oXL.Selection.Columns.AutoFit
     
    oXL.Columns&#40;"C&#58;E"&#41;.Select
    oXL.Selection.HorizontalAlignment = xlCenter
     
    oXL.Rows&#40;"3&#58;3"&#41;.Select
    oXL.ActiveWindow.FreezePanes = True
     
    oXL.Sheets&#40;1&#41;.Select
    oXL.Sheets&#40;1&#41;.Name = "Services"
    oXL.DisplayAlerts = False
    if oXL.Sheets.count > 1 then
    	compteur = oXL.Sheets.count
    	for i = compteur to 2 step -1
    		oXL.Sheets&#40;i&#41;.delete
    	next
    end if
    oXL.cells&#40;1,1&#41;.select
    oXL.ActiveWorkbook.SaveAs "ListServ-" & Computer & ".xls"
    oXL.DisplayAlerts = True
    oXL.screenupdating= True
     
     
    End Sub
    Voilà
    ciao

  9. #9
    Membre confirmé
    Homme Profil pro
    Ingénieur réseau et sécurité / Consultant
    Inscrit en
    Août 2005
    Messages
    1 068
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 35
    Localisation : Suisse

    Informations professionnelles :
    Activité : Ingénieur réseau et sécurité / Consultant
    Secteur : Industrie

    Informations forums :
    Inscription : Août 2005
    Messages : 1 068
    Points : 493
    Points
    493
    Par défaut
    Citation Envoyé par bbil
    et tu as essayer de modifier les lignes
    par
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    strComputer1 = "NOMDELAUTREPC"
    ... lol si seulement sa srai si simple... jai tout essayer.. adresse ip, mac, nomdemachine, nom de user,,, bref... lol
    Il y a 10 types de personnes sur la planète. Ceux qui comprennent le binaire et ceux qui ne le comprennent pas...

  10. #10
    Membre confirmé
    Homme Profil pro
    Ingénieur réseau et sécurité / Consultant
    Inscrit en
    Août 2005
    Messages
    1 068
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 35
    Localisation : Suisse

    Informations professionnelles :
    Activité : Ingénieur réseau et sécurité / Consultant
    Secteur : Industrie

    Informations forums :
    Inscription : Août 2005
    Messages : 1 068
    Points : 493
    Points
    493
    Par défaut
    Citation Envoyé par david522
    Hello tu as un truc de Mr Jean-Claude BELLAMY qui est sympa sinon

    J'ai juste rajouté un InputBox avant.

    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
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
    58
    59
    60
    61
    62
    63
    64
    65
    66
    67
    68
    69
    70
    71
    72
    73
    74
    75
    76
    77
    78
    79
    80
    81
    82
    83
    84
    85
    86
    87
    88
    89
    90
    91
    92
    93
    94
    95
    96
    97
    98
    99
    100
    101
    102
    103
    104
    105
    106
    107
    108
    109
    110
    111
    112
    113
    114
    115
    116
    117
    118
    119
    120
    121
    122
    123
    124
    125
    126
    127
    128
    129
    130
    131
    132
    133
    134
    135
    136
    137
     
    Sub ListMachineServices
     
     dim  computer
     
         computer = InputBox&#40;"Entrer le nom machine"&#41;
     
            Call ServicesList &#40;computer&#41;
     
    End Sub
     
     
    ' ----------------------------------------------------------
    ' Script VBS d'affichage sous EXCEL de la liste des services
    ' d'un ordinateur avec nom complet, nom court et état
    '
    ' Syntaxe &#58;
    '    ListServ &#91;<ordinateur>&#93;
    ' Paramètre &#58;
    '    <ordinateur> &#58; nom NetBIOS de l'ordinateur
    '                   s'il est omis &#58; ordinateur local
    '
    ' Jean-Claude BELLAMY © 2003
    ' Version améliorée par Jean-Christophe VIALA © 2003
    ' ----------------------------------------------------------
     
    Sub ServicesList &#40;computer&#41;
     
    Const xlCenter  = &HFFFFEFF4
    Const xlBottom  = &HFFFFEFF5
    Const xlContext = &HFFFFEC76
    Const msoFalse  = 0
    Const msoScaleFromTopLeft = 0
     
    Dim ServiceSet, Network,oXL
     Set Network = CreateObject&#40;"WScript.Network"&#41;
     
     Set ServiceSet = GetObject&#40;"winmgmts&#58;&#123;impersonationLevel=impersonate&#125;!//" & Computer & "/root/cimv2"&#41;.InstancesOf&#40;"Win32_Service"&#41;
     
     Set oXL = CreateObject&#40;"EXCEL.application"&#41;
    oXL.Visible = True
    oXL.screenupdating=false
    oXL.Workbooks.Add
    oXL.Cells&#40;1,1&#41;.Value ="Services de " & Computer
     
    NL=2
     
    oXL.Cells&#40;2, 2&#41;.Value = "Nom complet "
    oXL.Cells&#40;2, 2&#41;.Font.ColorIndex = 5
    oXL.Cells&#40;2, 3&#41;.Value = "Nom court "
    oXL.Cells&#40;2, 3&#41;.Font.ColorIndex = 5
    oXL.Cells&#40;2, 4&#41;.Value = "Démarrage "
    oXL.Cells&#40;2, 4&#41;.Font.ColorIndex = 5
    oXL.Cells&#40;2, 5&#41;.Value = "État "
    oXL.Cells&#40;2, 5&#41;.Font.ColorIndex = 5
     
     
    ' Cellule NL,1,"Nom complet"
    ' Cellule NL,2,"Nom court"
    ' Cellule NL,3,"Démarrage"
    ' Cellule NL,4,"État"
     
     
    For each Service in ServiceSet
    	NL=NL+1
    	oXL.Cells&#40;NL, 2&#41;.Value =  Service.Caption
     
    	Desc=Service.Description
    	If not IsEmpty&#40;Desc&#41; and not IsNull&#40;Desc&#41; and Desc<>Service.Caption Then
    		With oXL.Range&#40;"A" & NL&#41;
    			.AddComment
    			.Comment.Visible = True
    			.Comment.Text Desc
    			.Comment.Shape.Select True
    			oXL.Selection.ShapeRange.ScaleWidth 2, msoFalse, msoScaleFromTopLeft
    			k=len&#40;Desc&#41;/150
    			If k<1 then k=1
    			oXL.Selection.ShapeRange.ScaleHeight k, msoFalse, msoScaleFromTopLeft
    			oXL.Selection.ShapeRange.SetShapesDefaultProperties
    			.Comment.Visible = false
    			End With
    		End If
    	 oXL.Cells&#40;NL, 3&#41;.Value =  Service.Name
     
    	Select Case Service.StartMode
    		Case "Manual"
                            oXL.Cells&#40;NL, 4&#41;.Value = "Manuel"
    		Case "Disabled"
    			oXL.Cells&#40;NL, 4&#41;.Value = "Désactivé"
    		Case "Auto"
    			oXL.Cells&#40;NL, 4&#41;.Value = "Automatique"
    		Case else
    			oXL.Cells&#40;NL, 4&#41;.Value = "Problème !"
    	end select
     
    	Etat=Service.State
    	If Lcase&#40;Etat&#41;="running" Then oXL.Cells&#40;NL, 5&#41;.Value = "Démarré"
    	If NL=int&#40;NL/2&#41;*2 Then
    		oXL.Range&#40;"A" & NL & "&#58;E" & NL&#41;.Select
    		oXL.Selection.Interior.ColorIndex = 35
    		End If
    	Next
    oXL.Range&#40;"A1"&#41;.Select
    oXL.Selection.Font.Bold = True
    With oXL.Selection.Font
    	.Name = "Arial"
    	.Size = 12
        End With
    oXL.Range&#40;"A2&#58;E2"&#41;.Select
    oXL.Selection.Font.Bold = True
    oXL.Selection.Interior.ColorIndex = 28
     
    oXL.Columns&#40;"A&#58;E"&#41;.Select
    oXL.Selection.Columns.AutoFit
     
    oXL.Columns&#40;"C&#58;E"&#41;.Select
    oXL.Selection.HorizontalAlignment = xlCenter
     
    oXL.Rows&#40;"3&#58;3"&#41;.Select
    oXL.ActiveWindow.FreezePanes = True
     
    oXL.Sheets&#40;1&#41;.Select
    oXL.Sheets&#40;1&#41;.Name = "Services"
    oXL.DisplayAlerts = False
    if oXL.Sheets.count > 1 then
    	compteur = oXL.Sheets.count
    	for i = compteur to 2 step -1
    		oXL.Sheets&#40;i&#41;.delete
    	next
    end if
    oXL.cells&#40;1,1&#41;.select
    oXL.ActiveWorkbook.SaveAs "ListServ-" & Computer & ".xls"
    oXL.DisplayAlerts = True
    oXL.screenupdating= True
     
     
    End Sub
    Voilà
    ciao
    ok merci bien mais il fais quoi exactement ??? moi jvx simplement pouvoir lister les processus d'une machine ds un LAN et pourvoir en killer un...meme en comand line je men fou..
    Il y a 10 types de personnes sur la planète. Ceux qui comprennent le binaire et ceux qui ne le comprennent pas...

Discussions similaires

  1. [VB6]récupérer la liste des processus
    Par t26 dans le forum VB 6 et antérieur
    Réponses: 1
    Dernier message: 21/02/2006, 17h23
  2. Liste des processus
    Par dorian53 dans le forum Administration système
    Réponses: 3
    Dernier message: 17/01/2006, 11h48
  3. Comment obtenir la liste des processus ?
    Par grenouyefr dans le forum Général Python
    Réponses: 4
    Dernier message: 09/12/2005, 11h39
  4. Réponses: 2
    Dernier message: 21/01/2005, 13h55
  5. Réponses: 2
    Dernier message: 04/10/2002, 10h13

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo