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

最新推荐文章于 2023-10-17 09:00:32 发布

ttood

最新推荐文章于 2023-10-17 09:00:32 发布

阅读量462

点赞数

分类专栏：杂谈

本文链接：https://blog.csdn.net/ttood/article/details/46593183

版权

杂谈专栏收录该内容

6 篇文章 0 订阅

订阅专栏

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