Da qualche mese in azienda siamo alle prese con SAP, l'ERP dell'omonima casa tedesca SAP AG. Mondo nuovo per noi abituati a lavorare in ambito Microsoft che ha richiesto non poco tempo dedicato allo studio da parte del team impegnatp nello sviluppo e nella personalizzazione della soluzione che gravita attorno la tecnologia SAP.
In modo particolare per il sottoscritto (Developer prestato al ramo sistemistico ed infrastrutturale) e' stata una sfida riuscire ad automatizzare l'avvio e l'accensione dei servizi altrimenti avviabili attarverso la mmc di amministrazione del prodotto (quindi manualmente, e di conseguenza non molto comodo). Come ben sapranno tutti coloro che, per un motivo o per un'altro, devono spegnere SAP (perche' magari devono effettuare un backup della macchina virtuale su cui e' installato, o perche' devono effettuare un banalissimo aggiornamento di Microsoft Windows) possono capire la necessita' di un sistema che permetta di automatizzare i processi di accensione/spegnimento delle varie istanze del prodotto, poiche' il Database di SAP pare essere molto delicato (stando a quanto detto dal tecnico che che ha installato il prodotto presso la nostra azienda) e, come dire... suscettibile ad un arresto o riavvio di Windows senza aver preso le necessarie precauzioni (shutdown delle istanze, per l'appunto).
Ebbene studiando un po' la documentazione SAP (molto scarsa dal punto di vista dei comandi disponibili per la shell), sono riuscito a trovare un comando che, lanciato da command shell, permette spegnimento ed accensione dell'istanza di SAP desiderata:
sapcontrol.exe.
Di seguito il comando da utilizzare per lo spegnimento di un'istanza
D:\usr\sap\DEV\DVEBMGS02\exe\sapcontrol.exe -user -function Shutdown -format script -nr ed il comando per l'accensione
D:\usr\sap\DEV\DVEBMGS02\exe\sapcontrol.exe -user -function Start -format script -nr per completare l'automatismo occorre solo verificare che l'istanza si sia arrestata per poi spegnere la macchina. A questo scopo ho scritto uno script, in vbscript che attende lo spegnimento dell'istanza selezionata prima di terminare la sua esecuzione:
Option Explicit
Dim wso
set wso = CreateObject( "WSCript.Shell")
Dim InstanceNumber
InstanceNumber = WScript.Arguments(0)
Dim ServiceAccount
ServiceAccount = WScript.Arguments(1)
Dim Password
Password = WScript.Arguments(2)
Dim Status, ExitCode
ExitCode = Shutdown(InstanceNumber, ServiceAccount, Password)
if ExitCode = 0 Then
Dim Stopped
Stopped = false
do while Not Stopped
Status = GetStatus( InstanceNumber, ServiceAccount, Password)
if Status = "Stopped" Then
Stopped = true
elseif Status = "NotFound" then
exit Do
else
WScript.Sleep 5000
end if
Loop
WScript.StdOut.WriteLine Status
else
WScript.StdOut.WriteLine "Error Shutting down " & InstanceNumber
end if
set wso = nothing
function Shutdown( instanceNumber, serviceAccount, password)
Dim oExec
set oExec = wso.Exec( "D:\usr\sap\DEV\DVEBMGS02\exe\sapcontrol.exe -user " & service Account & " " & password & " -function GetProcessList -format script -nr " & instanceNumber)
do while oEXec.Status = 0
WScript.Sleep 100
Loop
Shutdown = oExec.ExitCode
set oExec = nothing
end function
function GetStatus( instanceNumber, serviceAccount, password)
Dim Line, Result
Dim oExec
Result = "NotFound"
set oExec = wso.Exec( "D:\usr\sap\DEV\DVEBMGS02\exe\sapcontrol.exe -user " & service Account & " " & password & " -function GetProcessList -format script -nr " & instanceNumber)
do while oEXec.Status = 0
WScript.Sleep 100
Loop
do while not oExec.StdOut.AtEndOfStream
Line = oExec.StdOut.ReadLine
if InStr( Line, "0 textstatus:") then
Result = Right( Line, len(Line) - 14)
Exit do
end if
Loop
GetStatus = Result
set oExec = nothing
end function
Questo e' tutto, spero lo script vi sia utile cosi' come lo e' per il sottoscritto. Alla prossima. :)
