Supprimer lignes dans fichier texte

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:

---

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

---

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:

---

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

---