Script sous windows
Fermé
Redbart
Messages postés
21068
Date d'inscription
dimanche 16 décembre 2007
Statut
Membre
Dernière intervention
12 avril 2024
-
6 avril 2008 à 18:20
Redbart Messages postés 21068 Date d'inscription dimanche 16 décembre 2007 Statut Membre Dernière intervention 12 avril 2024 - 6 avril 2008 à 18:22
Redbart Messages postés 21068 Date d'inscription dimanche 16 décembre 2007 Statut Membre Dernière intervention 12 avril 2024 - 6 avril 2008 à 18:22
A voir également:
- Script sous windows
- Clé windows 10 gratuit - Guide
- Windows 10 gratuit - Guide
- Windows 12 - Guide
- Windows ne démarre pas - Guide
- Windows 10 iso - Guide
1 réponse
Redbart
Messages postés
21068
Date d'inscription
dimanche 16 décembre 2007
Statut
Membre
Dernière intervention
12 avril 2024
3 219
6 avril 2008 à 18:22
6 avril 2008 à 18:22
tel que celui-ci pour trouver des fichiers sans extensions :
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colFiles = objWMIService.ExecQuery _
("Select * from CIM_DataFile where Extension = ''")
For Each objFile in colFiles
Wscript.Echo objFile.Name
Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colFiles = objWMIService.ExecQuery _
("Select * from CIM_DataFile where Extension = ''")
For Each objFile in colFiles
Wscript.Echo objFile.Name
Next
