WSH kerdes

[Nagy Sándor]

Kovács Marietta írta:
> A következő feladatot kellene automatizálni:
>
> 1. Minden nap 23.59-kor egy Windows XP Prof gépnek meg kellene nyitnia egy adott weblapot.
>   
Én a szerveren beütemeznék egy feladatot, ami küld egy WOL kérést ennek 
a gépnek a MAC címére, az időpont előtti biztonságos időben, /boot idő 
;)/ a Windows XP automatikus bejelentkeztetés evidens, 23.59-re pedig az 
alábbi szkripthez hasonlót lehetne beütemezni a célgépen. De most hogy 
így belegondolok a PSEXEC segítségével történő távoli futtatás is lehet 
megoldás.
> 2. A weblapon van egy HTML űrlap. Ennek egy adott mezőjébe be kellene írni az aznapi dátumot, majd az űrlapot elküldeni.
>   
Az alábbi kódot beillesztve egy iestart.vbs futtatható fájlba, és ízlés 
szerint időzítve/billentyűkombókat megadva, a feladat nagy biztonsággal 
megoldható. (Kommentek közbeszúrva, a HTML űrlap szerkezetének 
ismeretében meghatározható hányadik tabuláló pozíción található, akár a 
küldés gombra is rá lehet tabulálni a végén, ha az enter kevés)

' // Automatizálás mintapélda
' // Tesztkörnyezet: Win XP SP2 és IE6
' // Kód kezdete
set Sh = WScript.CreateObject("WScript.Shell")
'elindítjuk a böngészőt a megadott internetcímmel: filmkatalogus.hu
Sh.Run Chr(34)&"%ProgramFiles%\Internet Explorer\IEXPLORE.EXE"&Chr(34)& 
" http://filmkatalogus.hu/", 1, False
'megvárjuk míg elindul (bemért idő + biztonsági ráhagyás ezredmásodpercben!)
WScript.Sleep 5000
'// beadható billentyűkről itt 
http://www.winguides.com/scripting/reference.php?id=149
'17 TAB lenyomás szimulálásával elérünk a kívánt beviteli mezőig
For i = 1 To 17
 Sh.SendKeys "{TAB}"
 WScript.Sleep 100
Next
' beadjuk a dátumot nekünk tetsző formában (év/hó/nap), majd ENTERrel 
jóváhagyjuk
Sh.SendKeys Year(Date) & "/" & Month(Date) & "/" & Day(Date)
Sh.SendKeys "{ENTER}"
'Várunk 10 másodpercet, majd ALT-F4 kombóval bezárjuk az alkalmazást
WScript.Sleep 10000
Sh.SendKeys "%{F4}"
WScript.Quit 0
'// Kód vége

Ha menetközben elveszíti a böngésző a fókuszt, pl beugrik a víruskereső 
ablaka, onnantól vége. :) Persze lehetne minden utasítás előtt egy
Sh.AppActivate "Microsoft Internet Explorer"
utasítást is kiadni....

Sok sikert!
 N.S.