[BigBoo]

OSArev, спасибо, через Exec работает. Получается, что в команде Run нельзя использовать переменные и дело здесь не в кавычках?

Iska, Увидил Ваше сообщение позже. Да, интересное решение, ни за что бы не додумался!

[OSArev]

Получается, что в команде Run нельзя использовать переменные и дело здесь не в кавычках? »

Run используется немного в других случаях.Вот долго не рылся первый попавшийся пример:

Код:

Dim objWshShell, strFileName, strFullFileName, Message, Title, OpenTextFile, MyVar
Message = "Введите название:"
Title = "Создание документа в формате RTF."
Set objFSO      = WScript.CreateObject("Scripting.FileSystemObject")
Set objWshShell = WScript.CreateObject("WScript.Shell")

Do Until False
  strFileName = InputBox(Message, Title)
  If strFileName = "" Then
    MyVar = MsgBox("Вы не ввели название или " & Chr(10) & "в название есть недопустимые символы!" & Chr(10) & "" & Chr(10) & "ВВЕДИТЕ НАЗВАНИЕ!!!", vbRetryCancel + vbExclamation, "Демонстрационное окно сообщения")
    If MyVar = vbCancel Then WScript.Quit
  Else
    Exit Do
  End If
Loop
 
   strFullFileName = objFSO.BuildPath(objWshShell.SpecialFolders("C , D ,"), strFileName)
  If objFSO.FileExists(strFullFileName & ".rtf") Then
    WScript.Echo "Документ  ''"& strFileName &".rtf'' - уже существует."
On Error resume Next
    objWshShell.Run(strFullFileName & ".rtf")
    WScript.Quit 0
  Else
    objFSO.CreateTextFile strFullFileName & ".rtf"
  End If

On Error resume Next
    objWshShell.Run(strFullFileName & ".rtf")


Set objWshShell = Nothing
Set objFSO      = Nothing
    WScript.Quit 0

Попробуй. Кстати изменив разрешение .rtf на любое другое, можно создавать практически все объекты.
Очень удобно в повседневной работе.У меня подобные скрипты прописаны в реестре.
Но я сам только с месяца полтора этим увлёкся, так, что извини если будут какие-нибудь накладки

Да, интересное решение, ни за что бы не додумался! »

Если это "неподкол", то огромное спасибо за спасибо...
Но, я в принципе ещё ничего толком не умею. Поэтому буду рад общению и любым советам.

[BigBoo]

Ну просто проблемы какие-то с этими кавычками, особенно при использовании команды Run. Подскажите, как сделать, чтобы заработало?

Код:

  WSHShell.Run "cacls """"D:\" & Fold"" /E /G ""User"":F"

[Iska]

BigBoo, у Вас тут непонятная мешанина.

Попробуйте так (если я правильно понял):

Код:

WSHShell.Run "cacls.exe ""D:\" & Fold & """ /E /G " & User & ":F"

[BigBoo]

Iska, спасибо, именно то что нужно. Только смутила логика подсветки кавычек, наверно должно быть как-то так:

Код:

WSHShell.Run "cacls.exe ""D:\" & Fold & """ /E /G " & User & ":F"

[Iska]

Я подсветил те кавычки, которые превращаются в одну.

[BigBoo]

Опять вопрос о кавычках в команде Run. Вот такой скрипт:

Код:

NameExe =  "Nero.exe"  
Target = WshShell.ExpandEnvironmentStrings("%ProgramFiles%") & "\Nero\Nero 10\Nero Burning ROM\"    

WSHShell.Run """" & Target & NameExe

В посте выше предлагалось сделать так:

Код:

WSHShell.Run """" & Target & NameExe & """"

Оказалось, работает и без последних кавычек, но вот без первых нет:

Код:

WSHShell.Run Target & NameExe & """"

Никто не пояснит?

[Iska]

BigBoo, детали, почему так, а не иначе — как обычно, смотрите в MSDN: CreateProcess Function (Windows).

[C0D3X]

Люди, помогите! Голову сломал - ничего не помогает.
Есть командная строка (из bat-файлика точно рботает!):

Код:

Net Stop "FileZilla Server"||(For /F "tokens=3" %%A In ('SC queryex "FileZilla Server"^|Find "PID"') Do (TaskKill /F /PID %%A>nul Ping -n 20 127.0.0.1>nul)) & Net start "FileZilla Server"

Необходимо запустить ее из vbs скрипта.
Пробовал так:

Код:

Set WshShell = Wscript.CreateObject("Wscript.Shell")
WshShell.Run "cmd /c @Echo Off & Set ServiceName=""FileZilla Server"" & Net Stop %ServiceName%||(For /F ""tokens=3"" %%A In ('SC queryex %ServiceName%^|Find ""PID""') Do (TaskKill /F /PID %%A>nul Ping -n 20 127.0.0.1>nul)) & Net start %ServiceName%",0,true

и так:

Код:

Set WshShell = Wscript.CreateObject("Wscript.Shell")
WshShell.Run "Net Stop ""FileZilla Server""||(For /F ""tokens=3"" %%A In ('SC queryex ""FileZilla Server""^|Find ""PID""') Do (TaskKill /F /PID %%A>nul Ping -n 10 127.0.0.1>nul)) & Net Start ""FileZilla Server""",0,true

Скрипт не выдает ошибок, но и ничего не выполняет %) думаю ошибка в ковычках, но уже и 3 и 4 ковычки пробовал результата 2: либо ошибка выполнения команды (из-за неправильных ковычек), либо отсутствие вообще всего

Помогите пожалуйста!)

[Iska]

думаю ошибка в ковычках, »

Думаю, Вам незачем тупо переносить код пакетного файла в скрипт. И зачем Вам именно в таком виде — разве сервис не останавливается?

Код:

Option Explicit

Dim strServiceName

Dim objSWbemObjectEx


strServiceName = "messenger"

With WScript.CreateObject("WbemScripting.SWbemLocator").ConnectServer(".", "root\cimv2")
	With .Get("Win32_Service.Name='" & strServiceName & "'")
		If .State = "Running" Then
			If Not .StopService() = 0 Then
				WScript.Echo "Can't stop service [" & strServiceName & "]."
			End If
		End If
	End With
End With

WScript.Quit 0