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

¦h­Óvbs°õ¦æ°ÝÃD

¦h­Óvbs°õ¦æ°ÝÃD

¤u§@»Ý­n¨C¤Ñ°õ¦æ¤U­±³o¨Çµ{¦¡½X,Á`¦@¦³80­Ó¹q¸£»Ý°µ³o¶µ¤u§@,¦ý¬Oµøµ¡¦n¹³µLªk¶}¶W¹L9­ÓÁÙ¬O¤Q­Ó,©Ò¥H«á­±ªº³£¤£·|°õ¦æ,¸Ó¦p¦ó­×§ï¤~¯à°÷Åýµ{¦¡§¹¾ã¶]§¹?


Set WshShell = CreateObject("WScript.Shell")
WshShell.Run chr(34) & "E:\11.vbs" & Chr(34), 0
Set WshShell = Nothing
set arg=WScript.Arguments
set sh=WScript.CreateObject("WScript.Shell")
sh.Run "cmd.exe /c start /realtime telnet 10.18.220.181"
WScript.Sleep 800
sh.AppActivate "Telnet 192.168.120.181"
WScript.Sleep 800
sh.SendKeys "act0{ENTER}"
WScript.Sleep 300
sh.SendKeys "/home/pack.sh"+"{ENTER}"
WScript.Sleep 350
sh.SendKeys "/home/modp.sh"+"{ENTER}"
WScript.Sleep 700
sh.SendKeys "/home/ack.sh"+"{ENTER}"
WScript.Sleep 350
sh.SendKeys "exit{ENTER} "
WScript.Sleep 300
Set WshShell = CreateObject("WScript.Shell")
WshShell.Run chr(34) & "E:\LIT EE2 module disk\LIT EE2 module disk\Backup\I12.vbs" & Chr(34), 0




Set WshShell = Nothing
set arg=WScript.Arguments
set sh=WScript.CreateObject("WScript.Shell")
sh.Run "cmd.exe /c start /realtime telnet 10.18.221.198"
WScript.Sleep 800
sh.AppActivate "Telnet 10.18.221.198"
WScript.Sleep 800
sh.SendKeys "act0{ENTER}"
WScript.Sleep 300
sh.SendKeys "/home/pack.sh"+"{ENTER}"
WScript.Sleep 350
sh.SendKeys "/home/modp.sh"+"{ENTER}"
WScript.Sleep 700
sh.SendKeys "/home/ack.sh"+"{ENTER}"
WScript.Sleep 350
sh.SendKeys "exit{ENTER} "
WScript.Sleep 300
Set WshShell = CreateObject("WScript.Shell")
WshShell.Run chr(34) & "E:\LIT EE2 module disk\LIT EE2 module disk\Backup\I13.vbs" & Chr(34), 0

¦^´_ 1# herhsiu

§Ú¦Û¤v¨Ó¦^µª~:)
Dim ID(5)
ID(0) = "01.vbs"
ID(1) = "02.vbs"
ID(2) = "03.vbs"
ID(3) = "04.vbs"
ID(4) = "05.vbs"

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 800
sh.SendKeys "act0{ENTER}"
WScript.Sleep 800
sh.SendKeys "/home/act/ec/utl/pack.sh"+"{ENTER}"
WScript.Sleep 500
sh.SendKeys "/home/act/ec/utl/modp.sh"+"{ENTER}"
WScript.Sleep 700
sh.SendKeys "/home/act/ec/utl/ack.sh"+"{ENTER}"
WScript.Sleep 500
sh.SendKeys "exit{ENTER} "

WScript.Sleep 360000
Set WshShell = CreateObject("WScript.Shell")
WshShell.Run chr(34) & ID(no) & Chr(34), 0
Set WshShell = Nothing
no = no+1
WScript.Sleep 120000
Loop
objTextFile.Close

TOP

        ÀR«ä¦Û¦b : ¡i¥Í©R¦b©I§l¶¡¡j¦òªû»¡¡G¡u¥Í©R¦b©I§l¶¡¡C¡v¤HµLªkºÞ¦í¦Û¤vªº¥Í©R¡A§óµLªk¾×¦í¦º´Á¡AÅý¦Û¤v¥Ã¦í¤H¶¡¡C¬JµM¥Í©R¥h¨Ó³o»òµL±`¡A§Ú­Ì§óÀ³¸Ó¦n¦n¦a·R±¤¥¦¡B§Q¥Î¥¦¡B¥R¹ê¥¦¡AÅý³oµL±`¡BÄ_¶Qªº¥Í©R¡A´²µo¥¦¯uµ½¬üªº¥ú½÷¡A¬M·Ó¥X¥Í©R¯u¥¿ªº»ù­È¡C
ªð¦^¦Cªí ¤W¤@¥DÃD