Ja. Man sollte es nicht tun.
Der Vollständigkeit halber bringe ich hier meinen Versuch einer Assembly die als separater Prozess gestartet wird und Administrator Aufgaben übernehmen soll. SystemDate_Set ist nur als Beispiel zu verstehen!
Welche Aufgaben dies sind und die entsprechenden Parameter werden als Kommandozeilenparameter an diese
Assembly übergeben.
Die Admin-Aufgaben sind deklariert in eienr Enumeration.
Public Enum enmAdminTask
Test = 1
SystemDate_Set
Insert_Other_Admin_Tasks_Here
End Enum
Falls es wirklich jemand liest wäre ich dankbar für Hinweise auf Fehler oder Vorschläge für sinnvolle Verbesserungen.
Und ob das so ein richtiger Weg ist oder vom Ansatz her so nicht gut.
Der folgende Code hat in der Assembly dieses app.manifest:
<?xml version="1.0" encoding="utf-8"?>
<asmv1:assembly manifestVersion="1.0" xmlns="urn:schemas-microsoft-com:asm.v1" xmlns:asmv1="urn:schemas-microsoft-com:asm.v1" xmlns:asmv2="urn:schemas-microsoft-com:asm.v2" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
<trustInfo xmlns="urn:schemas-microsoft-com:asm.v2">
<security>
<applicationRequestMinimum>
<defaultAssemblyRequest permissionSetReference="Custom" />
<PermissionSet class="System.Security.PermissionSet" version="1" ID="Custom" SameSite="site" Unrestricted="true" />
</applicationRequestMinimum>
</security>
</trustInfo>
</asmv1:assembly>
If Now.Date <> dtpDate_Current_Select.Value Then
' Ausgelagerte Methode in separater Klasse.
ST.Service.AdminTasks.GL.clsAdminTasks_Service.SystemDate_Set_Cls _
(dtpDate_Current_Select.Value, _
cstrProc_DeclaringTypeName_And_ProcName)
End If
Aufgerufen wird eine Methode in
ST.Service.AdminTasks.GL.clsAdminTasks_Service.
Die Assembly dieser Klasse heisst ST.Service.GL.dll und hat das gleiche app.manifest wie oben.
Namespace ST.Service.AdminTasks.GL
Public Class clsAdminTasks_Service
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Enums.
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Enum enmAdminTask
Test = 1
SystemDate_Set
Insert_Other_Admin_Tasks_Here
End Enum
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Konstanten.
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Shared ReadOnly AdminTaskSystem_Return_ErrorMessage_FilePath_Cls As String = _
System.Windows.Forms.Application.StartupPath & _
"\AdminTaskSystem_Return_ErrorMessage.txt"
Private Shared ReadOnly mcstrAdminTasksSystem_Exe_FilePath_Cls As String = _
System.Windows.Forms.Application.StartupPath & _
"\SchertlerSoftware.InfoItems.Program.ST.Service.AdminTasksSystem.GL.exe"
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Public Shared Methoden.
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Shared Function Test_Cls(Optional ByVal _
pstrProcCaller_DeclaringTypeName_And_ProcName
As String = "") As Boolean
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim cstrProc_DeclaringTypeName_And_ProcName As String = _
"clsAdminTasks_Service.Test_Cls"
Dim blnProcRCOK As Boolean = False
Dim exProcEx As ST.Service.Exception.GL.clsService_Exception
Try
Debug.Assert(pstrProcCaller_DeclaringTypeName_And_ProcName = _
"clsMainAppUL.App_Run_DerivedFrom_ClsMainApp_NotPersist" _
OrElse pstrProcCaller_DeclaringTypeName_And_ProcName = "", _
"Called from wrong Procedure.")
' AdminTasksSystem_Exe_Run_Cls.
AdminTasksSystem_Exe_Run_Cls(enmAdminTask.Test)
blnProcRCOK = True
Catch ex As System.Exception
blnProcRCOK = False
ST.Service.Exception.GL.clsService_Exception. _
ObjInstance_Create_From_InnerException_Cls("", _
ex, Nothing, exProcEx)
End Try
If blnProcRCOK Then
Return True
Else
ST.Service.Prog.Proc.GL.clsProc_Service.ProcExit_WithEx_Service_Cls(exProcEx)
Return False
End If
End Function
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Shared Function SystemDate_Set_Cls(ByVal pdatSystemDate_New As Date, _
Optional ByVal _
pstrProcCaller_DeclaringTypeName_And_ProcName As String = "") As Boolean
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim cstrProc_DeclaringTypeName_And_ProcName As String = _
"clsAdminTasks_Service.SystemDate_Set_Cls"
Dim blnProcRCOK As Boolean = False
Dim exProcEx As ST.Service.Exception.GL.clsService_Exception
Try
Debug.Assert(pstrProcCaller_DeclaringTypeName_And_ProcName = _
"clsMainAppUL." & _
"Date_OK_Test_And_App_Run_Last_Date_Message_DerivedFrom_clsMainApp_NotPersist" _
OrElse pstrProcCaller_DeclaringTypeName_And_ProcName = "", _
"Called from wrong Procedure.")
If Now.Date <> pdatSystemDate_New Then
' AdminTasksSystem_Exe_Run_Cls.
' Kommandozeilenparameter werden durch Leerzeichen getrennt.
AdminTasksSystem_Exe_Run_Cls(enmAdminTask.SystemDate_Set, _
pdatSystemDate_New.Year.ToString
& " " & _
pdatSystemDate_New.Month.ToString
& " " & _
pdatSystemDate_New.Day.ToString)
End If
blnProcRCOK = True
Catch ex As System.Exception
blnProcRCOK = False
ST.Service.Exception.GL.clsService_Exception. _
ObjInstance_Create_From_InnerException_Cls("", _
ex, Nothing, exProcEx)
End Try
If blnProcRCOK Then
Return True
Else
ST.Service.Prog.Proc.GL.clsProc_Service.ProcExit_WithEx_Service_Cls(exProcEx)
Return False
End If
End Function
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Shared Function AdminTasksSystem_Exe_Run_Cls _
(ByVal pAdmin_Task As enmAdminTask, _
Optional ByVal pstrAdmin_Task_Parameter As String = "") As Boolean
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim cstrProc_DeclaringTypeName_And_ProcName As String = _
"clsAdminTasks_Service.AdminTasksSystem_Exe_Run_Cls"
Dim blnProcRCOK As Boolean = False
Dim exProcEx As ST.Service.Exception.GL.clsService_Exception
Dim process_AdminTasks As System.Diagnostics.Process
Dim strAdmin_Task_Parameter As String = ""
Try
' Es kann sein dass pstrpstrAdmin_Task_Parameter ein Leerstring ist.
' Kommandozeilenparameter werden durch Leerzeichen getrennt.
strAdmin_Task_Parameter = pAdmin_Task.ToString & " " & pstrAdmin_Task_Parameter
strAdmin_Task_Parameter = strAdmin_Task_Parameter.Trim
'
' Mit der nächsten Awnweisung erscheint die Abfrage der Benutzerkontensteuerung.
'
' Kommandozeilenparameter werden durch Leerzeichen getrennt.
process_AdminTasks = _
Diagnostics.Process.Start _
(mcstrAdminTasksSystem_Exe_FilePath_Cls,
strAdmin_Task_Parameter)
' Das Ende des gestarteten Prozesses abwarten, bis die Adminaufgaben erledigt sind.
Do While process_AdminTasks.HasExited = False
System.Windows.Forms.Application.DoEvents()
' Discard cached information about the process.
' After Refresh is called, the first request for information about each
' property causes the process component to obtain a new value from the associated process.
process_AdminTasks.Refresh()
' Wait 0.2 seconds.
System.Threading.Thread.Sleep(200)
Loop
If System.IO.File.Exists(AdminTaskSystem_Return_ErrorMessage_FilePath_Cls) Then
' D.h. es gab Fehler.
Dim strAdminTask_System_Return_ErrorMessage As String = ""
ST.Service.IO.GL.clsFile_Service.File_Read_From_FilePath_To_String _
(AdminTaskSystem_Return_ErrorMessage_FilePath_Cls, _
strAdminTask_System_Return_ErrorMessage)
System.IO.File.Delete(AdminTaskSystem_Return_ErrorMessage_FilePath_Cls)
Dim strAdminTask_ErrorMessage As String = _
"Error in " & cstrProc_DeclaringTypeName_And_ProcName & ":" _
& vbCrLf & vbCrLf & _
strAdminTask_System_Return_ErrorMessage
' Der Fehler wird an den Aufrufer als Exception weitergegeben.
Throw New System.ApplicationException(strAdminTask_ErrorMessage)
End If
blnProcRCOK = True
Catch ex As System.Exception
blnProcRCOK = False
ST.Service.Exception.GL.clsService_Exception. _
ObjInstance_Create_From_InnerException_Cls("", _
ex, Nothing, exProcEx)
End Try
If blnProcRCOK Then
Return True
Else
ST.Service.Prog.Proc.GL.clsProc_Service.ProcExit_WithEx_Service_Cls(exProcEx)
Return False
End If
End Function
End Class
End Namespace
Hier wird mittels Diagnostics.Process.Start
eine Methode der Assembly Program.ST.Service.AdminTasksSystem.GL.exe aufgerufen
die die Admin Aufgaben ausführen soll.
Die Assembly Program.ST.Service.AdminTasksSystem.GL.exe hat eine Referenz auf die Assembly ST.Service.GL.dll
in welcher sich die startende Methode befindet.
Diese Referenz dient zum Zugriff auf gemeinsam verwendete Deklarationen.
ST.Service.GL.dll hat keine Referenz auf Program.ST.Service.AdminTasksSystem.GL.exe.
Program.ST.Service.AdminTasksSystem.GL.exe hat folgendes app.manifest:
<?xml version="1.0" encoding="utf-8"?>
<asmv1:assembly manifestVersion="1.0" xmlns="urn:schemas-microsoft-com:asm.v1" xmlns:asmv1="urn:schemas-microsoft-com:asm.v1" xmlns:asmv2="urn:schemas-microsoft-com:asm.v2" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
<trustInfo xmlns="urn:schemas-microsoft-com:asm.v2">
<security>
<requestedPrivileges xmlns="urn:schemas-microsoft-com:asm.v3">
<requestedExecutionLevel level="requireAdministrator" uiAccess="false" />
</requestedPrivileges>
</security>
</trustInfo>
</asmv1:assembly>
Die die AdminTasks ausführende Klasse clsAdminTasksSystem_Service in der Assembly Program.ST.Service.AdminTasksSystem.GL.exe:
Namespace ST.Service.AdminTasksSystem.GL
Public Class clsAdminTasksSystem_Service
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Shared Sub Main()
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Try
' Kommandozeilenparameter.
Dim strCmdArgs As String() = System.Environment.GetCommandLineArgs
' Fehler Datei löschen falls diese aus einem früherem Aufruf noch existiert.
If System.IO.File.Exists _
(ST.Service.AdminTasks.GL.clsAdminTasks_Service.AdminTaskSystem_Return_ErrorMessage_FilePath_Cls) Then
System.IO.File.Delete _
(ST.Service.AdminTasks.GL.clsAdminTasks_Service.AdminTaskSystem_Return_ErrorMessage_FilePath_Cls)
End If
' 1. Parameter ist Programmname.
If strCmdArgs.Length < 2 Then
Throw New ArgumentException("Command line argument list must not be empty.")
End If
Select Case strCmdArgs(1)
Case ST.Service.AdminTasks.GL.clsAdminTasks_Service. _
enmAdminTask.Test.ToString
AdminTask_Test_Cls(strCmdArgs)
Case ST.Service.AdminTasks.GL.clsAdminTasks_Service. _
enmAdminTask.SystemDate_Set.ToString
AdminTask_SystemDate_Set_Cls(strCmdArgs)
Case Else
Throw New ArgumentException("Admin task not implemented: " & strCmdArgs(1))
End Select
Catch ex As System.Exception
Dim objStackTrace As New StackTrace
Dim strErrorMessage As String = ""
strErrorMessage = "Error in " & _
objStackTrace.GetFrame(0).GetMethod.DeclaringType.Name & "." & _
objStackTrace.GetFrame(0).GetMethod.Name() & ":" _
& vbCrLf & vbCrLf & _
ex.Message _
& vbCrLf & vbCrLf & _
"Command line parameter:" & vbCrLf & _
System.Environment.CommandLine
' Die Fehlerdatei mit der Meldung erstellen.
ST.Service.IO.GL.clsFile_Service.File_Write_From_String_To_FilePath _
(ST.Service.AdminTasks.GL.clsAdminTasks_Service.AdminTaskSystem_Return_ErrorMessage_FilePath_Cls, _
strErrorMessage)
MsgBox(strErrorMessage)
End Try
' Hier endet der Prozess.
' MsgBox("The application is terminating")
End Sub
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Shared Sub AdminTask_Test_Cls(ByVal pstrCmdArgs As String())
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
MsgBox(pstrCmdArgs(1))
End Sub
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Shared Sub AdminTask_SystemDate_Set_Cls(ByVal pstrCmdArgs As String())
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Die eigentliche Administratoraufgabe. SystemDate nur als Beispiel.
Dim intSystemDate_Year_New As Integer
Dim intSystemDate_Month_New As Integer
Dim intSystemDate_Day_New As Integer
If UBound(pstrCmdArgs) <> 4 Then
Throw New ArgumentException("Command line argument for AdminTask_SystemDate_Set must contain 4 parameters.")
End If
Try
intSystemDate_Year_New = CType(pstrCmdArgs(2), Integer)
Catch ex As System.Exception
Throw New ArgumentException("Command line argument 2 for AdminTask_SystemDate_Set must be a valid year.")
End Try
Try
intSystemDate_Month_New = CType(pstrCmdArgs(3), Integer)
Catch ex As System.Exception
Throw New ArgumentException("Command line argument 3 for AdminTask_SystemDate_Set must be a valid month.")
End Try
Try
intSystemDate_Day_New = CType(pstrCmdArgs(4), Integer)
Catch ex As System.Exception
Throw New ArgumentException("Command line argument 4 for AdminTask_SystemDate_Set must be a valid day.")
End Try
Today = DateSerial(intSystemDate_Year_New, intSystemDate_Month_New, intSystemDate_Day_New)
End Sub
End Class
End Namespace
