通过vb.net在powershell中使用存储的凭据

Imports System
Imports System.Security
Imports System.Runtime.InteropServices
Imports System.ComponentModel
Imports Microsoft.Win32.SafeHandles
Imports System.Text

Public Class CredentialManager
    Public Shared Function SetCredentials(target As String, userName As String, password As SecureString) As Boolean
        Dim credential As New NativeMethods.Credential()
        credential.Type = NativeMethods.CRED_TYPE.GENERIC
        credential.TargetName = target
        credential.CredentialBlobSize = password.Length * 2
        credential.CredentialBlob = Marshal.SecureStringToCoTaskMemUnicode(password)
        credential.Persist = NativeMethods.CRED_PERSIST.LOCAL_MACHINE
        credential.UserName = userName

        Dim written As Boolean = NativeMethods.CredWrite(credential, 0)

        Marshal.FreeCoTaskMem(credential.CredentialBlob)

        Return written
    End Function

    Public Shared Function GetCredentials(target As String) As NetworkCredential
        Dim credential As NativeMethods.Credential = Nothing
        Dim found As Boolean = NativeMethods.CredRead(target, NativeMethods.CRED_TYPE.GENERIC, 0, credential)

        If found Then
            Dim password As String = Marshal.PtrToStringUni(credential.CredentialBlob, credential.CredentialBlobSize / 2)

            Return New NetworkCredential(credential.UserName, password)
        End If

        Return Nothing
    End Function

    Private Class NativeMethods
        <DllImport("advapi32.dll", CharSet:=CharSet.Unicode, SetLastError:=True)>
        Public Shared Function CredWrite(ByRef userCredential As Credential, flags As UInteger) As Boolean
        End Function

        <DllImport("advapi32.dll", CharSet:=CharSet.Unicode, SetLastError:=True)>
        Public Shared Function CredRead(targetName As String, type As CRED_TYPE, reservedFlag As Integer, ByRef credential As Credential) As Boolean
        End Function

        <StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Unicode)>
        Public Structure Credential
            Public Flags As UInteger
            Public Type As CRED_TYPE
            <MarshalAs(UnmanagedType.LPWStr)>
            Public TargetName As String
            <MarshalAs(UnmanagedType.LPWStr)>
            Public Comment As String
            Public LastWritten As System.Runtime.InteropServices.ComTypes.FILETIME
            Public CredentialBlobSize As UInteger
            Public CredentialBlob As IntPtr
            Public Persist As CRED_PERSIST
            Public AttributeCount As UInteger
            Public Attributes As IntPtr
            <MarshalAs(UnmanagedType.LPWStr)>
            Public TargetAlias As String
            <MarshalAs(UnmanagedType.LPWStr)>
            Public UserName As String
        End Structure

        Public Enum CRED_TYPE As UInteger
            GENERIC = 1
            DOMAIN_PASSWORD = 2
            DOMAIN_CERTIFICATE = 3
            DOMAIN_VISIBLE_PASSWORD = 4
            GENERIC_CERTIFICATE = 5
            DOMAIN_EXTENDED = 6
            MAXIMUM = 7
            MAXIMUM_EX = (MAXIMUM + 1000)
        End Enum

        Public Enum CRED_PERSIST As UInteger
            SESSION = 1
            LOCAL_MACHINE = 2
            ENTERPRISE = 3
        End Enum
    End Class
End Class

Dim password As New SecureString()
password.AppendChar("your_password_here")

CredentialManager.SetCredentials("myCredential", "your_username_here", password)

Imports System.Management.Automation
Imports System.Management.Automation.Runspaces

Public Class PowerShellManager
    Public Shared Function RunScript(script As String) As String
        Dim results As String = ""

        Dim ps As PowerShell = PowerShell.Create()
        ps.AddScript(script)
        ps.AddCommand("Get-Credential")
        ps.AddParameter("Target", "myCredential")

        Try
            Dim output As Collection(Of PSObject) = ps.Invoke()

            For Each result As PSObject In output
                results += result.BaseObject.ToString()
            Next
        Catch ex As Exception
            results = "Error: " + ex.Message
        End Try

        Return results
    End Function
End Class

Dim script As String = "$cred = $host.ui.PromptForCredential('Enter credentials', 'Please enter your credentials:', '', 'NetBiosUserName'); $cred"

Dim result As String = PowerShellManager.RunScript(script)
Console.WriteLine("Credentials: " + result)