VPF::Написание скрипта VBS - Форум программистов

skeletor

Дата 31.10.2007, 16:46 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 57
Регистрация: 21.2.2007
Где: Киев

Репутация: нет
Всего: 2

Помогите написать скрипт на VBS. Я чайник. Начальство дало задание. Выручайте.

При запуске скрипта выполняется проверка : [существования ключа в реестре] & [запущенности в данный момент определённого процесса]. Если эти оба условия выполнены - записать в реестр определённые ключи.

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

ПС. Модераторы, если не там тему создал - не пинайте.

mihanik

Дата 2.11.2007, 21:08 (ссылка)

(нет голосов)

Загрузка ...

-=Белый Медведь=-

Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: 11
Всего: 109

Вырезки из моего одного проекта...
Напрямую использовать нельзя для твоего случая, но основные идеи взять можно...

Код


'********************************************************************
'*
'* Функция   StartProgram ( ByVal AppName )
'* Описание: Запускает программу с именем AppName
'* Вход    : полное имя запускаемой программы
'* Выход   : ProcessID запущенной программы
'*
'********************************************************************
Function StartProgram ( ByVal AppName )
Dim WshShell, oExec

        StartProgram = 0
        On Error Resume Next

                Set WshShell = CreateObject("WScript.Shell")

                Set oExec = WshShell.Exec( AppName )

                StartProgram = oExec.ProcessID

                Set oExec    = Nothing
                Set WshShell = Nothing

        If Err.Number Then Err.Clear

        On Error Goto 0

End Function

'********************************************************************
'*
'* Процедура StopProgram (ByVal ProgramID )
'* Описание: Выгружает из памяти программу с указанным ProcessID
'* Вход    : ProcessID запущенной программы
'* Выход   : нет
'*
'********************************************************************
Sub StopProgram (ByVal ProgramID )
Dim Process

        ON ERROR RESUME NEXT

           For Each Process in GetObject("winmgmts:"). _
               ExecQuery ("select * from Win32_Process where ProcessID=" & CStr(ProgramID) )
               Process.terminate(0)
           Next

           If Err.Number Then Err.Clear

        ON ERROR Goto 0
End Sub

'********************************************************************
'*
'* Процедура StopAllPrograms (ByVal Name )
'* Описание: Выгружает из памяти все копии программы с указанным именем
'* Вход    : имя запущенной программы
'* Выход   : нет
'*
'********************************************************************
Sub StopAllPrograms (ByVal Name )
Dim Process

        ON ERROR RESUME NEXT

           For Each Process in GetObject("winmgmts:"). _
               ExecQuery ("select * from Win32_Process where Name='" & Name & "'" )
               Process.terminate(0)
           Next

           If Err.Number Then Err.Clear

        ON ERROR Goto 0
End Sub

'********************************************************************
'*
'* Функция   OutlookVersion ()
'* Описание: Возвращает версию установленного Outlook
'* Вход    : Нет
'* Выход   : Версия Outlook
'*
'********************************************************************
Function OutlookVersion ()
Dim I, OLVer, WshShell

       OutlookVersion = 0
       OLVer = ""
       
       ON ERROR RESUME NEXT

       Set WshShell = WScript.CreateObject("WScript.Shell")

       ' Выясним рабочую папку, где установлен outlook
       For I = 11 To 8 Step -1
           OLVer = WshShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\" & CStr(I) & ".0\Outlook\InstallRoot\Path")
           If OLVer <> "" Then
              OutlookVersion = I
              Exit For
           else
               Err.Clear
           end If
       Next
       
       If Err.Number Then Err.Clear
        
       Set WshShell = Nothing

       On Error Goto 0

End Function

Это сообщение отредактировал(а) mihanik - 2.11.2007, 21:10

--------------------

Программистами не рождаются, - это родовая травма...

Akina

Дата 2.11.2007, 22:19 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454

Цитата(skeletor @ 31.10.2007, 17:46

)

если не там тему создал - не пинайте

Если Вы начнете делать - никто пинать не станет.

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »