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