在vb.net中以不同用户身份运行新进程

Imports System.Diagnostics
Imports System.Security.Principal

Module Module1
    Sub Main()
        ' 创建一个新的进程
        Dim process As New Process()
        process.StartInfo.FileName = "notepad.exe"

        ' 设置用户凭据
        Dim userName As String = "username"
        Dim password As String = "password"
        Dim domain As String = "domain"
        Dim securePassword As SecureString = New SecureString()
        For Each c As Char In password
            securePassword.AppendChar(c)
        Next
        Dim credentials As New NetworkCredential(userName, securePassword, domain)
        process.StartInfo.UserName = credentials.UserName
        process.StartInfo.Password = credentials.SecurePassword
        process.StartInfo.Domain = credentials.Domain

        ' 启动进程
        process.Start()
    End Sub
End Module