[Endr]

Помогите пжалста...
Какой командой в скрипте прописать выполнение другого скрипта *.vbs ?

[Creat0R]

Endr,

Какой командой в скрипте прописать выполнение другого скрипта *.vbs ?

Несколько методов:

Код:

$MyScript = '"C:\My Script.vbs"'

;1)
Run("wscript.exe " & $MyScript)

;2)
ShellExecute($MyScript)

Хотя наверняка проще переписать всё то, что делает vbs скрипт, на AutoIt.

[Endr]

Creat0R, будьте добры, подскажите пжалста как установить в Windows XP службу, с последующим запуском данной службы. В справке AutoIt я этого не нашел... (или может ссылочку туда, где это обсуждается)

ЗЫ: Creat0R, описанные Вами способы не помогли запустить скрипт *.vbs

[Creat0R]

Endr,

как установить в Windows XP службу, с последующим запуском данной службы.

Я этого не знаю , никогда не сталкивался.

описанные Вами способы не помогли запустить скрипт *.vbs

Что происходит при попытке? а при обычном запуске (кликом по файлу) нормально запускается?

[Endr]

Если кликнуть по файлу *.vbs, то скрипт запускается, а если через описанные выше способы (через скрипт AutoIt) вообще ничего не происходит... (и почему-то с некоторых пор у меня при запуске скриптов AutoIt в трее ничего не появляется )

Извиняюсь, что не цитирую, что-то не получается тут это использовать на этом компьютере..

[Creat0R]

Endr,

ничего не происходит

А такой скрипт работает:

Код:

MsgBox(0, "", "Hello World!")

с некоторых пор у меня при запуске скриптов AutoIt в трее ничего не появляется

Иконка спрятана? (в настройках панели задач).

[Endr]

Creat0R, да, окошко появляется
Да дело не в компьютере... мои-то скрипты работают.
Тут видимо не так надо запускать vbs-файлик...

[Creat0R]

Endr,

видимо не так надо запускать vbs-файлик

Я очень редко советую что-то, не проверив на себе, если не тестировал, то так и напишу - “Не тестировано”.

У меня оно работает нормально, вопрос возможно глупым покажется, но всё же; как определяется что скрипт (vbs) не запускается?

[Endr]

Creat0R, у меня есть скрипт на VBS, который подкидывает файлики, устанавливает и запускает службу в Винде и потом удаляет все, что для этого требуется и себя. Определить работает скрипт или нет очень просто - служба запускается (если она выключена) и потом файлы удаляются...
Все это нужно для установки Радмина (тот скрипт, который я нашел в интернете делает это видимо, а мой - скрытно).
В данный момент у меня половина написана на AutoIt (это распаковка файлов для установки, в т.ч. и скрипт на VBS), а остальное делает собственно скриптик VBS.
Могу прикрепить код.

[Creat0R]

Endr,
Можно попробовать указать рабочую папку:

Код:

ShellExecute($MyScript, "", "C:\")

---

amel27

Такой вопрос - накалякал функцию (на основе других подобных) для проверки пути, не является ли он запущенным процессом, всё вроде работает (возвращает PID процесса), но вопрос в том, насколько надёжно использовать Psapi.dll? - в справке по этому поводу вот что сказанно:

psapi.dll - Process...() function helper DLL - used under Windows NT 4 only (Microsoft redistributable file)

Т.е получается на других системах работать не будет?

Вот функция:

Код:

$PathIsProcess = _PathIsProcess("C:\Program Files\qip\qip.exe")
MsgBox(0, '', $PathIsProcess & @LF & @extended)

Func _PathIsProcess($sPath)
    If Not FileExists($sPath) Then Return SetError(1, 0, False)

    Local $sPathName = StringRegExpReplace($sPath, "^.*\\", "")
    Local $aProcList = ProcessList($sPathName)

    If Not ProcessExists($sPathName) Then Return SetError(2, 0, False)
    Local $iUbound = UBound($aProcList)-1

    Local $aProc, $aPath
    Local $vStruct = DllStructCreate('int[1024]')

    For $i = 1 To $iUbound
        $aProc = DllCall('kernel32.dll', 'hwnd', 'OpenProcess', 'int', BitOR(0x0400, 0x0010), 'int', 0, 'int', $aProcList[$i][1])
        If Not IsArray($aProc) Or Not $aProc[0] Then Return SetError(3, 0, False)

        DllCall('Psapi.dll', 'int', 'EnumProcessModules', _
            'hwnd', $aProc[0], _
            'ptr', DllStructGetPtr($vStruct), _
            'int', DllStructGetSize($vStruct), _
            'int_ptr', 0)

        $aPath = DllCall('psapi.dll', 'int', 'GetModuleFileNameEx', _
            'hwnd', $aProc[0], _
            'int', DllStructGetData($vStruct, 1), _
            'str', '', _
            'int', 2048)
        If IsArray($aPath) And $aPath[3] = $sPath Then Return SetExtended($iUbound, $aProcList[$i][1])
    Next

    Return SetExtended($iUbound, False)
EndFunc

Может есть альтернативы?