Domino 5 Server als Windows Service starten

[Heros]

Hallo,

ich habe eine Frage: Aktuell ist es bei uns so das wenn wir den Domino Server starten loggen wir uns an der Console ein und starten die Maschine. Dann erscheint die DOS Box und wir loggen den Server nur noch statt uns auszuloggen. Dies wird in Zukunft nicht mehr möglich sein aufgrund Security Änderungen.
Ich muss erreichen das der Domino Server sich beim hochfahren des Windows 2000 OS mit als Service startet.

Wie mache ich das bei Domino 5?

Danke für die Hilfe.

[Wolfgang]

... wenn der Domino-Server nicht bei den Diensten aufgelistet ist, wurde er wohl nicht als Dienst installiert.
Du mußt bei der Installation des Domino-Servers auswählen, daß er als Serverdienst laufen soll. Notfalls muß der Domino-Server noch mal drüber installiert werden ...

Gruß
Wolfgang

[robertpp]

Du kannst dir den Dienst händisch nachinstallieren!

Probier das mal als .vbs aus:

Const OWN_PROCESS = 16
Const NOT_INTERACTIVE = True
strComputer = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set objService = objWMIService.Get("Win32_BaseService")
errReturn = objService.Create ("Lotus Domino Server (LotusDominoData)", "Lotus Domino Server (LotusDominoData)", _
   "D:\Lotus\Domino\nservice.exe =D:\Lotus\Domino\notes.ini", OWN_PROCESS ,2 ,"Manual" , _
   NOT_INTERACTIVE ,".\LocalSystem" ,"")

Du musst allerdings den Pfad zum Server anpassen.

Sollte es nicht gehen kannst du den Dienst auch wieder löschen:

strComputer = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colService = objWMIService.ExecQuery ("Select * from Win32_Service")
For Each Serviceitem In colService
   If Serviceitem.DisplayName  = "Lotus Domino Server (LotusDominoData)" Then
      Serviceitem.Delete()
      Msgbox "Der Dienst wurde gelöscht!"
      Exit For
   End If         
Next