Windows & DOS: Issues & Discussions

Here is the snippet of the code that I'm trying to execute.

Stat of the service does not launch perl script. OnStop works fine. Please could you help here.

Public Class Service1

Protected Overrides Sub OnStart(ByVal args() As String)
' Add code here to start your service. This method should set things
' in motion so your service can do its work.
If Not Diagnostics.EventLog.SourceExists("vbMgr") Then
Diagnostics.EventLog.CreateEventSource("vbMgr", "Application")
End If
EventLog.Source = "vbMgr"
EventLog.WriteEntry("vbMgr service starting")


Dim oShell = CreateObject("WScript.Shell")
oShell.Run("cmd.exe /K perl c:\runtm.pl")
oShell = Nothing
'Shell("cmd.exe /K perl c:\runtm.pl ", AppWinStyle.MaximizedFocus)

End Sub

Protected Overrides Sub OnStop()
' Add code here to perform any tear-down necessary to stop your service.
If Not Diagnostics.EventLog.SourceExists("vbMgr") Then
Diagnostics.EventLog.CreateEventSource("vbMgr", "Application")
End If
EventLog.Source = "vbMgr"
EventLog.WriteEntry("vbMgr service stopped")

Dim oShell = CreateObject("WScript.Shell")
oShell.Run("cmd.exe /K echo > c:\\test.log")
oShell = Nothing

End Sub

End Class


Thanks,
Hansini