Discussion :

[chapeau_melon]

Bonjour,

Un peu en parallel à mon autre post...

N'ayant aucune expérience avec le WMI...

avouez que se serait extremement "simple" en nombre de lignes de convertir le code si-dessous en WD ?

Pouvez-vous m'aider ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
On Error Resume Next
 
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
      & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
 
strFile = "C:\Scripts\My_script.vbs"
 
Set colItems = objWMIService.ExecQuery _
    ("ASSOCIATORS OF {Win32_LogicalFileSecuritySetting='" & strFile & "'}" _ 
        & " WHERE AssocClass=Win32_LogicalFileOwner ResultRole=Owner")
 
For Each objItem in colItems
    Wscript.Echo objItem.ReferencedDomainName
    Wscript.Echo objItem.AccountName
Next

Merci d'avance !

[chapeau_melon]

Pour finir...je pense que je pourais me débrouiller avec une simple commande cmd dir "nom du fichier" /Q >log.txt
et lire les infos dans le txt

Moins élégant mais ça fonctionne !

N'hésitez pas à me donner vos commentaires !

BAV