Bonjour,  
 
Je suis sous Windows XP Pro. Avec le vbs suivant, je liste les partages de mon poste.
 
strComputer = "."  
Set objLocator = CreateObject("WbemScripting.SWbemLocator" )  
Set objService = objLocator.ConnectServer (strComputer, "root/cimv2" )  
ObjService.Security_.impersonationlevel = 3  
objService.Security_.Privileges.AddAsString "SeSecurityPrivilege", TRUE  
Set colItems = objService.ExecQuery("Select * from Win32_LogicalShareSecuritySetting",,48)  
 
For Each objItem in colItems  
 strShareName = objItem.name  
 Set wmiShareSecSetting = GetObject("winmgmts:Win32_LogicalShareSecuritySetting.name='" & strShareName & "'" )  
 RetVal = wmiShareSecSetting.GetSecurityDescriptor(wmiSecurityDescriptor)  
 If Err <> 0 Then  
  WScript.Echo "GetSecurityDescriptor failed on " & strShareName & VBCRLF & Err.Number & VBCRLF & Err.Description  
 Else  
  WScript.Echo "GetSecurityDescriptor suceeded for " & strShareName  
 End If  
Next
 
Mon problème est le suivant : lorsque je créé un partage avec la commande NET SHARE, le vbs ci-dessus ne vois pass le partage créé.
 
Que se passe t-il ? Comment corriger ce point ?

relance la fonction une fois le partage crée et il devrait le voir ! tu peux corriger en utilisant les "goto" et les points de liaison, mais je ne suis pas certains que ca fonctionne en Vbs et c'est pas trés propre...