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:

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