» Программирование "удобняшек" на VBScript

Подскажите плз, а как мне запустить какой-то файл-программу?
насколько я понимаю вот так правильно?

Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Exec "C:\Program Files\WinRAR\WinRAR.exe"

а теперь два уточнения - а как мне запустить эту программу с параметрами? и как запустить эту программу от имени определенного пользователя, т.е. с определенным логином и паролем? Что-то вроде Run As...

Спасибо!

Господа!
Просьба имеется. Никто не поможет в написании скрипта по такой вот задачке. Необходимо с одного компа проверять скажем наличие некоего файла на другом, причем с измерением времени выполнения проверки (для оценки работы сетевого оборудовани), ну или копирование некоего файла на другой комп (посоянного, то есть если этот файл уже есть, то его удаляем и поверх записываем тот же) с измерением времени выполнения.

С уважением Starley25.

помогите со скриптом, нужно послать нажатие кнопки "С" процессу Winamp.exe без его активации. ну или чтобы потом вернуть фокус обратно окну которое было активно до нажатия.

Dis74 12:20 28-10-2008
Цитата:

нужно послать нажатие кнопки "С" процессу Winamp.exe

Эта задача не для vbs, см AutoIt. Я кстати на предыдущих страницах оставлял dll'ку для работы с AutoIt'ом через vbs скрипты.

Цитата:

Эта задача не для vbs, см AutoIt. Я кстати на предыдущих страницах оставлял dll'ку для работы с AutoIt'ом через vbs скрипты.

как я понял AutoIt требует усновки, вобещм то хотелось универсальный вариант. так то могу и на ннкроне сделать. спасибо.

Dis74 16:28 28-10-2008
Цитата:

AutoIt требует усновки

Ну да, но там можно скомпилировать скрипт в exe'шник
А с Dll'кой не нужно ставить аутоит.

Dis74

Цитата:

AutoIt требует усновки

только в первый раз
следующий раз можно просто копировать папку с установленым AutoIt куда нужно.

Господа, кто-нибудь решал задачу проверки компутера пользователя при регистрации в домене? Т.е., задача такая: при регистрации пользователя в домене, проверить компутер с которого происходит регистрация принадлежит домену или нет. Если нет, то логОФФ.

Подскажите пожалуйста, как написать скрипт.
В одной папке находятся десять ехе-файлов. Мне нужно, чтобы скрипт запускал по 2 программы (.exe) одновременно(или можно с небольшой паузой), далее они выполняют работу , а после выполнения работы (выключаются они сами ) должны включиться следующие две и.т.д. И после завершении работы последней пары должно произойти выключение компьютера.
Мне необходимо, чтобы это было без моего контроля, т.е запустил скрипт и вё пошло полным автоматом.

azamapendrus 16:47 06-11-2008
Цитата:

как написать скрипт

Примерно можно так:


Код: Set WshShell     = WScript.CreateObject("WScript.Shell")
Set FSO         = CreateObject("Scripting.FileSystemObject")

Set oRoot         = FSO.GetFolder("C:\Execs")
Set oFiles         = oRoot.Files

iCounter         = 0

Dim iExec_1, iExec_2

For Each oFile in oFiles
    iCounter = iCounter + 1
    
    Set oExec1 = WshShell.Exec (oFile.Path)
    
    If (iCounter Mod 2) = 0 Then 'Every two calls
        Set oExec2 = WshShell.Exec (oFile.Path)
        
        While oExec1.Status = 0 Or oExec2.Status = 0
            WScript.Sleep 100
        WEnd
        
        If iCounter = 10 Then
            ShutDown_Comp()
            WScript.Quit
        End If
    End If
Next

Function ShutDown_Comp()
    sComputer = "."
    
    Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate,(Shutdown)}\\" & sComputer & "\root\cimv2")
    Set colOperating Systems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem")
    
    For Each objOperatingSystem in colOperatingSystems
        objOperatingSystem.Win32Shutdown(1)
    Next
End Function

Привет

я не программист ...

Нужен скрипт который определит букву системного диска SYSTEMDRIVE и добавит в registry

[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run]
"Stage1"="SYSTEMDRIVE:\\temp\\stage1.cmd"

danygug
ЭТо подойдет ??????


Код:

Dim WshShell
Set WshShell = CreateObject("WScript.Shell")
win_disk = WshShell.ExpandEnvironmentStrings("%SYSTEMDRIVE%")
WSHShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Run\Stage1", win_disk&"\temp\stage1.cmd","REG_SZ"


WScript.Echo "Работа скрипта завершена"

Удалено автором

azamapendrus 20:04 07-11-2008
Цитата:

Скрипт не работает

Это слишком громко сказано, что конкретно не работает?


Цитата:

В папке C:\Execs находятся десять ехе-файлов(1.exe, 2.exe, 3.exe и.т.д.). Нужно, чтобы скрипт запустил 1.exe, и нажало  ЕNТЕR, следом включает 2.exe и также нажимает ENTER

Имена файлов заранее известно? Тогда можно их не искать, а просто в массив поместить и перебирать:


Код: Set WshShell = WScript.CreateObject("WScript.Shell")

sPath        = "C:\Execs"
aFilesArr     = Array(10, "1.exe", "2.exe", "3.exe", "4.exe", "5.exe", "6.exe", "7.exe", "8.exe", "9.exe", "10.exe")

For i = 1 To aFilesArr(0)
    sFile = sPath & "\" & aFilesArr(i)
    
    If (i Mod 2) > 0 Then
        Set oExec1 = WshShell.Exec(sFile)
        
        'Если у приложения нет диалога, то цикл можно опустить, но не понятно для чего отсылать Enter
        While Not WshShell.AppActivate (oExec1.ProcessID)
            WScript.Sleep 100
        WEnd
        
        WshShell.SendKeys "~"
    Else 'Every two calls
        Set oExec2 = WshShell.Exec(sFile)
        
        While Not WshShell.AppActivate (oExec2.ProcessID)
            WScript.Sleep 100
        WEnd
        
        WshShell.SendKeys "~"
        
        While oExec1.Status = 0 Or oExec2.Status = 0
            WScript.Sleep 100
        WEnd
        
        If i = aFilesArr(0) Then
            ShutDown_Comp()
            WScript.Quit
        End If
    End If
Next

Function ShutDown_Comp()
    sComputer = "."
    
    Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate,(Shutdown)}\\" & sComputer & "\root\cimv2")
    Set colOperatingSystems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem")
    
    For Each objOperatingSystem in colOperatingSystems
        objOperatingSystem.Win32Shutdown(1)
    Next
End Function

Добавлено:
ViSiToR
Спасибо, работает отлично, как и надо.
Хотелось бы ещё добавить после окончания работы, перед выключением компа звуковой сигнал,, типа:
Set WMPlayer = CreateObject("WMPlayer.OCX")
WMPlayer.settings.autoStart = False
WMPlayer.settings.enableErrorDialogs = False
WMPlayer.URL = "C:\WINDOWS\Media\1.wav"
WMPlayer.controls.play()
While WMPlayer.playState <> 1
WScript.Sleep 1000
Wend

И выскакивало бы сообщение : Выключить компьютер? Если в течении 3 -х минут не нажал "Отмена, то тогда бы выключался.

Помогите плиз..
Вот строка бат файла:
echo Do Until v>=1 >> %temp%\temp.vbs
а созданная строка в temp.vbs получается такая:
Do Until v

А если в бате так:
echo Do Until v<=40 >> %temp%\temp.vbs
то в скрипт строка не пишется вообще.

Мне что-то не допереть, что надо сделать, чтобы строка писалась целиком...

И ещё вопросик:
как убить процесс, например explorer?
Что-то вроде этого? :
s.run "Rundll32 explorer.exe, ???exit???"
или как нить по другому?
как загрузить процесс, к примеру его же?


О! Вспомнил, ещё интересует как сделать чтобы скрипт срабатывал к примеру через 20 минут после загрузки компа? или вообще каждые 20 минут? )))

Эх, когда нибудь я стану большим и умным, а пока помогите плиз =)

azamapendrus 12:37 08-11-2008
Цитата:

выскакивало бы сообщение : Выключить компьютер? Если в течении 3 -х минут не нажал "Отмена, то тогда бы выключался.

Вот тут придётся запускать MsgBox во внешнем скрипте:


Код: Set WshShell     = WScript.CreateObject("WScript.Shell")
Set oFSO         = CreateObject("Scripting.FileSystemObject")


sPath            = "C:\Execs"
aFilesArr         = Array(10, "1.exe", "2.exe", "3.exe", "4.exe", "5.exe", "6.exe", "7.exe", "8.exe", "9.exe", "10.exe")

For i = 1 To aFilesArr(0)
    sFile = sPath & "\" & aFilesArr(i)
    
    If (i Mod 2) > 0 Then
        Set oExec1 = WshShell.Exec(sFile)
        
        While Not WshShell.AppActivate (oExec1.ProcessID)
            WScript.Sleep 100
        WEnd
        
        WshShell.SendKeys "~"
    Else 'Every two calls
        Set oExec2 = WshShell.Exec(sFile)
        
        While Not WshShell.AppActivate (oExec2.ProcessID)
            WScript.Sleep 100
        WEnd
        
        WshShell.SendKeys "~"
        
        While oExec1.Status = 0 And oExec2.Status = 0
            WScript.Sleep 100
        WEnd
        
        If i = aFilesArr(0) Then
            sTmpDir         = WshShell.ExpandEnvironmentStrings("%Temp%")
            sMsgBoxFile        = sTmpDir & "\~MsgBox.vbs"
            
            sScriptData     = "iAsk = MsgBox(""Выключить компьютер?"", 262144+36, ""Внимание!"")"
            sScriptData     = sScriptData & vbCRLF & "WScript.StdOut.WriteLine iAsk"
            
            iReboot         = ExecExternalScript(sMsgBoxFile, sScriptData, 60 * 3, 6)
            
            If iReboot = 6 Then ShutDown_Comp()
            WScript.Quit
        End If
    End If
Next


'========== Functions ==========
Function ShutDown_Comp()
    sComputer = "."
    
    Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate,(Shutdown)}\\" & sComputer & "\root\cimv2")
    Set colOperatingSystems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem")
    
    For Each objOperatingSystem in colOperatingSystems
        objOperatingSystem.Win32Shutdown(1)
    Next
End Function

Function ExecExternalScript(sScriptFile, sScriptContent, iTime, sDefaultRet)
    FileCreate sScriptFile, sScriptContent
    
    Set oExec = WshShell.Exec("Wscript.exe " & sScriptFile)
    
    sStdOutRead = ""
    iTimerInit = 0
    
    If iTime Then iTimerInit = Timer
    
    Do While oExec.Status <> 1
        WScript.Sleep 10
        
        If iTime And (Timer - iTimerInit) > iTime Then
            oExec.Terminate
            sStdOutRead = sDefaultRet
            Exit Do
        End If
    Loop
    
    oFSO.DeleteFile sScriptFile
    
    If sStdOutRead = "" Then sStdOutRead = oExec.StdOut.Read(1)
    ExecExternalScript = sStdOutRead
End Function

Function FileCreate(sFile, sData)
    Set oTF = oFSO.CreateTextFile(sFile, True)
    
    oTF.Write(sData)
    oTF.Close
End Function

ViSiToR
Спасибо огромное!!!
Во я дятел, мог бы и сам допереть

Цитата
(А если нужно именно скрипт запускать, то наверное лучше через «Назначение задач».)

Ну, вот до этого точно не допру.
Реально добавить задачу с помощью реестра? (Хотя наверное нет)
А скриптом можно назначить задачу? Как-нибудь так:

Dim A,B,Sel
Set A=WScript.CreateObject("НАЗНАЧАТЕЛЬ ЗАДАЧ.Application")
Set B=A.ЗАДАЧА.Add
A.Visible=false
Sel... 'Устанавливаем параметры задачи
Sel...

GuitarloverX 18:32 09-11-2008
Цитата:

скриптом можно назначить задачу?

Не думаю, хотя не исключено.

Я имел в виду самому назначить задание
Но всё же лучше будет просто запустить скрипт с автозапуска, и каждые 20 минут (через цикл) делать то что нужно. Примерно так:


Код: iSleepTime = 1 'Каждые сколько минут запускать функцию MyProc

While True
    WScript.Sleep (iSleepTime * 1000 * 60)
    
    MyProc()
WEnd

Function MyProc()
    'Тут может выполняться то что нужно каждые N минут
    MsgBox "Минут прошло: " & iSleepTime, 64, "Внимание!"
End Function

ViSiToR
Усё ясно...

А если например я хочу скрыть процесс из диспетчера задач, и мне мозгов не хватает слепить DLL и вызвать из неё функцию, прилепив её к какому нить системмному процессу, то можно ли скрыть его скриптом ходя бы из диспетчера?

Получаю список процессов
Dim Proc() As System.Diagnostics.Process
Proc = System.Diagnostics.Process.GetProcesses()
Нахожу нужный.... И скрываю...

Можно, конечно скрыть диспетчер задач и запретить регэдит, но это не красиво

Здравствуйте. Помогите пожалуйста. Нужен скрипт на VBScript
Есть домен,2 сервера. Пользователи с рабочих станций через ярлыки на раб. столе заходят на сервер в базу данных. Ярлыки настроены на шаренную папку первого сервера. Как сделать скрипт, который бы запускался по шедуллеру,проверял доступность сетевого ресурса и в случае его недоступности переделывал бы ярлыки пользователей на другой сервер. Спасибо.

GuitarloverX 20:18 10-11-2008
Цитата:

если например я хочу скрыть процесс из диспетчера задач

Через vbs вроде никак. На AutoIt уже будет проще.

Встала задача сделать что-то вроде будильника по модему. Т.е. есть модем USR COURIER (COM PORT), подключен к серваку под WIN2003, нужно по шедулеру запускать скрипт который будет дозваниваться по определенному номеру и после ответа на том конце класть трубку. Дозваниваться до тех пор пока ответа не последует.

ViSiToR

Цитата:

Через vbs вроде никак. На AutoIt [?] уже будет проще.

Вот спасибо, хорошо, положите на комод.... "AutoIt" черт, я и слова то такого не слыхал до сегодняшнего дня.
Теперь и в АПИ придется лезть уже по полной программе...

Зато допер как ДЛЛ-ку слепить на дельфи и запускаться от имени Winlogon , правда пока не знаю, есть ли в этом смысл, т.к. процесс WScript.exe один черт в диспетчере виден будет.

Доброго времени суток. Ребята, помогите со скриптом, пожалуйста.
Нужно сотворить скриптик для FTP сервера, с диалоговым окном, или окном протоколирования, и сохранением в лог. Чтобы, можно было видеть на экране в этом окшке обмен??? Адрес нашего ФТП 192.168.1.1. Имя и пароль - аноним. Очень прошу. Или подскажите сцылку на существующий скрипт....

Внесу свою лепту:
Замена путей в ярлыках, старый путь на новый, с возможностью поиска по всему диску

Код: '********************************************************************
'*http://www.tek-tips.com/viewthread.cfm?qid=1207618&page=1
'*Скрипт по замене свойств ярлыков, заменяет пути в ярлыках
'*Запускать /localFolderToSearch:"c:\xyz\pqr" /targetToReplace:"\\OldServer\" /replacementTarget:"\\NewServer\"
'*
'********************************************************************
Dim sarg1,sarg2,sarg3,sarg4,objFSO,objDrive,oFso,oFolder,oFiles,oFile,oLnk

Set oShell = CreateObject("WScript.Shell")
Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")

'********************************************************************
'*Определим аргументы запущенные в коммандной строке
'********************************************************************
With wscript.arguments.Named
    sarg1=LCase(.item("localFolderToSearch"))
sarg2=LCase(.item("targetToReplace"))
sarg3=LCase(.item("replacementTarget"))
End With

'********************************************************************
'*Проверим эти аргументы на условия:
'*Desktop, AllUsersDesktop, MyDocuments, Startup
'*Но можно указать поиск на всех жёстких дисках
'*аргумент /localFolderToSearch:"AllDrivers" заставит пробежать по всем дискам
'*и проверить все папки и подпапки
'********************************************************************
If sarg1="" Or sarg2="" or sarg3="" Then
msgbox "Запускайте с такими параметрами:" & vbCr & vbCr &_
"/localFolderToSearch:""c:\xyz\pqr"" /targetToReplace:""\\OldServer\"" /replacementTarget:""\\NewServer\""" & vbCr & vbCr &_
"Путь где искать" & vbTab & "Что менять в пути" & vbTab & vbTab & "Что должно стать в пути" & vbCr &_
"c:\xyz\pqr" & vbTab & "\\OldServer\" & vbTab & vbTab & "\\NewServer\" & vbCr & vbCr &_
"Можно указать Desktop, AllUsersDesktop, MyDocuments, Startup" & vbCr & vbCr &_
"А можно поискать на всех дисках: AllDrivers", vbInformation, "Внимание"
ElseIf sarg1="desktop" Then
    sarg4=oShell.SpecialFolders("Desktop")
    ReplaceShortcut sarg4,sarg2,sarg3
ElseIf sarg1="allusersdesktop" Then
    sarg4=oShell.SpecialFolders("AllUsersDesktop")
    ReplaceShortcut sarg4,sarg2,sarg3
ElseIf sarg1="mydocuments" Then
    sarg4=oShell.SpecialFolders("MyDocuments")
    ReplaceShortcut sarg4,sarg2,sarg3
ElseIf sarg1="startup" Then
    sarg4=oShell.SpecialFolders("Startup")
    ReplaceShortcut sarg4,sarg2,sarg3
ElseIf sarg1="alldrivers" Then
    FindDrivers
End If

'*Ну и обязательно выйдем из скрипта
WScript.Quit 0

'********************************************************************
'*Процедура поиска в папке файлов с расширением lnk,
'*Производит замену старого пути на новый в ярлыках
'*при условии что будет найден ярлык со старым путём
'********************************************************************
Sub ReplaceShortcut (localFolderToSearch, targetToReplace, replacementTarget)
if objFSO.folderExists(localFolderToSearch) then
Set oFolder = objFSO.GetFolder(localFolderToSearch)
Set oFiles = oFolder.Files
For Each oFile In oFiles
If LCase(objFSO.GetExtensionName(oFile.name)) = "lnk" Then
Set oLnk = oShell.CreateShortcut(oFile.path)
If instr(1, LCase(oLnk.TargetPath), targetToReplace, 1)<>0 Then
oLnk.TargetPath = replace(oLnk.TargetPath, targetToReplace, replacementTarget,1,-1,1)
oLnk.Save
'MsgBox "Отон он, нашёл его!"
End If
set oLnk=nothing
End If
Next
FindSubFolders localFolderToSearch
set oFiles=nothing
set oFolder=nothing
else
'folder does not even exist---do nothing?
end if
End Sub

'********************************************************************
'*Процедура поиска дисков у пользователя
'*Ищутся локальные диски, и как параметр отсылается на растерзание
'*процедуре поиска папок
'********************************************************************
Sub FindDrivers
    For Each objDrive In objFSO.Drives
    If objDrive.DriveType = 2 Then
    If objDrive.IsReady Then
FindSubFolders objDrive.RootFolder
    End If
    End If
    Next
End Sub

'********************************************************************
'*Ну и сама процедура поиска папок, с подпапками
'*Передаёт процедуре папки с аргументами (типа поищи тут)
'********************************************************************
Sub FindSubFolders (objFolderForFind)
    On Error Resume Next
    For Each objFolder In objFolderForFind.SubFolders
        If Err.Number = 0 Then
            ReplaceShortcut objFolder,sarg2,sarg3
        Else
            Err.Clear
        End If
    Next
    On Error Goto 0
End Sub

Добрый вечер. Вопросик по сриптику. Хелп плиз.

Имеется ФТП скрипт:


Код: set WSHShell = WScript.CreateObject("WScript.Shell")
WScript.Sleep 500
'WshShell.SendKeys()
'Do While ftp <> True

' Function WriteFtpLog()
' MyLog.WriteLine(Cstr(Date)&" "&Cstr(Time) & ftp.LastErrorText)
' MyLog.Close
' WScript.Quit
' End Function

Set fso = CreateObject("Scripting.FileSystemObject")

' If (fso.FileExists("ftplog.log")) Then
' Set MyLog = fso.OpenTextFile("ftplog.log", 8, True)
' Else
' Set MyLog = fso.CreateTextFile("ftplog.log")
' end if

'dim ftp
set ftp = CreateObject("ChilkatFtp.ChilkatFtp")
ftp.Username = "anonymous"
ftp.Password = "anonymous"
ftp.Hostname = "192.168.1.1"

ok = ftp.Connect()
'ok = ftp.Sleep (100)
'Do While ftp.Connect <> True

Do While ftp.LastErrorText <> True
if (ok <> 1) then
MsgBox ftp.LastErrorText
end if

localDir = "c:\1\"
remotePattern = "\\*.*"
numDownloaded = ftp.MGetFiles(remotePattern, localDir)
'Do While MGetFiles <> True

MsgBox ftp.LastErrorText

'If (success <> 1) Then WriteFtpLog () End if

ok = ftp.Connect()
if (ok <> 1) then
MsgBox ftp.LastErrorText
end if

'ftp.ChangeRemoteDir "\\"
ftp.MPutFiles "*.txt"
'Do While MPutFiles <> False

MsgBox ftp.LastErrorText

'If (success <> 1) Then WriteFtpLog () End If
Loop
'Loop

Hi to all. Это VB скрипт для FTP. Работатет по циклу. Есть вопросик, точнее два. Как мне сделать чтобы, скрипт проверял если на ФТП дата файла отличается, то копировать, если нет то не копировать. И еще, как мне ему подсунуть список юзеров и пасвордов, а то он сечайс пашет только как "anonymous" ????


Код: Function WriteFtpLog()
MyLog.WriteLine(Cstr(Date)&" "&Cstr(Time) & ftp.LastErrorText)
End Function
set WSHShell = WScript.CreateObject("WScript.Shell")
'WScript.Sleep 1000

Set fso = CreateObject("Scripting.FileSystemObject")

If (fso.FileExists("log.log")) Then
Set MyLog = fso.OpenTextFile("log.log", 8, True)
Else
Set MyLog = fso.CreateTextFile("log.log")
end if

set ftp = CreateObject("ChilkatFtp.ChilkatFtp")
ftp.Username = ""
ftp.Password = ""
ftp.Hostname = "192.168.1.1"

ok = ftp.Connect()
Do While ftp.Connect <> True


localDir = "c:\"
remotePattern = "\\*.*"
numDownloaded = ftp.MGetFiles(remotePattern, localDir)

set oShell = WScript.CreateObject ("WScript.Shell")
oShell.Popup ftp.LastErrorText, 3

If (success <> 1) Then WriteFtpLog () End if

ftp.MPutFiles "*.txt"

set oShell = WScript.CreateObject ("WScript.Shell")
oShell.Popup ftp.LastErrorText, 3

If (success <> 1) Then WriteFtpLog () End If
Loop

Уважаемые!
Подскажите, пожалуйста, какое-нибудь пособие, учебник по языку VBScript.
Заранее благодарен!

coherent
Начать я бы посоветовал с цикла статей Игоря Чеботарева.
Ну а в этом справочнике все есть.
Для начала больше ничего и не надо.