User-851819717 posted
I'm looking for some help with my default.aspx.vb script. I have a webpage which an end user will enter an ID and a file, which uploads into a directory.
I have Powershell script which I have converted into a module, and additionally i have an module for launching Exchange Server 2010 Powershell too.
I have tested both modules within native powershell, and they work fine.
With regards to attempts via default.aspx.vb, the file submitted is uploaded correctly, The second part of the aspx.vb code is to run the powershell commmand, does not work, and this is captured by the exception on line 83 (Catch ex As Exception)
Looking for advice with regards why the latter half of the code fails
Thanks
Imports System
Imports System.Collections.Generic
Imports System.Collections.ObjectModel
Imports System.Linq
Imports System.Web
Imports System.Web.UI.Page
Imports System.Web.UI.WebControls
Imports System.Management.Automation
Imports System.Management.Automation.Runspaces
Imports System.Management.Automation.Hosts
Imports System.Management.Automation.PowerShell
Imports System.IO
Imports System.Text
Partial Class _Default
Inherits System.Web.UI.Page
Protected Sub Button1_Click(ByVal sender As Object, _
ByVal e As System.EventArgs)
Dim fileOK As Boolean = False
Dim SizeOK As Boolean = False
If FileUploadControl.HasFile Then
Dim fileExtension As String
fileExtension = System.IO.Path. _
GetExtension(FileUploadControl.FileName).ToLower()
Dim allowedExtensions As String() = _
{".txt"}
For i As Integer = 0 To allowedExtensions.Length - 1
'Dim Filesize As Integer = .PostedFileContent
If fileExtension = allowedExtensions(i) Then
fileOK = True
Else
StatusLabel.Text = "Upload status: Only text files are accepted"
End If
Next
If fileOK Then
Try
Dim objFSO, objFolder
objFSO = CreateObject("Scripting.FileSystemObject")
'strFolder = objFSO.CreateFolder(Server.MapPath("D:\PSTMailBoxReports\uploads\" & TextBox1.Text))
'objFolder = "D:\PSTMailBoxReports\uploads\" & TextBox1.Text & "-" & DateTime.Now.ToString("yyyyMMdd-HHmmss")
objFolder = "D:\PSTMailBoxReports\uploads\" & TextBox1.Text & "-" & DateTime.Now.ToString("yyyyMMdd-HHmmss-fff")
If objFSO.FolderExists(objFolder) = True Then
StatusLabel.Text = "Upload status: File was not uploaded, as import folder is identical, Please try again in 5 minutes"
Else
objFSO.CreateFolder(objFolder)
System.IO.Directory.SetCurrentDirectory(objFolder.ToString)
StatusLabel.Text = "Upload status: Entering New Upload folder please wait"
StatusLabel.Text = "Upload status: Creating Upload folder " & objFolder & ", Please now wait"
Dim physicalFolder = System.IO.Directory.GetCurrentDirectory().ToString
Dim fileName As String = Guid.NewGuid().ToString
Dim extension As String = System.IO.Path.GetExtension(FileUploadControl.FileName)
FileUploadControl.PostedFile.SaveAs(System.IO.Path.Combine(physicalFolder, fileName + extension))
StatusLabel.Text = "Upload status: File uploaded!"
' Create a RunSpace to host the Powershell script environment using RunspaceFactory.CreateRunSpace.
Dim Initial As InitialSessionState = InitialSessionState.CreateDefault()
Initial.ImportPSModule(New String() {"MailboxPSTCheck", "NewExchangeSession"})
Dim rs As Runspace = RunspaceFactory.CreateRunspace(Initial)
rs.Open()
' Dim snapInException As PSSnapInException
' Dim snapInException As PSSnapInException = Nothing
' Dim snapinInfo = rsConfig.AddPSSnapIn("Microsoft.Exchange.Management.PowerShell.E2010", snapInException)
Dim q As String = physicalFolder.ToString
Dim r As String = TextBox1.Text
Dim ID As String = "-SAID"
Dim TXTPATH As String = "-TXTPATH"
Dim pipe As Pipeline = rs.CreatePipeline()
Dim pscommand As Command = New Command("MailboxReport -SAID" & r & "-TXTPATH" & q)
pipe.Commands.Add(pscommand)
pipe.Invoke()
pipe.Dispose()
rs.Dispose()
rs.Close()
StatusLabel.Text = "Upload status: Wait for Report Email"
End If
Catch ex As Exception
StatusLabel.Text = "Upload status: Cannot Accept File. Only text files under 100kb can be accepted"
End Try
Else
StatusLabel.Text = "Upload status: Failed Please contact support"
End If
End If
End Sub
End Class
