|
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.
|
|
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:
|
|
: |
indirizzo IP del Web-IO |
|
|
: |
porta TCP del Web-IO
Questo parametro è optional; se non viene fornito, lo script utilizza la porta 80 |
|
|
: |
password amministratore od operatore del Web-IO
Questo parametro è optional; se non viene fornito, lo script funziona senza password |
|
|
: |
indica con scrittura esadecimale quali output devono essere impostati
Questo parametro è optional; se non viene fornito, lo script funziona con tutti gli output |
|
|
: |
indica con scrittura esadecimale lo stato in cui gli output devono essere impostati |
Il richiamo dello script si presenta come indicato di seguito:
setoutput.vbs IP=<IP address> [PORT=<portno.>] [PASSWORD=<password>] [MASK=<hex value>] STATE=<hex value>
|
' 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.
|
