VBS : liste des partages - Windows & Software
Marsh Posté le 07-03-2005 à 16:34:33
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...
Marsh Posté le 07-03-2005 à 14:33:28
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 ?