Vb.net 说明导致错误的用户/计算机的错误日志

在我的vb.net项目中，我实现了它，以便在

Try…Catch

语句中发现异常时创建错误日志。目前，错误日志说明了错误的日期/时间、错误发生的形式和行以及错误的类型。我希望它显示的最后一件事是登录到发生错误的计算机的用户（例如，如果是学校网络使用它，它可以说是登录的学生/老师）

这是我的代码：

   Public Shared Sub errorLog(ByVal errormessage, ByVal errorsource)

    Dim strFile As String = "errorLog-" & Today.ToString("dd-MM-yyyy") & ".txt"
    Dim fileExists As Boolean = File.Exists(strFile)
    Using sw As New StreamWriter(File.Open(strFile, FileMode.Append))
        sw.WriteLine( _
            IIf(fileExists, _
                 DateTime.Now & " " & errormessage & vbNewLine & errorsource & vbNewLine, _
            "Error log date: " & Today.ToString("dd-MM-yyyy") & vbNewLine & DateTime.Now & " " & errormessage & vbNewLine & errorsource & vbNewLine))
    End Using
End Sub

当前错误日志的示例（表名不正确）：

错误日志日期：15-07-2016 2016年7月15日11:19:31无效的对象名称“tabe_one”。 在System.Data.OleDb.OleDbCommand.ExecuteCommandTextErrorHandling（OleDbHResult hr）中 位于System.Data.OleDb.OleDbCommand.ExecuteCommandTextForSingleResult（tagDBPARAMS dbParams，Object&ExecuteSult） 在System.Data.OleDb.OleDbCommand.ExecuteCommandText（Object&ExecuteSult）中 位于System.Data.OleDb.OleDbCommand.ExecuteCommand（CommandBehavior，Object&executeResult） 位于System.Data.OleDb.OleDbCommand.ExecuteReaderInternal（CommandBehavior，String方法） 位于System.Data.OleDb.OleDbCommand.ExecuteReader（CommandBehavior） 位于System.Data.OleDb.OleDbCommand.System.Data.IDbCommand.ExecuteReader（CommandBehavior） 位于System.Data.Common.DbDataAdapter.FillInternal（数据集数据集，数据表[]数据表，Int32 StartRecords，Int32 maxRecords，字符串srcTable，IDbCommand命令，CommandBehavior） 位于System.Data.Common.DbDataAdapter.Fill（DataTable[]dataTables，Int32 StartRecords，Int32 maxRecords，IDbCommand命令，CommandBehavior） 位于System.Data.Common.DbDataAdapter.Fill（DataTable） 在C:\Project Location\Project Folder\Project Subfolder\formName.vb中的SQLServerApplication.frmViewDtb.getPeople（）处：行号

---

您可以使用Environment.UserName和Environment.Machine name来获取此信息。

您可以使用Environment.UserName和Environment.Machine name来获取此信息。

这行末尾的格式是否相同

errormessage&vbNewLine&errorsource&vbNewLine

这行末尾的格式是否相同<代码>错误消息和vbNewLine&错误源和vbNewLine