【急ぎ】VB2008でWINDOWS SERVER 2008にイベントログの書き込みについて

ex.Message=
許可されていない操作を実行しようとしました。

ex.StackTrace=
場所 Microsoft.Win32.RegistryKey.Win32ErrorStatic(Int32 errorCode, String str)
   場所 Microsoft.Win32.RegistryKey.OpenRemoteBaseKey(RegistryHive hKey, String machineName)
   場所 System.Diagnostics.EventLog.GetEventLogRegKey(String machine, Boolean writable)
   場所 System.Diagnostics.EventLog.FindSourceRegistration(String source, String machineName, Boolean readOnly)
   場所 System.Diagnostics.EventLog.SourceExists(String source, String machineName)
   場所 vb2k8ssis.Module1.func_Winsystemlog(String argStrmsg, Int32 argIntlog, Int32 argEventid) 場所 D:\テスト用\vb2k8\vb2k8\Module1.vb:行 347

'Windows Systemイベントログ出力
        Dim cpt = 'WIN2K8SV'              ' コンピュータ名
        Dim log = 'Application'           ' イベント・ログ名
        Dim src = 'TEST'                  ' イベント・ソース名

        Try
            If Not EventLog.SourceExists(src, cpt) Then
                Dim data As New EventSourceCreationData(src, log)
                EventLog.CreateEventSource(data)
            End If

            Dim elog As New EventLog(log, cpt, src)

            Select Case argIntlog
                Case 1
                    ' Write an 'Error' entry in specified log of event log.
                    elog.WriteEntry(argStrmsg, EventLogEntryType.Error, argEventid)
                Case 2
                    ' Write a 'Warning' entry in specified log of event log.
                    elog.WriteEntry(argStrmsg, EventLogEntryType.Warning, argEventid)
                Case 4
                    ' Write an 'Information' entry in specified log of event log.
                    elog.WriteEntry(argStrmsg, EventLogEntryType.Information, argEventid)
                Case 16
                    ' Write a 'FailureAudit' entry in specified log of event log.
                    elog.WriteEntry(argStrmsg, EventLogEntryType.FailureAudit, argEventid)
                Case 8
                    ' Write a 'SuccessAudit' entry in specified log of event log.
                    elog.WriteEntry(argStrmsg, EventLogEntryType.SuccessAudit, argEventid)
                Case Else
                    Exit Function
            End Select

        Catch ex As Exception
            If ex.InnerException Is Nothing Then
                strMsg = "InnerException:Nothing" & Space(1) & "Message:" & ex.Message
            Else
                strMsg = "InnerException:" & ex.InnerException.ToString & Space(1) & "Message:" & ex.Message
            End If
        End Try