Find my own process ID in VBScript

by

mshta terminates itself immediately. Maybe it’s too late to achieve parent process id by using WMI service.
So, I’d use something like this to eliminate concurrent script processes.

  1. Generate random things.
  2. Determine an application which could be installed on each system, never terminates by itself (e.g. command prompt with /k parameter).
  3. Start the application in hidden mode with generated random argument (WshShell.Run).
  4. Wait a few milliseconds
  5. Query the running processes by using command line argument value.
  6. Get the ParentProcessId property.
Function CurrProcessId
    Dim oShell, sCmd, oWMI, oChldPrcs, oCols, lOut
    lOut = 0
    Set oShell  = CreateObject("WScript.Shell")
    Set oWMI    = GetObject(_
        "winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
    sCmd = "/K " & Left(CreateObject("Scriptlet.TypeLib").Guid, 38)
    oShell.Run "%comspec% " & sCmd, 0
    WScript.Sleep 100 'For healthier skin, get some sleep
    Set oChldPrcs = oWMI.ExecQuery(_
        "Select * From Win32_Process Where CommandLine Like '%" & sCmd & "'",,32)
    For Each oCols In oChldPrcs
        lOut = oCols.ParentProcessId 'get parent
        oCols.Terminate 'process terminated
        Exit For
    Next
    CurrProcessId = lOut
End Function

Dim ProcessId
ProcessId = CurrProcessId 'will remain valid indefinitely

WScript.Echo ProcessId

More Related Contents:

  1. Is it possible to embed and execute VBScript within a batch file without using a temporary file?
  2. Adding quotes to a string in VBScript
  3. Recursively access subfolder files inside a folder
  4. Hide command prompt window when using Exec()
  5. Cannot use parentheses when calling a Sub Error 800A0414 VBS
  6. Prevent VBscript app from showing Console Window
  7. Read and write into a file using VBScript
  8. Creating multi-select list box in VBScript [closed]
  9. Does VBScript allow named arguments in function calls?
  10. How do I sort arrays using vbscript?
  11. VBscript code to capture stdout, without showing console window
  12. Access network share from within VBScript eg FileSystemObject
  13. Breaking a String Across Multiple Lines
  14. ADODB.Parameters error ‘800a0e7c’ Parameter object is improperly defined. Inconsistent or incomplete information was provided
  15. What does the “On Error Resume Next” statement do?
  16. How can I use Clipboard in vbscript? [duplicate]
  17. How to find the window Title of Active(foreground) window using Window Script Host
  18. Passing-variable-from-vbscript-to-batch-file with arguments
  19. Can I pick up environment variables in vbscript WSH script?
  20. VBscript relative path
  21. Use clipboard from VBScript
  22. Passing Parameters to a Stored Procedure using ASP
  23. Vbscript list all PDF files in folder and subfolders
  24. VBS with Space in File Path
  25. Can not send mail using smtp.gmail.com, port 587 from vbs script
  26. insert a variable to cmd command
  27. Creating and writing lines to a file
  28. Create a folder in Outlook: error 800A0401 – Expected End of Statement
  29. Is the Sleep operation no longer used in VBscript?
  30. Run a vbscript from another vbscript

Leave a Comment