'' 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
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