Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Environnement Microsoft erreur archive log

erreur archive log

7 réponses
Avatar
Arnaud SCHMITT
salut à tous,
Je veux faire fonctionner le script suivant pour épurer des fichier de plus
de x jours.
March que sur ma machine et non sur du 2000 server ou du NT4 SP6. Alors que
normalement, le WMI est compatible avec presque tous les syst. là je sèche.

le script :

Set args = Wscript.Arguments
nbargs=args.count

if nbargs <> 0 then
strComputer = args(0)
strChemin = args(1)

Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colFiles = objWMIService.ExecQuery _
("ASSOCIATORS OF {Win32_Directory.Name='" & strChemin & "'} Where " _
& "ResultClass = CIM_DataFile")

nbFichierEfface=0

For Each objFile in colFiles

Date_concatene=Mid(objFile.CreationDate,7,2) & "/" &
Mid(objFile.CreationDate,5,2) & "/" & Mid(objFile.CreationDate,1,4)


If (Now-cdate(Date_concatene)) > cint(args(2)) then
'Wscript.Echo "Fichier à effacer !"

'on efface le fichier
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.DeleteFile(objFile.Name)
nbFichierEfface=nbFichierEfface+1
end if

Next

'Envoie d'un mail à postmaster
Set objEmail = CreateObject("CDO.Message")
objEmail.From = "postmaster@chu-nancy.fr"
objEmail.To = "a.schmitt@chu-nancy.fr"
objEmail.Subject = "Nettoyage de Log pour : " & args(0)
objEmail.Textbody = "Chemin des fichiers Log : " & args(1) _
& vbcrlf & "Fichier concernés : datés de plus de " & args(2) & " jours."
_
& vbcrlf & "Nombre de fichiers effacé : " & nbFichierEfface
objEmail.Send


End If
Signaler un problème avec ce contenu

7 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Jerome
"Arnaud SCHMITT" a écrit dans le message de
news:ch9u5r$d8b$
salut à tous,
Je veux faire fonctionner le script suivant pour épurer des fichier de


plus
de x jours.
March que sur ma machine et non sur du 2000 server ou du NT4 SP6.



Et ça plante où ?
Et le numero d'erreur c'est quoi ?
Avatar
Arnaud SCHMITT
il plante au lancement sur la ligne :

"For Each objFile in colFiles"

je pense donc qu'il n'a pas instancié l'objet mais je ne comprend pas.
Normalement, les libs sont inclus dans 2000 Server et NT SP6

"Jerome" a écrit dans le message de news:
4138ed81$0$306$

"Arnaud SCHMITT" a écrit dans le message de
news:ch9u5r$d8b$
> salut à tous,
> Je veux faire fonctionner le script suivant pour épurer des fichier de
plus
> de x jours.
> March que sur ma machine et non sur du 2000 server ou du NT4 SP6.

Et ça plante où ?
Et le numero d'erreur c'est quoi ?




Avatar
Arnaud SCHMITT
le numéro d'erreur est :

Erreur : 0x80041002
Code : 80041002


"Arnaud SCHMITT" a écrit dans le message de news:
chh2sp$lrt$
il plante au lancement sur la ligne :

"For Each objFile in colFiles"

je pense donc qu'il n'a pas instancié l'objet mais je ne comprend pas.
Normalement, les libs sont inclus dans 2000 Server et NT SP6

"Jerome" a écrit dans le message de news:
4138ed81$0$306$
>
> "Arnaud SCHMITT" a écrit dans le message de
> news:ch9u5r$d8b$
> > salut à tous,
> > Je veux faire fonctionner le script suivant pour épurer des fichier de
> plus
> > de x jours.
> > March que sur ma machine et non sur du 2000 server ou du NT4 SP6.
>
> Et ça plante où ?
> Et le numero d'erreur c'est quoi ?
>
>




Avatar
marc
Le Mon, 6 Sep 2004 09:45:57 +0200, Arnaud SCHMITT
a écrit:

le numéro d'erreur est :

Erreur : 0x80041002
Code : 80041002



L'erreur c'est WBEM_E_NOT_FOUND.
Après, faut voir si d'autres l'ont eu sur google...
Avatar
Arnaud Debaene
Arnaud SCHMITT wrote:
le numéro d'erreur est :

Erreur : 0x80041002
Code : 80041002


"Arnaud SCHMITT" a écrit dans le message de
news: chh2sp$lrt$
il plante au lancement sur la ligne :

"For Each objFile in colFiles"

je pense donc qu'il n'a pas instancié l'objet mais je ne comprend
pas. Normalement, les libs sont inclus dans 2000 Server et NT SP6





Tu as vérifié que le compte sous lequel le script s'exécute a les droits
d'accès aux fichiers / répertoire en question (via le partage de fichiers ET
via NTFS) ?

Arnaud
MVP - VC
Avatar
Arnaud SCHMITT
Rien de probant sur Google. Cette erreur se retrouve dans plein de domaine
et script qui n'ont rien à voir... apparemment.

"marc" a écrit dans le message de news:

Le Mon, 6 Sep 2004 09:45:57 +0200, Arnaud SCHMITT
a écrit:

> le numéro d'erreur est :
>
> Erreur : 0x80041002
> Code : 80041002

L'erreur c'est WBEM_E_NOT_FOUND.
Après, faut voir si d'autres l'ont eu sur google...


Avatar
Arnaud SCHMITT
C'est l'admin domaine... pas de Pb de droits


"Arnaud Debaene" a écrit dans le message de
news: 413cb6a3$0$21534$
Arnaud SCHMITT wrote:
> le numéro d'erreur est :
>
> Erreur : 0x80041002
> Code : 80041002
>
>
> "Arnaud SCHMITT" a écrit dans le message de
> news: chh2sp$lrt$
>> il plante au lancement sur la ligne :
>>
>> "For Each objFile in colFiles"
>>
>> je pense donc qu'il n'a pas instancié l'objet mais je ne comprend
>> pas. Normalement, les libs sont inclus dans 2000 Server et NT SP6

Tu as vérifié que le compte sous lequel le script s'exécute a les droits
d'accès aux fichiers / répertoire en question (via le partage de fichiers


ET
via NTFS) ?

Arnaud
MVP - VC