Discussion :

[dr_octopus74]

Bonjour a tous,
voila j'ai un script qui donne une liste de processus dans un fichier texte comme cela:
System Idle Process
System SYSTEM
smss.exe SYSTEM
csrss.exe SYSTEM
winlogon.exe SYSTEM
services.exe SYSTEM
lsass.exe SYSTEM
...
Les 2 premiere ligne ne servant a rien, j'aimerais les éffacer.
Savez-vous comment faire svp ?
d'avance merci !

Voici mon script:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Set objFSO = CreateObject("Scripting.FileSystemObject" )
Set objFile = objFSO.CreateTextFile("c:\Listeproces.txt" )
Set objWMIService = GetObject("winmgmts:\\" & strComputer1 & "\root\cimv2" )
Set colItems = objWMIService.ExecQuery("Select * from Win32_Process",,48)
 
For Each objItem in colItems
  colProperties = objItem.GetOwner(strNameOfUser,strUserDomain)
  objFile.WriteLine objItem.Caption & "  "  & strNameOfUser  
next

[BioLoGz]

Salut,

Bah un truc tout bête, dans ton foreach tu incrémentes un variable compteur (que tu auras précedemment initialisée à 0 bien sûr) puis à chaque boucle tu teste si ton compteur est supèrieur à 2 et si oui alors tu écris la ligne dans ton fichier.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Dim compteur
 
compteur = 0
for each nanannanan in nananaan
compteur = compteur + 1
if (compteur > 2) then
  ecrire
end if
next