Attivazione automatizzata con VBScript e job batch

1. Impostare un output con VBScript

Il seguente script imposta, quando richiamato, l’output 0 del Web-IO con l’indirizzo IP 10.40.22.101.

’ VB Script Document
option explicit

Dim objHttp
Set objHttp = WScript.CreateObject("WinHttp.WinHttpRequest.5.1")
If objHttp Is Nothing Then Set objHttp = WScript.CreateObject("WinHttp.WinHttpRequest")
  objHttp.Option(4) = 256 + 512 + 4096 + 8192
  objHttp.SetTimeouts 0, 5000, 10000, 10000
  objHttp.Open "GET", "http://10.40.22.101/outputaccess0?PW=&State=ON&", FALSE
  objHttp.setRequestHeader "User-Agent", WScript.ScriptName
  objHttp.Send ""
If Not (objHttp.statusText = "OK") Then
  WScript.Echo "Error: " & objHttp.statusText
  WScript.Quit 1
Else
  WScript.Echo objHttp.ResponseText
End If
						

Nucleo di questo script è l’oggetto WinHttp che viene utilizzato per inviare comandi al Web-IO. La vera e propria trasmissione dei comandi avviene con objHttp.Open.

http://10.40.22.101/outputaccess0?PW=&State=ON& definisce che l’output 0 del Web-IO 10.40.22.101 deve accettare lo stato ON.

Con objHttp.ResponseText viene letta la risposta del Web-IO. Nel caso del comando outputaccess il Web-IO restituisce una stringa composta dalla parola output, un punto e virgola e lo stato dell’output.

Esempio output;1

Una descrizione dettagliata dei possibili comandi del Web-IO è riportata nelle Istruzioni relative al Web-IO da pagina 102.

2. Richiamare VBScript da job batch

I job batch in ambiente Windows erano inizialmente stati concepiti per eseguire in modo automatizzato i comandi di Windows. Un esempio classico è rappresentato anche dall’Autoexec.bat negli ambienti DOS precedenti. Nel file batch viene inserito un elenco di comandi che, quando viene richiamato l’elenco, vengono portati a termine uno dopo l’altro.

Nei sistemi Windows possono essere pertanto automatizzati anche script e chiamate di programmi. Se ad es. devono essere attivati gli output di diversi Web-IO con una chiamata, ciò può essere realizzato mediante un job batch.

I corrispondenti nomi dei VBScript devono a tale scopo essere scritti nel file batch uno sotto l’altro. Negli script come quello sopra riportato è necessario creare uno script proprio per ogni compito di attivazione.

Proprio in job batch ha pertanto più senso creare uno script utilizzabile universalmente al quale, alla chiamata mediante parametri aggiuntivi, viene trasmesso il modo in cui si presenta il compito di attivazione. Al richiamo, al VBScritp indicato di seguito possono essere trasmessi i seguenti parametri:

Il richiamo dello script si presenta come indicato di seguito:

’ VB Script Document
option explicit

Dim objArgs, strArg, strArgall
Dim IP, PORT, PASSWORD, MASK, STATE, URLStr
Dim objHttp
Set objArgs = WScript.Arguments

’# Make sure that script starts as console application (best way "cscript //h:cscript")
Dim WshShell : Set WshShell = WScript.CreateObject("WScript.Shell")
If Right(WScript.FullName, Len(WScript.Fullname) - Len(WScript.Path) -1) _ = "WScript.exe" Then
  For each strArg in objArgs
    strArgall = strArgall & " " & strArg
  next
  WshShell.Run "cmd /k cscript " & Chr(34) & WScript.ScriptFullName _ & Chr(34) & strArgall
  WScript.Quit
End If

’# Check if there are Parameters
If WScript.Arguments.count < 1 Then
  WScript.Echo "***********************************"
  WScript.Echo "* Not enough arguments *"
  WScript.Echo "***********************************"
  WScript.Echo ""
  WScript.Echo "Syntyx: setoutput.vbs
  IP=<IP address> [PORT=<portno.>] _
  [PASSWORD=<password>] [MASK=<hex value>] STATE=<hex value>"
  WScript.Quit
End If

’# Read the Parameters
for each strArg in objArgs
  If Left(strArg,3) = "IP=" then
    IP = Mid(strArg, 4, Len(strArg) - 3)
  End If

  If Left(strArg,5) = "PORT="	then
    PORT = Mid(strArg, 6, Len(strArg) - 5)
  End If

  If Left(strArg,9) = "PASSWORD=" then
    PASSWORD = Mid(strArg, 10, Len(strArg) - 9)
  End If

  If Left(strArg,5) = "MASK=" then
    MASK = Mid(strArg, 6, Len(strArg) - 5)
  End If

  If Left(strArg,6) = "STATE=" then
    STATE = Mid(strArg, 7, Len(strArg) - 6)
  End If
Next

’# Mount the command String
If IP <> "" then
  URLStr = "http://" & IP
else
  WScript.Echo "***********************************"
  WScript.Echo "* Not enough arguments : IP *"
  WScript.Echo "***********************************"
End If

If PORT <> "" then
  URLStr = URLStr & ":" & PORT
End If

URLStr = URLStr & "/outputaccess?PW=" & PASSWORD & "&"

If MASK <> "" then
  URLStr = URLStr & "Mask=" & MASK & "&"
End If

If STATE <> "" then
  URLStr = URLStr & "State=" & STATE & "&"
else
  WScript.Echo "***********************************"
  WScript.Echo "*  Not
  enough arguments : STATE   *"
  WScript.Echo "***********************************"
End If

’# Send the Command String via HTTP object
Set objHttp = WScript.CreateObject("WinHttp.WinHttpRequest.5.1")
If objHttp Is Nothing Then Set objHttp = WScript.CreateObject("WinHttp.WinHttpRequest")
objHttp.Option(4) = 256 + 512 + 4096 + 8192
objHttp.SetTimeouts 0, 5000, 10000, 10000
objHttp.Open "GET", URLStr, FALSE
objHttp.setRequestHeader "User-Agent", WScript.ScriptName
objHttp.Send ""
If Not (objHttp.statusText = "OK") Then
  WScript.Echo "Error: "& objHttp.statusText
  WScript.Quit 1
else
  WScript.Echo objHttp.ResponseText
End If
						

Dopo l’esecuzione dell’azione selezionata, lo script restituisce lo stato degli output.

ad es. output:0100

Il messaggio di stato è composto dalla parola output, da un punto e virgola e dallo stato dell’output con scrittura esadecimale.

CONSIGLIO: dell’esecuzione di VBScript è responsabile Windows Scripting Host che è presente in due varianti su ogni PC Windows. Le due varianti WScript e CScript si distinguono innanzitutto per il tipo di emissione di dati. Se non diversamente configurato, vengono elaborati gli script di WScript e vengono emessi i messaggi di testo in una finestra di dialogo di Windows. Ciò presenta lo svantaggio che ogni messaggio deve essere confermato dall’utente affinché lo script possa continuare a funzionare. Questo tipo di elaborazione non è pratica per l’impiego in job batch.

Immettendo il comando wscrit //H:cscript il CScript viene definito come standard script host. CScript emette tutti i messaggi in una DOSBOX e non aspetta la conferma.

Lo script indicato sopra verifica quale script host è attivo e si interrompe, se è attivo WSript, e si riavvia con CScript.

Affinché lo script possa funzionare più velocemente, si consiglia tuttavia di passare in generale a CScript.