目录

• 脚本说明：
• 代码内容：
• 执行方法：
• 后言

脚本说明：

1、使用java、python 写的一些小脚本，或者一些轻量级的服务，通过cmd窗口运行时，如何让它在后台运行的解决办法。
2、可支持所有的可执行程序脚本文件，如：.exe、.bat、*.vbs等等

代码内容：

dim exePath,exeDir,exeFile,ws
exeDir="D:\WorkPackage\sleep_auto_test\"		'填被执行脚本文件路径，\ 结尾
exeFile="sleep_240s.exe"							'填被执行脚本文件名
rem ************************************************************************************************************
Set ws=WScript.CreateObject("wscript.shell")
strComputer = "."
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colProcessList = objWMIService.ExecQuery("Select * from Win32_Process Where Name = '" & exeFile & "'")
If colProcessList.Count>0 Then
WScript.Echo "正在运行中，关闭命令：taskkill /F /IM " & exeFile & "......"
wscript.quit
Else
ws.Run "cmd /c start /b " & exePath & exeFile,vbhide
WScript.Echo "未运行，且已重新启动"
End If
rem 验证是否启动成功
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colProcessList = objWMIService.ExecQuery("Select * from Win32_Process Where Name = '" & exeFile & "'")
If colProcessList.Count>0 Then
WScript.Echo "重新启动成功，关闭命令：taskkill /F /IM " & exeFile & "......祝你好运"
Else
WScript.Echo "重新启动失败，请检查路径或文件名是否正确。"
End If
wscript.quit

执行方法：

1、桌面新建一个txt文档，并粘贴，保存
exeDir 的值改为本地脚本的路径
exeFile 的值改为本地脚本全名
2、把后缀改成.vbs，双击脚本运行

后言

如果帮到你的话，麻烦点个赞，谢谢！