Use WMI to implement singleinstance in vbs

In a vbs script, you sometimes need to run only one instance. With the powerful features of WMI, we can achieve this function by curve. The Code is as follows:

5. Option explicit
7. 'Main process: Check whether the script has only one instance before it starts.
8. Main: Sub main ()
9. If not amisingle then exit sub 'or wscript. Quit
10. 'Do what's your want to do .....
11. 'Assume that the file size is monitored. If the size of a file exceeds 100 bytes, jjyy is used. With singleinstance, you can avoid repeated monitoring.
12. Do While true
13. On Error goto next
14. If Createobject ("scripting. FileSystemObject"). GetFile ("abc.txt"). size> 100 then exit do
15. If err. Number <> 0 Then exit do ', which is more realistic than fileexists .....
16. Wscript. Sleep 1000 'detected every 1 second
17. Loop
18. Msgbox "size overflow ."
19. End sub
21. 'Does the script only exist for a single instance?
22. '[Out] Boolean amisingle: returns true if only one script is run; otherwise, false
23. Function amisingle ()
24. Dim ob1_mi, objprocs, objproc
25. Dim intcount: intcount = 0' Number of running instances
27. 'Retrieve the WMI Service. Note that this is GetObject.
28. Set ob1_mi = GetObject ("winmgmts: //./root/cimv2 ")
29. 'Query a process named "wscript. Shell"
30. Set objprocs1_ob1_mi.exe cquery ("select * From win32_process where name1_'wscript.exe '")
31. Comparing the running parameters of wscript.exe, if the parameters are the same as those of the script
33. For each objproc in objprocs
34. If instr (objproc. CommandLine, wscript. scriptfullname)> 0 then intcount = intcount + 1
35. Next
37. Amisingle = (intcount = 1)
38. End Function