Mensajes

Estaba buscando info para hacer algo similar a la API CreateMutex desde VBS. La idea es evitar que nuestro script este corriendo dos o mas veces al mismo tiempo, y encontré este código:

Código (vb) [Seleccionar] Expandir


Function MutexOpt()
Dim oProcesses
Dim oProcess
Dim iProcCount
Dim bQuit
Set oProcesses = GetObject("winmgmts:\\.\root\cimv2").ExecQuery( "Select * from Win32_Process where Name='cscript.exe' or Name='wscript.exe'",,48)

For Each oProcess in oProcesses
If Instr(1, oProcess.CommandLine, WScript.ScriptName, 1) > 0 Then
iProcCount = iProcCount + 1
End If
Next

MutexOpt = (iProcCount > 1)

End Sub


Pero no creo que sea la mejor opción porque si corremos nuestro script dos o mas veces pero con diferentes nombres este función no serviría.

Alguien tiene alguna mejor idea ?

Gracias.

Hola. Alguien sabe si con VBS es posible establecer una comunicacion por IRC ?

Gracias