Visual Basic

directred wrote:

Also can anyone recommend any web sites for code snippets

directred wrote:

Just got VB 2005 and wonder, How do you add code snippets to the list.

\\server\sharename\subfolder\subfolder\file

Sub MyShare()<br />
        Dim serverName, UserName, AdminName, UserAcct As String<br />
        Dim Ace1 As Management.ManagementObject<br />
        serverName = SystemInformation.ComputerName<br />
        Dim scope As New ManagementScope("\\" + SystemInformation.ComputerName + "\root\cimv2")<br />
        Dim wmiShare As New Management.ManagementClass(scope, New Management.ManagementPath("Win32_Share"), Nothing)<br />
        UserName = SystemInformation.UserName<br />
<br />
        Dim userAccount As ManagementObject<br />
        Dim userExists As Boolean = False<br />
        Dim userSearcher As New ManagementObjectSearcher(scope, New SelectQuery(String.Format("SELECT * from Win32_UserAccount WHERE domain='{0}'", serverName))) <br />
        For Each userAccount In userSearcher.Get()<br />
            If (String.Compare(UserName, userAccount("Name"), True) = 0) Then<br />
                userExists = True<br />
                Exit For<br />
            End If<br />
        Next<br />
        if not userExists then<br />
            Msgbox("User not found")<br />
            Exit Sub<br />
        End if<br />
<br />
        Ace1 = SetAce(scope, 2032127, 3, 0, SetTrustee(scope, serverName, UserName, GetBinarySid(scope, userAccount("sid")))) '<br />
<br />
        Dim secDescriptor As Management.ManagementObject<br />
        secDescriptor = New Management.ManagementClass(scope, New Management.ManagementPath("Win32_SecurityDescriptor"), Nothing).CreateInstance()<br />
        secDescriptor("ControlFlags") = 4<br />
        secDescriptor("DACL") = New Management.ManagementObject() {Ace1}<br />
<br />
        Dim inParams As Management.ManagementBaseObject<br />
        inParams = wmiShare.GetMethodParameters("Create")<br />
        inParams("Access") = secDescriptor<br />
        inParams("Path") = "C:\new folder"<br />
        inParams("Name") = "foldersharename"<br />
        inParams("Type") = 0<br />
        inParams("MaximumAllowed") = 5<br />
        inParams("Description") = "FolderDescriptionHere"<br />
        Dim outParams As Management.ManagementBaseObject<br />
<br />
        outParams = wmiShare.InvokeMethod("Create", inParams, Nothing)<br />
        MsgBox("Successful")<br />
    End Sub<br />
<br />
Function GetBinarySid(ByVal scope As ManagementScope, ByVal sid As String)As Byte() <br />
        Dim wmiSid As New ManagementObject(scope, New ManagementPath(String.Format("Win32_SID.SID='{0}'", sid)), Nothing)<br />
        Return wmiSid("BinaryRepresentation")<br />
    End Function<br />
<br />
    Function SetTrustee(ByVal scope As Management.ManagementScope, ByVal domain As String, ByVal name As String, ByVal UserSid As Byte()) As Management.ManagementObject<br />
        Dim wmiTrustee As Management.ManagementObject<br />
        wmiTrustee = New Management.ManagementClass(scope, New Management.ManagementPath("Win32_Trustee"), Nothing).CreateInstance()<br />
        wmiTrustee("Domain") = domain<br />
        wmiTrustee("Name") = name<br />
        wmiTrustee("SID") = UserSid<br />
        Return wmiTrustee<br />
    End Function<br />
<br />
    Function SetAce(ByVal scope As Management.ManagementScope, ByVal accessMask As Integer, ByVal aceFlags As Integer, ByVal aceType As Integer, ByVal wmiTrustee As Management.ManagementObject) As Management.ManagementObject<br />
        Dim wmiAce As Management.ManagementObject<br />
        wmiAce = New Management.ManagementClass(scope, New Management.ManagementPath("Win32_ACE"), Nothing).CreateInstance()<br />
        wmiAce("AccessMask") = accessMask<br />
        wmiAce("AceFlags") = aceFlags<br />
        wmiAce("AceType") = aceType<br />
        wmiAce("Trustee") = wmiTrustee<br />
        Return wmiAce<br />
    End Function

battulga wrote:

My user is of Administrator group and has no password.