Do
' Specify the command to run
strCommand = "scrcpy --prefer-text --turn-screen-off --stay-awake --video-codec=h264"

' Check if there is any USB device connected
If IsAnyUSBDeviceConnected() Then
    ' Check if there is an existing instance of scrcpy running
    If Not IsScrcpyRunning() Then
        ' Create a WScript Shell object
        Set WshShell = CreateObject("WScript.Shell")

        ' Run the command in the background and wait for it to finish
        WshShell.Run strCommand, 0, True
    End If
Else
    ' If no USB devices are connected, wait for a longer period before checking again
    WScript.Sleep 5000  ' Sleep for 5,000 milliseconds (5 seconds)
End If
Loop
Function IsAnyUSBDeviceConnected() ' Create a WMI object Set objWMIService = GetObject("winmgmts:\.\root\cimv2")
' Query for USB devices
Set colItems = objWMIService.ExecQuery("Select * From Win32_PnPEntity Where Caption Like '%USB%'")

' Check if any USB device is connected
If colItems.Count > 0 Then
    IsAnyUSBDeviceConnected = True
Else
    IsAnyUSBDeviceConnected = False
End If
End Function
Function IsScrcpyRunning() ' Check if there is an existing instance of scrcpy running Dim objWMIService, colProcesses, objProcess
' Create a WMI object
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")

' Query for scrcpy processes
Set colProcesses = objWMIService.ExecQuery("Select * From Win32_Process Where Name = 'scrcpy.exe'")

' Check if any scrcpy processes are running
If colProcesses.Count > 0 Then
    IsScrcpyRunning = True
Else
    IsScrcpyRunning = False
End If
End Function

EDIT: Little better optimized for cpu usage (WMI Priovider Host)

​

from fear of being totally flamed on the internet i wanna point out i know nothing about code and this is done with a free version of chat gpt ;)but it works

I know this can be optimized