My Scripts and Tips

Function OtherInstances()
  ' This function determines if there are other instances of this script running. If other instances are running it returns TRUE, otherwise it returnes FALSE
 
  Dim strComputer, objWMIService, colItems, objItem, Count
 
  strComputer = "."
  Count = 0
  Set objWMIService = GetObject("winmgmts:" _
      & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
  Set colItems = objWMIService.ExecQuery _
      ("Select * from Win32_Process Where Name = 'cscript.exe'" & _
          " OR Name = 'wscript.exe'")
  For Each objItem in colItems
      If InStr(1, LCase(objItem.CommandLine), LCase(Wscript.ScriptName)) > 0 Then
        Count = Count + 1	
	  End If
  Next
 
  If Count > 1 Then
    OtherInstances = TRUE
  Else
    OtherInstances = FALSE 
  End If
End Function