安装Windows服务会出错

时间:2010-08-03 07:16:34

标签: vb.net windows-services setup-project

我在本地PC上创建了一个简单的Windows服务,并将以下代码添加到其中

 Protected Overrides Sub OnStart(ByVal args() As String)
    Const iTIME_INTERVAL As Integer = 60000      ' 60 seconds.
    Dim oTimer As System.Threading.Timer

    System.IO.File.AppendAllText("C:\AuthorLog.txt", _
        "AuthorLogService has been started at " & Now.ToString())

    Dim tDelegate As Threading.TimerCallback = AddressOf EventAction
    oTimer = New System.Threading.Timer(tDelegate, Me, 0, iTIME_INTERVAL)
End Sub

Protected Overrides Sub OnStop()

End Sub


Public Sub EventAction(ByVal sender As Object)
    System.IO.File.AppendAllText("C:\AuthorLog.txt", _
        "AuthorLogService fires EventAction at " & Now.ToString())
End Sub

接下来,我向此解决方案添加了一个安装项目,并添加了一个自定义操作(通过双击应用程序文件夹,然后单击添加输出文件夹,然后从对话框中选择主输出)。解决方案很好但我有两个问题。

1)每次我安装服务时,都会要求我输入用户名,密码和确认密码;我想知道无论如何在本地跑步时至少要摆脱它。我尝试将帐户类型设置为用户,本地服务,本地系统等,但它不断弹出。

2)一旦我输入凭证(随机凭证),我就会收到错误“帐户名和安全ID之间没有映射”。

请帮助我

1 个答案:

答案 0 :(得分:2)

1:您可以像this代码项目文章一样自行安装服务,然后只需将您要使用的用户名/密码发送到ServiceProcessInstaller

2:尝试以其他格式输入凭据。如果您当前正在使用“。\ user”,请尝试编写“computer \ user”,反之亦然。