Запуск VBS из AutoIt

[merlin333]

Приветствую всех!

Вроде бы тема обсосана
но... направте меня на ман какой нить чтоб разобраца

Заранее спасибо!

p.s. Есть VBS скрипт который на базе данных из AD формирует подпись в Outlook

Проблема в том что он запускается при каждом запуске
Если не настроен Outlook - он просит его настроить

Я сделал на AutoIt проверку - если учетка ненастроена (отсутствует файлик *.ost) то скрипт не должен запускаться

 

[Yashied]

ShellExecute()

 

[merlin333]

Switch @OSVersion
Case "Win_7"
	$search = FileFindFirstFile (@UserProfileDir & "\AppData\Local\Microsoft\Outlook\*.ost")
	If $search = -1 Then
		;MsgBox (16, "Ошибка", "На данном компьютере не настроен Outlook")
		ShellExecute ("Подпись в Outloock.vbs", "", "", "open")
	;Else
		;$file = FileFindNextFile ($search)
		;MsgBox (64, "Результат", $file)
	EndIf
EndSwitch

Not work!

 

[madmasles]

merlin333,
А так не работает?

;...
If FileExists(@UserProfileDir & '\AppData\Local\Microsoft\Outlook\*.ost') Then
	ShellExecute(@ScriptDir & '\Подпись в Outloock.vbs')
EndIf
;...

 

[RUVATA]

madmasles, FileExists помоему *.ost не поймет... ему нужен точный путь.
Вернее он все время будет возвращать -1

merlin333,
Возьмите целевой каталог, создайте там файл с расширением *.ost
да и посмотрите что у вас получается с ним и без него... и вообще получается ли

$search = FileFindFirstFile ("С:\TestDir\*.ost")
MsgBox (1, "", $search)

Убедитесь что @UserProfileDir & "\AppData\Local\Microsoft\Outlook\*.ost" возвращает вам то каталог который Вам нужен

 

[madmasles]

RUVATA [?]

FileExists помоему *.ost не поймет... ему нужен точный путь.

А Вы проверьте.

 

[RUVATA]

madmasles,
как-то виноноват... :'( действительно работает

 

[CreatoR]

Запуск vbs кода непосредственно из скрипта:

$sProcess = "AutoIt3.exe"
$aRet = _ProcessExistsVbs($sProcess)

If IsArray($aRet) Then MsgBox(64, "Results", "Process <" & $aRet[1] & "> exists." & @LF & @LF & _
	"The returned PID is: " & $aRet[2] & @LF & @LF & _
	"Returned Executable Path is: " & @LF & $aRet[3] & @LF & @LF & _
	"Command Line of executed process is: " & @LF & $aRet[4])

;Функция возвращает массив содержащий имя процесса, его уникальный идентификатор (PID), путь запуска, и коммандную строку запуска.
;В случае если указанный процесс не существует, возвращается 0.
Func _ProcessExistsVbs($vProcess)
	Local $Code = ""
	$Code &= 'Function ProcessExists(ProcessName)' & @LF
	$Code &= '	Set Processes = GetObject("winmgmts://localhost")' & @LF
	$Code &= '	Set myProcEnum = Processes.ExecQuery("select * from Win32_Process")' & @LF
	$Code &= '	For Each Proc In myProcEnum' & @LF
	$Code &= '		If StrComp(Proc.Name, ProcessName, 1) = 0 Or StrComp(Proc.ProcessID, ProcessName, 1) = 0 Then' & @LF
	$Code &= '			Dim RetArr' & @LF
	$Code &= '			RetArr = Array(4, Proc.Name, Proc.ProcessID, Proc.ExecutablePath, Proc.CommandLine)' & @LF
	$Code &= '			ProcessExists = RetArr' & @LF
	$Code &= '			Exit Function' & @LF
	$Code &= '		End If' & @LF
	$Code &= '	Next' & @LF
	$Code &= '	ProcessExists = 0' & @LF
	$Code &= 'End Function'

	Local $VbsObj = ObjCreate("ScriptControl")
	If @error Then Return SetError(1, 0, -1)

	$VbsObj.Language = "vbscript"
	$VbsObj.AddCode($Code)
	
	Local $aRet = $VbsObj.Run("ProcessExists", $vProcess)
	If $aRet = 0 Then Return SetError(1, 0, 0)
	
	Return $aRet
EndFunc