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éé.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Stéphane [MS]
Bonjour,
Le problème ne provient, probablement, pas de votre script, mais, plus probablement, de la commande "net share" qui ne réalise qu'une partie du travail nécessaire. Ne seriez-vous pas sous XPSP2 où le firewall empêche de disposer des informations nécessaires ?
Cdlt Stéphane
"bpoulain" a écrit dans le message de news:
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 ?
Bonjour,
Le problème ne provient, probablement, pas de votre script, mais, plus
probablement, de la commande "net share" qui ne réalise qu'une partie du
travail nécessaire. Ne seriez-vous pas sous XPSP2 où le firewall empêche de
disposer des informations nécessaires ?
Cdlt
Stéphane
"bpoulain" <bertrand.poulain@asr-informatique.fr> a écrit dans le message de
news: ec616285.0503070539.70bfe330@posting.google.com...
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éé.
Le problème ne provient, probablement, pas de votre script, mais, plus probablement, de la commande "net share" qui ne réalise qu'une partie du travail nécessaire. Ne seriez-vous pas sous XPSP2 où le firewall empêche de disposer des informations nécessaires ?
Cdlt Stéphane
"bpoulain" a écrit dans le message de news:
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éé.