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
Gilles LAURENT
"OlivierT" a écrit dans le message de news: | Bonjour,
Bonjour,
| J'aimerai creer un code en VBA Excel ou VBS pour récuperer les | partages et les permissions sur les partages d'un serveur distant.
Ci-dessous un script VBScript permettant d'afficher les autorisations posées sur les partages d'une machine locale ou distante. Le script doit être lancé avec un compte disposant des droits nécessaires pour accéder à la machine distante.
' déclaration des variables Dim oWmi, oShare, oAce, oSD, oTrustee Dim colShares Dim strComputer, strPerm
' lecture du nom de l'ordinateur passé comme argument strComputer = WScript.Arguments (0)
' requête WMI Set oWmi = GetObject ("winmgmts:" & strComputer & "rootcimv2") Set colShares = oWmi.ExecQuery ( _ "SELECT * FROM Win32_LogicalShareSecuritySetting")
' affichage des autorisations sur les partages For Each oShare In colShares WScript.Echo WScript.Echo "Share : " & oShare.Name WScript.Echo "-------------------------" oShare.GetSecurityDescriptor oSD For Each oAce In oSD.DACL Set oTrustee = oAce.Trustee strPerm = "User/Group : " & oTrustee.Name Select Case oAce.AccessMask Case 1179817 strPerm = strPerm & " (Read)" Case 1245631 strPerm = strPerm & " (Change)" Case 2032127 strPerm = strPerm & " (Full Control)" End Select Select Case oAce.AceType Case 0 strPerm = strPerm & " (Allow)" Case 1 strPerm = strPerm & " (Deny)" End Select WScript.Echo strPerm Next Next
--- Coupez ici : GetSharePerms.vbs ---
-- Gilles LAURENT http://glsft.free.fr
"OlivierT" <OlivierT@discussions.microsoft.com> a écrit dans le message
de news:D6160988-5200-4B1B-A9E2-EB51CD767611@microsoft.com
| Bonjour,
Bonjour,
| J'aimerai creer un code en VBA Excel ou VBS pour récuperer les
| partages et les permissions sur les partages d'un serveur distant.
Ci-dessous un script VBScript permettant d'afficher les autorisations
posées sur les partages d'une machine locale ou distante. Le script doit
être lancé avec un compte disposant des droits nécessaires pour accéder
à la machine distante.
' déclaration des variables
Dim oWmi, oShare, oAce, oSD, oTrustee
Dim colShares
Dim strComputer, strPerm
' lecture du nom de l'ordinateur passé comme argument
strComputer = WScript.Arguments (0)
' requête WMI
Set oWmi = GetObject ("winmgmts:\" & strComputer & "rootcimv2")
Set colShares = oWmi.ExecQuery ( _
"SELECT * FROM Win32_LogicalShareSecuritySetting")
' affichage des autorisations sur les partages
For Each oShare In colShares
WScript.Echo
WScript.Echo "Share : " & oShare.Name
WScript.Echo "-------------------------"
oShare.GetSecurityDescriptor oSD
For Each oAce In oSD.DACL
Set oTrustee = oAce.Trustee
strPerm = "User/Group : " & oTrustee.Name
Select Case oAce.AccessMask
Case 1179817 strPerm = strPerm & " (Read)"
Case 1245631 strPerm = strPerm & " (Change)"
Case 2032127 strPerm = strPerm & " (Full Control)"
End Select
Select Case oAce.AceType
Case 0 strPerm = strPerm & " (Allow)"
Case 1 strPerm = strPerm & " (Deny)"
End Select
WScript.Echo strPerm
Next
Next
"OlivierT" a écrit dans le message de news: | Bonjour,
Bonjour,
| J'aimerai creer un code en VBA Excel ou VBS pour récuperer les | partages et les permissions sur les partages d'un serveur distant.
Ci-dessous un script VBScript permettant d'afficher les autorisations posées sur les partages d'une machine locale ou distante. Le script doit être lancé avec un compte disposant des droits nécessaires pour accéder à la machine distante.
' déclaration des variables Dim oWmi, oShare, oAce, oSD, oTrustee Dim colShares Dim strComputer, strPerm
' lecture du nom de l'ordinateur passé comme argument strComputer = WScript.Arguments (0)
' requête WMI Set oWmi = GetObject ("winmgmts:" & strComputer & "rootcimv2") Set colShares = oWmi.ExecQuery ( _ "SELECT * FROM Win32_LogicalShareSecuritySetting")
' affichage des autorisations sur les partages For Each oShare In colShares WScript.Echo WScript.Echo "Share : " & oShare.Name WScript.Echo "-------------------------" oShare.GetSecurityDescriptor oSD For Each oAce In oSD.DACL Set oTrustee = oAce.Trustee strPerm = "User/Group : " & oTrustee.Name Select Case oAce.AccessMask Case 1179817 strPerm = strPerm & " (Read)" Case 1245631 strPerm = strPerm & " (Change)" Case 2032127 strPerm = strPerm & " (Full Control)" End Select Select Case oAce.AceType Case 0 strPerm = strPerm & " (Allow)" Case 1 strPerm = strPerm & " (Deny)" End Select WScript.Echo strPerm Next Next
--- Coupez ici : GetSharePerms.vbs ---
-- Gilles LAURENT http://glsft.free.fr
OlivierT
Merci beaucoup !!!
Olivier
"OlivierT" a écrit dans le message de news: | Bonjour,
Bonjour,
| J'aimerai creer un code en VBA Excel ou VBS pour récuperer les | partages et les permissions sur les partages d'un serveur distant.
Ci-dessous un script VBScript permettant d'afficher les autorisations posées sur les partages d'une machine locale ou distante. Le script doit être lancé avec un compte disposant des droits nécessaires pour accéder à la machine distante.
' déclaration des variables Dim oWmi, oShare, oAce, oSD, oTrustee Dim colShares Dim strComputer, strPerm
' lecture du nom de l'ordinateur passé comme argument strComputer = WScript.Arguments (0)
' requête WMI Set oWmi = GetObject ("winmgmts:" & strComputer & "rootcimv2") Set colShares = oWmi.ExecQuery ( _ "SELECT * FROM Win32_LogicalShareSecuritySetting")
' affichage des autorisations sur les partages For Each oShare In colShares WScript.Echo WScript.Echo "Share : " & oShare.Name WScript.Echo "-------------------------" oShare.GetSecurityDescriptor oSD For Each oAce In oSD.DACL Set oTrustee = oAce.Trustee strPerm = "User/Group : " & oTrustee.Name Select Case oAce.AccessMask Case 1179817 strPerm = strPerm & " (Read)" Case 1245631 strPerm = strPerm & " (Change)" Case 2032127 strPerm = strPerm & " (Full Control)" End Select Select Case oAce.AceType Case 0 strPerm = strPerm & " (Allow)" Case 1 strPerm = strPerm & " (Deny)" End Select WScript.Echo strPerm Next Next
--- Coupez ici : GetSharePerms.vbs ---
-- Gilles LAURENT http://glsft.free.fr
Merci beaucoup !!!
Olivier
"OlivierT" <OlivierT@discussions.microsoft.com> a écrit dans le message
de news:D6160988-5200-4B1B-A9E2-EB51CD767611@microsoft.com
| Bonjour,
Bonjour,
| J'aimerai creer un code en VBA Excel ou VBS pour récuperer les
| partages et les permissions sur les partages d'un serveur distant.
Ci-dessous un script VBScript permettant d'afficher les autorisations
posées sur les partages d'une machine locale ou distante. Le script doit
être lancé avec un compte disposant des droits nécessaires pour accéder
à la machine distante.
' déclaration des variables
Dim oWmi, oShare, oAce, oSD, oTrustee
Dim colShares
Dim strComputer, strPerm
' lecture du nom de l'ordinateur passé comme argument
strComputer = WScript.Arguments (0)
' requête WMI
Set oWmi = GetObject ("winmgmts:\" & strComputer & "rootcimv2")
Set colShares = oWmi.ExecQuery ( _
"SELECT * FROM Win32_LogicalShareSecuritySetting")
' affichage des autorisations sur les partages
For Each oShare In colShares
WScript.Echo
WScript.Echo "Share : " & oShare.Name
WScript.Echo "-------------------------"
oShare.GetSecurityDescriptor oSD
For Each oAce In oSD.DACL
Set oTrustee = oAce.Trustee
strPerm = "User/Group : " & oTrustee.Name
Select Case oAce.AccessMask
Case 1179817 strPerm = strPerm & " (Read)"
Case 1245631 strPerm = strPerm & " (Change)"
Case 2032127 strPerm = strPerm & " (Full Control)"
End Select
Select Case oAce.AceType
Case 0 strPerm = strPerm & " (Allow)"
Case 1 strPerm = strPerm & " (Deny)"
End Select
WScript.Echo strPerm
Next
Next
"OlivierT" a écrit dans le message de news: | Bonjour,
Bonjour,
| J'aimerai creer un code en VBA Excel ou VBS pour récuperer les | partages et les permissions sur les partages d'un serveur distant.
Ci-dessous un script VBScript permettant d'afficher les autorisations posées sur les partages d'une machine locale ou distante. Le script doit être lancé avec un compte disposant des droits nécessaires pour accéder à la machine distante.
' déclaration des variables Dim oWmi, oShare, oAce, oSD, oTrustee Dim colShares Dim strComputer, strPerm
' lecture du nom de l'ordinateur passé comme argument strComputer = WScript.Arguments (0)
' requête WMI Set oWmi = GetObject ("winmgmts:" & strComputer & "rootcimv2") Set colShares = oWmi.ExecQuery ( _ "SELECT * FROM Win32_LogicalShareSecuritySetting")
' affichage des autorisations sur les partages For Each oShare In colShares WScript.Echo WScript.Echo "Share : " & oShare.Name WScript.Echo "-------------------------" oShare.GetSecurityDescriptor oSD For Each oAce In oSD.DACL Set oTrustee = oAce.Trustee strPerm = "User/Group : " & oTrustee.Name Select Case oAce.AccessMask Case 1179817 strPerm = strPerm & " (Read)" Case 1245631 strPerm = strPerm & " (Change)" Case 2032127 strPerm = strPerm & " (Full Control)" End Select Select Case oAce.AceType Case 0 strPerm = strPerm & " (Allow)" Case 1 strPerm = strPerm & " (Deny)" End Select WScript.Echo strPerm Next Next
