https://www.dotnetzone.gr:443/cs/forums/74/ShowForum.aspxΤα πρώτα βήματα στις γλώσσες VB6, VB.NET, και C#elCommunityServer 2.1 SP3 (Build: 20423.1)https://www.dotnetzone.gr:443/cs/forums/thread/60685.aspxWed, 27 Oct 2010 17:36:12 GMT2622095e-976c-431a-859e-16783ec7ecd7:60685Firebrand0https://www.dotnetzone.gr:443/cs/forums/thread/60685.aspxhttps://www.dotnetzone.gr:443/cs/forums/commentrss.aspx?SectionID=74&PostID=60685<P>Thanx a lot!</P>https://www.dotnetzone.gr:443/cs/forums/thread/60684.aspxWed, 27 Oct 2010 07:27:52 GMT2622095e-976c-431a-859e-16783ec7ecd7:60684eliasm0https://www.dotnetzone.gr:443/cs/forums/thread/60684.aspxhttps://www.dotnetzone.gr:443/cs/forums/commentrss.aspx?SectionID=74&PostID=60684<P style="MARGIN:0cm 0cm 10pt;" class=MsoNormal><FONT size=3><FONT face=Calibri><SPAN style="mso-ansi-language:EL;">Αν και δεν το προτείνω (γιατί κάτι τέτοια βλέπουν οι </SPAN>IT<SPAN style="mso-ansi-language:EL;"> </SPAN>Pros<SPAN style="mso-ansi-language:EL;"> και μας κράζουν)<o:p></o:p></SPAN></FONT></FONT></P> <P style="LINE-HEIGHT:normal;MARGIN:0cm 0cm 0pt;mso-layout-grid-align:none;" class=MsoNormal><SPAN style="FONT-FAMILY:Consolas;COLOR:blue;FONT-SIZE:9.5pt;">Dim</SPAN><SPAN style="FONT-FAMILY:Consolas;FONT-SIZE:9.5pt;"> sid <SPAN style="COLOR:blue;">As</SPAN> <SPAN style="COLOR:blue;">New</SPAN> Security.Principal.<SPAN style="COLOR:#2b91af;">SecurityIdentifier</SPAN>(<SPAN style="COLOR:#a31515;">"S-1-1-0"</SPAN>) <SPAN style="COLOR:green;">'sid </SPAN></SPAN><SPAN style="FONT-FAMILY:Consolas;COLOR:green;FONT-SIZE:9.5pt;mso-ansi-language:EL;">για</SPAN><SPAN style="FONT-FAMILY:Consolas;COLOR:green;FONT-SIZE:9.5pt;"> </SPAN><SPAN style="FONT-FAMILY:Consolas;COLOR:green;FONT-SIZE:9.5pt;">Everyone</SPAN><SPAN style="FONT-FAMILY:Consolas;FONT-SIZE:9.5pt;"><o:p></o:p></SPAN></P> <P style="LINE-HEIGHT:normal;MARGIN:0cm 0cm 0pt;mso-layout-grid-align:none;" class=MsoNormal><SPAN style="FONT-FAMILY:Consolas;COLOR:blue;FONT-SIZE:9.5pt;"><o:p>&nbsp;</o:p></SPAN></P> <P style="LINE-HEIGHT:normal;MARGIN:0cm 0cm 0pt;mso-layout-grid-align:none;" class=MsoNormal><SPAN style="FONT-FAMILY:Consolas;COLOR:blue;FONT-SIZE:9.5pt;">Dim</SPAN><SPAN style="FONT-FAMILY:Consolas;FONT-SIZE:9.5pt;"> acnt <SPAN style="COLOR:blue;">As</SPAN> System.Security.Principal.<SPAN style="COLOR:#2b91af;">NTAccount</SPAN> = <SPAN style="COLOR:blue;">CType</SPAN>(sid.Translate(<SPAN style="COLOR:blue;">GetType</SPAN>(System.Security.Principal.<SPAN style="COLOR:#2b91af;">NTAccount</SPAN>)), System.Security.Principal.<SPAN style="COLOR:#2b91af;">NTAccount</SPAN>)<o:p></o:p></SPAN></P> <P style="LINE-HEIGHT:normal;MARGIN:0cm 0cm 0pt;mso-layout-grid-align:none;" class=MsoNormal><SPAN style="FONT-FAMILY:Consolas;COLOR:blue;FONT-SIZE:9.5pt;mso-ansi-language:EL;"><o:p>&nbsp;</o:p></SPAN></P> <P style="LINE-HEIGHT:normal;MARGIN:0cm 0cm 0pt;mso-layout-grid-align:none;" class=MsoNormal><SPAN style="FONT-FAMILY:Consolas;COLOR:blue;FONT-SIZE:9.5pt;">Dim</SPAN><SPAN style="FONT-FAMILY:Consolas;FONT-SIZE:9.5pt;"> newRule <SPAN style="COLOR:blue;">As</SPAN> <SPAN style="COLOR:blue;">New</SPAN> Security.AccessControl.<SPAN style="COLOR:#2b91af;">FileSystemAccessRule</SPAN>(acnt, Security.AccessControl.<SPAN style="COLOR:#2b91af;">FileSystemRights</SPAN>.FullControl, Security.AccessControl.<SPAN style="COLOR:#2b91af;">AccessControlType</SPAN>.Allow)<o:p></o:p></SPAN></P> <P style="LINE-HEIGHT:normal;MARGIN:0cm 0cm 0pt;mso-layout-grid-align:none;" class=MsoNormal><SPAN style="FONT-FAMILY:Consolas;COLOR:blue;FONT-SIZE:9.5pt;">Dim</SPAN><SPAN style="FONT-FAMILY:Consolas;FONT-SIZE:9.5pt;"> dir <SPAN style="COLOR:blue;">As</SPAN> <SPAN style="COLOR:blue;">String</SPAN> = <SPAN style="COLOR:#a31515;">"C:\Test"</SPAN></SPAN></P> <P style="LINE-HEIGHT:normal;MARGIN:0cm 0cm 0pt;mso-layout-grid-align:none;" class=MsoNormal><SPAN style="FONT-FAMILY:Consolas;FONT-SIZE:9.5pt;"><SPAN style="COLOR:#a31515;"></SPAN><o:p></o:p></SPAN>&nbsp;</P> <P style="LINE-HEIGHT:normal;MARGIN:0cm 0cm 0pt;mso-layout-grid-align:none;" class=MsoNormal><SPAN style="FONT-FAMILY:Consolas;COLOR:blue;FONT-SIZE:9.5pt;">Dim</SPAN><SPAN style="FONT-FAMILY:Consolas;FONT-SIZE:9.5pt;"> dirSec <SPAN style="COLOR:blue;">As</SPAN> System.Security.AccessControl.<SPAN style="COLOR:#2b91af;">DirectorySecurity</SPAN> = <SPAN style="COLOR:blue;">New</SPAN> System.Security.AccessControl.<SPAN style="COLOR:#2b91af;">DirectorySecurity</SPAN>(dir, Security.AccessControl.<SPAN style="COLOR:#2b91af;">AccessControlSections</SPAN>.All)<o:p></o:p></SPAN></P> <P style="LINE-HEIGHT:normal;MARGIN:0cm 0cm 0pt;mso-layout-grid-align:none;" class=MsoNormal><SPAN style="FONT-FAMILY:Consolas;FONT-SIZE:9.5pt;">dirSec.AddAccessRule(newRule)<o:p></o:p></SPAN></P>https://www.dotnetzone.gr:443/cs/forums/thread/60679.aspxTue, 26 Oct 2010 22:16:30 GMT2622095e-976c-431a-859e-16783ec7ecd7:60679Firebrand0https://www.dotnetzone.gr:443/cs/forums/thread/60679.aspxhttps://www.dotnetzone.gr:443/cs/forums/commentrss.aspx?SectionID=74&PostID=60679<P>Γεια χαρά σε όλους.</P> <P>Πως μπορώ με κώδικα VB.net να βάλω user rights (Everyone και Full Control σε ένα folder)</P> <P>&nbsp;</P> <P>Ευχαριστώ.</P>