dotNETportal.cz

Pomoci Process.Start můžete spustit proces pod jiným uživatelem. Ten se nastaví vlastnostmi UserName, Domain a Password objektu ProcessStartInfo. Pro nastavení práv by jste si musel udělat zvlášť prográmek, který takto budete volat, nebo můžete rovnou volat command line utilitu Windows cacls.exe.

Kód může být následující:

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        RunCommandAs("cacls.exe", """C:\Slozka"" /e /g Users:C", "DOMENA\User", "Heslo")
    End Sub

    Public Shared Sub RunCommandAs(ByVal command As String, arguments As String, ByVal user As String, ByVal password As String)
        Dim userName As String = ExtractLogin(user)
        Dim domainName As String = ExtractDomain(user)

        Dim startInfo As ProcessStartInfo = New ProcessStartInfo(command, arguments)
        With startInfo
            .UseShellExecute = False
            .RedirectStandardError = True
            .Domain = domainName
            .UserName = userName
            .Password = MakeSecureString(password)
            .LoadUserProfile = False
            .CreateNoWindow = True
        End With

        Dim process As Process = System.Diagnostics.Process.Start(startInfo)
        'Wait for the process to end.
        process.WaitForExit()

        Dim errorOutput As String = process.StandardError.ReadToEnd()
        If Not String.IsNullOrEmpty(errorOutput) Then
            Throw New SecurityException(errorOutput)
        End If
    End Sub

    Private Shared Function MakeSecureString(ByVal text As String) As SecureString
        Dim secure As SecureString = New SecureString
        For Each c As Char In text
            secure.AppendChar(c)
        Next

        Return secure
    End Function

    Private Shared Function ExtractLogin(ByVal loginName As String) As String
        Dim strExp As String = loginName.Replace("/", "\\")
        Dim index As Integer = strExp.IndexOf(Microsoft.VisualBasic.ChrW(92))
        If (index <> -1) Then
            strExp = strExp.Substring((index + 1))
        Else
            index = strExp.IndexOf(Microsoft.VisualBasic.ChrW(64))
            If (index <> -1) Then
                strExp = strExp.Substring(0, index)
            End If
        End If

        Return strExp
    End Function

    Private Shared Function ExtractDomain(ByVal loginName As String) As String
        Dim strExp As String = loginName.Replace("/", "\\")
        Dim index As Integer = strExp.IndexOf(Microsoft.VisualBasic.ChrW(92))
        If (index <> -1) Then
            strExp = strExp.Substring(0, index)
        Else
            index = strExp.IndexOf(Microsoft.VisualBasic.ChrW(64))
            If (index <> -1) Then
                strExp = strExp.Substring((index + 1))
            Else
                strExp = ""
            End If
        End If
        index = strExp.IndexOf(Microsoft.VisualBasic.ChrW(46))
        If (index <> -1) Then
            strExp = strExp.Substring(0, index)
        End If

        Return strExp.ToUpper(System.Globalization.CultureInfo.CurrentCulture)
    End Function