windos 下程序启动与运行自动化

set fso=CreateObject("Scripting.FileSystemObject")
set ws=CreateObject("wscript.shell")
set f=fso.getfile(wscript.scriptfullname)
ws.regwrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Run\"&f.name,f.path 


Function check_process(process_name)
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colProcesses = objWMIService.ExecQuery ("SELECT * FROM Win32_Process WHERE Name = '" & process_name & "'") 


If colProcesses.Count = 0 Then
check_process = "0"
Else
check_process = "1"
End If


end function '定义一个check_process的函数.


wscript.sleep  60*1000


do
test_code=check_process("cg.exe")


if test_code = 0 then 
set wshshl = wscript.createobject("wscript.shell")
wshshl.CurrentDirectory = "G:\MSG3600-CG_1.10.1_20150619\CG\win"
wshshl.run "G:\MSG3600-CG_1.10.1_20150619\CG\win\cg.exe 192.168.234.213"
end if
wscript.sleep  30*1000
loop