ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

·í®à­±lock®ÉVBS sendkeyµLªkwork

·í®à­±lock®ÉVBS sendkeyµLªkwork

¦]¬°©³¤Uªºµ{¦¡¥²¶·­n©ñ¦b¦Û°Ê±Æµ{°õ¦æ,¦ý¬Owindow¦blockªºª¬ºA¤UµLªk°õ¦æsendkey command,©Ò¥Hµ{¦¡µLªkwork,½Ð°Ý¸Ó¦p¦ó§âÀÉ®×Âà´«¦¨§å¦¸ÀÉÅýµ{¦¡¥i¥H¶¶§Q°õ¦æ?

Const ForReading = 1
no = 0
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile ("D:\IP.txt", ForReading)

Do Until objTextFile.AtEndOfStream

strComputer = objTextFile.ReadLine
set arg=WScript.Arguments
set sh=WScript.CreateObject("WScript.Shell")
sh.Run "cmd.exe /c start /realtime telnet " & strComputer
WScript.Sleep 1500
sh.SendKeys "act{ENTER}"
WScript.Sleep 1000
sh.SendKeys "act0{ENTER}"
WScript.Sleep 1000
sh.SendKeys "/home/act/ec/utl/modpack.sh"+"{ENTER}"
WScript.Sleep 30000
sh.SendKeys "/home/act/ec/utl/prmpack.sh"+"{ENTER}"
WScript.Sleep 30000
sh.SendKeys "/home/act/cmp_prm"+"{ENTER}"
WScript.Sleep 500
sh.SendKeys "exit{ENTER} "
Set WshShell = Nothing
WScript.Sleep 60000

Loop
objTextFile.Close
sh.SendKeys "{ENTER}"

Dim fsh      
Set fsh = WScript.CreateObject ("WScript.Shell")      
WScript.Sleep 800     
fsh.Run "D:\putty.exe -rlogin [email protected]"
WScript.Sleep 800      
fsh.SendKeys "dom", True
fsh.SendKeys "~", True
WScript.Sleep 800  
fsh.SendKeys "/usr/report/comp", True
fsh.SendKeys "~", True
WScript.Sleep 500
fsh.SendKeys "exit", True
fsh.SendKeys "~", True
WScript.Quit()

¨S¦³¤H¬Ý±oÀ´§Úªº°ÝÃD¶Ü?

TOP

³o­Óª©¦n¹³¤ñ¸û¤Ö¤HÃöª`,§Úªº°ÝÃD¸Ñ¨M¤F,¦³»Ý­nªº¤H°Ñ¦Ò¬Ý¬Ý~

¦^´_ 2# herhsiu


    Loop Read, D:\IP.txt
{
   strComputer := A_LoopReadLine
   Run cmd.exe /c start /realtime telnet %strComputer%
   Sleep 1500
   Send act{ENTER}
   Sleep 1000
   Send act0{ENTER}
   Sleep 1000
   ; Send /home/act/ec/utl/inqpack.sh{ENTER}
   Sleep 500
   Send /home/act/ec/utl/modpack.sh{ENTER}
   Sleep 30000
   Send /home/act/ec/utl/prmpack.sh{ENTER}
   Sleep 30000
   Send /home/act/cmp_prm{ENTER}
   Sleep 500
   Send exit{ENTER}
   Sleep 60000
}
Send {ENTER}

Sleep 800
Run D:\putty.exe -rlogin [email protected]
Sleep 800
Send freedom
Send {ENTER}
Sleep 800
Send /usr/asm/sys.0000/hhh/report/track_comp
Send {ENTER}
Sleep 500
Send exit
Send {ENTER}

TOP

        ÀR«ä¦Û¦b : ¯à·F¤£·F¡A¤£¦p­W·F¹ê·F¡C
ªð¦^¦Cªí ¤W¤@¥DÃD