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 !
Partager