PDA

Показать полную графическую версию : ошибка в скрипте


D_e_n_n
11-08-2011, 13:49
Option Explicit
strdir="C:\test\readme.txt"
calcs strdir /G все:F
WScript.Quit

только начал изучать написание скриптов, не могу понять что он просит

SendMessage
11-08-2011, 14:35
не могу понять что он просит »
Первое: если стоит инструкция Option Explicit, то переменные необходимо объявлять. У Вас переменная strdir не прописана.
Option Explicit
Dim strdir
strdir="C:\test\readme.txt"
Второе: чтобы запустить программу, используйте метод Run объекта WshShell (http://msdn.microsoft.com/en-us/library/d5fk67ky(v=vs.85).aspx). Объект прежде необходимо создать.
Dim objWshShell
Set objWshShell = CreateObject("WScript.Shell")
objWshShell.Run "cacls " & strdir & " /G все:F"
Все вместе должно выглядеть так:
Option Explicit
Dim strdir
Dim objWshShell
strdir="C:\test\readme.txt"
Set objWshShell = CreateObject("WScript.Shell")
objWshShell.Run "cacls " & strdir & " /G все:F"
WScript.Quit
Ну и последнее: команда называется cacls, а не calcs.

D_e_n_n
12-08-2011, 05:32
а как избежать вопроса команды cacls, либо ответить на вопрос "y"?

SendMessage
12-08-2011, 14:03
ответить на вопрос "y" »
objWshShell.Run "cmd /c echo Y|cacls " & strdir & " /G все:F"




© OSzone.net 2001-2012