PSExec as a Resource

   '' check if psexec is in working directory. add if not. return success

    Private Function CheckForPsExec() As Boolean

        mRunningDirectory = Application.StartupPath & "\"

        If (My.Computer.FileSystem.FileExists(mRunningDirectory & "PsExec.exe")) Then

            Return True

        Else

            Try

                LogToConsole("> copying psexec.exe to running directory..")

                Dim FileName As String = IO.Path.Combine(mRunningDirectory, "PsExec.exe")

                Dim BytesToWrite() As Byte = My.Resources.PsExec

                Dim FileStream As New System.IO.FileStream(FileName, System.IO.FileMode.OpenOrCreate)

                Dim BinaryWriter As New System.IO.BinaryWriter(FileStream)

                BinaryWriter.Write(BytesToWrite)

                BinaryWriter.Close()

                FileStream.Close()

                Return True

            Catch ex As Exception

                ' there was a problem

                Return False

            End Try

        End If

    End Function

LoadSecureString

    Public Function LoadSecureString(ByVal input As String) As System.Security.SecureString

        LoadSecureString = Nothing

        If Not String.IsNullOrEmpty(input) Then

            LoadSecureString = New System.Security.SecureString

            For Each character As Char In input.ToCharArray

                LoadSecureString.AppendChar(character)

            Next

            LoadSecureString.MakeReadOnly()

        End If

    End Function