Script sous windows
Fermé
Redbart
Messages postés
20379
Date d'inscription
dimanche 16 décembre 2007
Statut
Membre
Dernière intervention
25 mars 2023
-
6 avril 2008 à 18:20
Redbart Messages postés 20379 Date d'inscription dimanche 16 décembre 2007 Statut Membre Dernière intervention 25 mars 2023 - 6 avril 2008 à 18:22
Redbart Messages postés 20379 Date d'inscription dimanche 16 décembre 2007 Statut Membre Dernière intervention 25 mars 2023 - 6 avril 2008 à 18:22
A voir également:
- Script sous windows
- Windows 10 gratuit - Guide
- Windows 10 iso - Guide
- Retourner ecran windows - Guide
- Windows 11 22h2 - Guide
- Clé windows 10 - Guide
1 réponse
Redbart
Messages postés
20379
Date d'inscription
dimanche 16 décembre 2007
Statut
Membre
Dernière intervention
25 mars 2023
3 235
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