title image


Smiley Re: Domino zu vorgegebener Zeit wieder starten
Hi



Die folgenden Scripte fahren LoDo auf einem Remote Rechner runter bzw. starten diesen. Das letzte Script prüft, ob Dein Backup Prozess noch läuft oder nicht. Im Fall der Prozess ist beendet kann Dein LoDo Start Script gestartet werden. Die Scripte solltest Du in 3 separate Dateien speichern (*.VBS). Du kannst diese mit Hilfe des Task Schedulers (ggf. in eine BAT/CMD Datei gewrapped) zeitgesteuert triggern.



-Auf der Maschine muß WMI laufen.

-Der auf der Maschine angemeldete Benutzer muß Adminrechte auf der remote Maschine haben. Andernfalls muß der WMI Zugriff auf den Remote Rechner etwas anders gecodet werden.



Du mußt den Servernamen und das zu startende Script anpassen.

Gruß





''' ************************************************



''' Stop Services on Remote Computers

'''

''' Author: UGE

''' Date: 27.04.2001



''' ************************************************



''' Purpose: Stop any services on remotes computers, i.e.

''' in case to backup otherwise open files without a special

''' Backup Agent





Server_Name = "MYSERVER"

Service_Name = "Lotus Domino Server (lotusdominodata)"



Set ServiceSet = GetObject("winmgmts:\\" & Server_Name & "\root\cimv2").ExecQuery("select * from Win32_Service where Name='" & Service_Name & "'")



for each Service in ServiceSet

RetVal = Service.StopService()

next



''' ************************************************



''' Start Services on Remote Computers

'''

''' Author: UGE

''' Date: 27.04.2001



''' ************************************************



''' Purpose: Start any services on remotes computers, i.e.

''' in case a backup job stopped the service to backup

''' otherwise open files without a special Backup Agent



Server_Name = "MYSERVER"

Service_Name = "Lotus Domino Server (lotusdominodata)"



Set ServiceSet = GetObject("winmgmts:\\" & Server_Name & "\root\cimv2").ExecQuery("select * from Win32_Service where Name='" & Service_Name & "'")



for each Service in ServiceSet

RetVal = Service.StartService()

next





''' ************************************************



''' Check Processes on Remote Computers

'''

''' Author: UGE

''' Date: 27.04.2001



''' ************************************************



''' Purpose: Check if a specific process is running; if not

''' run another script.



Server_Name = "MYSERVER"

Process_Name = "MyProcess"



Set ProcessSet = GetObject("winmgmts:\\" & Server_Name & "\root\cimv2").ExecQuery("select * from Win32_Process where Name='" & Process_Name & "'")





If isempty(ProcessSet) Then

else

set WShell = Wscript.createObject("Wscript.Shell")

oStatus = Wshell.Run ("MYDOMINOSTARTSCRIPT.vbs", 1, True)

End If












Gruß
_________________________
www.XLplus.de



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: