Discussion :

[borislotte]

bonjour

j'écris un script listant les partages et les droits d'acces associé.
le probleme est que, je ne comprend pas pourquoi Win32_LogicalShareSecuritySetting me renvoi l'erreur sité en titre.
apres 2h de recherche sur le net, je me tourne vers vous en esperant éclaircir ma lanterne.

si dessous mon code

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
 
Option Explicit
'On Error Resume Next
 
Const SHARE_TYPE_DISK_DRIVE = 0
Const SHARE_TYPE_PRINT_QUEUE = 1
Const SHARE_TYPE_DEVICE = 2
Const SHARE_TYPE_IPC = 3
Const SHARE_TYPE_DISK_DRIVE_ADMIN = 2147483648
Const SHARE_TYPE_DISK_QUEUE_ADMIN = 2147483649
Const SHARE_TYPE_DEVICE_ADMIN = 2147483650
Const SHARE_TYPE_IPC_ADMIN = 2147483651
 
Dim oSWbemLocator, oWbemServices
Dim oShares, oShare
Dim oLogicalShareSecuritySetting, intReturnLSSS
Dim oSecurityDescriptor
 
Dim strPCSource, strPCCible
 
strPCSource = "MonServeur"
 
Set oSWbemLocator = CreateObject("WbemScripting.SWbemLocator")
Set oWbemServices = oSWbemLocator.ConnectServer(strPCSource, "root\CIMV2", "Administrateur", "MotDePasse")
 
Set oShares = oWbemServices.ExecQuery("Select * from Win32_Share",,48)
 
For Each oShare In oShares
	WScript.Echo "Path = " &oShare.path
	WScript.Echo "Name = " &oShare.Name
 
	Set oLogicalShareSecuritySetting = oWbemServices.Get("Win32_LogicalShareSecuritySetting.Name='" &oShare.Name &"'")
	intReturnLSSS = oLogicalShareSecuritySetting.GetSecurityDescriptor(oSecurityDescriptor)
 
	WScript.Echo "* oLogicalShareSecuritySetting, Valuer de retour = ->" &intReturnLSSS &"<-"
 
	If Err <> 0 Then
	    WScript.Echo "GetSecurityDescriptor failed" _
	    & VBCRLF & Err.Number & VBCRLF & Err.Description
	Else
	    WScript.Echo "GetSecurityDescriptor succeeded"
	End If
 
	Set oLogicalShareSecuritySetting = Nothing
 
	WScript.Echo "AllowMaximum = " &oShare.AllowMaximum
	WScript.Echo "Caption = " &oShare.Caption
	WScript.Echo "Description = " &oShare.Description
	WScript.Echo "InstallDate = " &oShare.InstallDate
 
	WScript.Echo "MaximumAllowed = " &oShare.MaximumAllowed
	WScript.Echo "Status = " &oShare.Status
	WScript.Echo "Type = " &oShare.Type
 
	WScript.Echo "--- Fin ---"
Next

[ced600]

D'après ce lien la méthode get de oWbemServices te renvois un objet SWbemObject.
J'ai regardé pour chacun de ces objets, et le documentation en ligne MSDN ne spécifie pas qu'il existe une méthode GetSecurityDescriptor pour ces objets.

L'erreur ne pourrait elle pas venir de la ?