114111111

Option Explicit

Dim objShell, objWMIService, colProcesses, objProcess

Set objShell = CreateObject("WScript.Shell")
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")

Do
    ' 检查 aaa.vbs 是否在运行中
    Set colProcesses = objWMIService.ExecQuery("SELECT * FROM Win32_Process WHERE Name = 'aaa.vbs'")
    
    ' 如果 aaa.vbs 没有在运行，则启动它
    If colProcesses.Count = 0 Then
        objShell.Run "wscript.exe ""C:\path\to\aaa.vbs""", 0, False
    End If
    
    ' 每分钟检查一次
    WScript.Sleep(60000)
Loop

 

 

 

 

 

Option Explicit

Dim objShell, objWMIService, colProcesses, objProcess

Set objShell = CreateObject("WScript.Shell")
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")

' 定义标志位来跟踪是否启动了 aaa.vbs
Dim isRunning
isRunning = False

Do
    ' 检查 aaa.vbs 是否在运行中
    Set colProcesses = objWMIService.ExecQuery("SELECT * FROM Win32_Process WHERE Name = 'wscript.exe' AND CommandLine LIKE '%aaa.vbs%'")
    
    ' 如果 aaa.vbs 没有在运行，则启动它
    If colProcesses.Count = 0 And Not isRunning Then
        objShell.Run "wscript.exe ""C:\path\to\aaa.vbs""", 0, False
        isRunning = True
    ElseIf colProcesses.Count > 0 And isRunning Then
        ' 如果 aaa.vbs 在运行但标志位指示它没有启动，则重置标志位
        isRunning = False
    End If
    
    ' 每分钟检查一次
    WScript.Sleep(60000)
Loop

 

 

 

 

 

Option Explicit

Dim strFileName, objFSO, objFile, strFilePath

' 文件名
strFileName = "YourFileName.txt"

' 创建文件系统对象
Set objFSO = CreateObject("Scripting.FileSystemObject")

' 检查文件是否存在
If objFSO.FileExists(strFileName) Then
    ' 获取文件路径
    strFilePath = objFSO.GetAbsolutePathName(strFileName)
    WScript.Echo "文件 " & strFileName & " 的位置是: " & strFilePath
Else
    WScript.Echo "找不到文件 " & strFileName & "。"
End If

' 释放对象
Set objFSO = Nothing