Script sous windows

Redbart Messages postés 20952 Date d'inscription   Statut Membre Dernière intervention   -  
Redbart Messages postés 20952 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,
coment exécuter un script sous windows
merci
Configuration: Windows XP
Internet Explorer 7.0

1 réponse

  1.
    Redbart Messages postés 20952 Date d'inscription   Statut Membre Dernière intervention   3 382
     
    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
    0