... * from Win32_Process Where Name = 'winword.exe'") For Each objProcess In colProcesses Set objOwner = objProcess.GetOwner() WScript.Echo "Process ID: " & objProcess.ProcessId WScript.Echo "Owner: " & objOwner.User Next ``` This may not directly ...
... ), " ", "%20" ) ) SysRefresh() // ó SysWait( 5 ) prueba con distintos valores hasta que te funcione bien CreateObject( "WScript.Shell" ):SendKeys( "~" )
Hola João, Ya estaba probando con WScript.Shell, veremos hasta donde llego. De momento voy avanzando, creo que me servirá. Para enviar pocos whatsapp seguramente servirá, para muchos (*).. veremos como se los come y como reacciona la pantalla ...
... + Chr(34) + cBody + Chr(34) + "," cCommand = cCommand + "attachment=" + Chr(34) + cAtach1 + Chr(34) oShell:=CreateObject("WScript.Shell") WinExec( cCommand, 0 ) Lo envia sin problema, pero como adjunto 2 o mas archivos al mismo correo ?, ya lo intente comprimiendo ...
Thanks, ADutheil ! To prevent the Powershell shell window from appearing, the script must be run through Wscript and cmd.exe . Of course, I made a flag DBF, where each launching application locks its own line. But it seemed to me that by viewing all processes through WMI, you ...
... del vale. He probado TODAS las combinaciones de nMode y nada de nada. Alguna idea o tip por donde ir... hasta probe oShell := CreateObject( "WScript.Shell" ) oShell:Run( "%comspec% /c start do.bat", 0, .T.) .....sin resultados. Desde Chile Saludos
... to utilize this object to manipulate VM's on my server. I am starting simple: Function TestCreateShortCut() Local WshShell := CreateObject("Wscript.shell") Local cSpecialFolder := WshShell:SpecialFolders("Desktop") MsgInfo( cSpecialFolder,"Special Folder" ) Return ...
... I found the easiest way is to do this: set WshShell=WScript.CreateObject("WScript.Shell") WshShell.run "chrome.exe" WScript.sleep 400 WshShell.sendkeys "URL HERE" WshShell.sendkeys ...