Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - ASP и VBScript

Страница: 1 | 2 | 3 |

 

  Вопрос: Bat (Batch) to VBS Добавлено: 11.09.08 20:51  

Автор вопроса:  Wu-Tang
Привет.
Помогите пожалуйста этот батник переделать в vbs.

@echo off
set key=HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnceEx
reg add %key%\001 /ve /d "delete" /f
reg add %key%\001 /v 1 /d "%WinDir%\Del Files & Folders.vbs" /f
exit

И верно ли я написал: он добавляется в автозагрузку и после одной загрузки удаляется из нее.ъ
Где только не спрашивал, никто не смог помочь.
Заранее спасибо.

Ответить

  Ответы Всего ответов: 32  

Номер ответа: 1
Автор ответа:
 



Администратор

ICQ: 278109632 

Вопросов: 42
Ответов: 3949
 Web-сайт: domkratt.com
 Профиль | | #1
Добавлено: 12.09.08 12:32
тут надо цикл проверки существования файла, сли батником. с КПК не могу написать, буду дома - напишу

Ответить

Номер ответа: 2
Автор ответа:
 Wu-Tang



Вопросов: 1
Ответов: 16
 Профиль | | #2 Добавлено: 17.09.08 18:30
Действительно везде молчок был на мой вопрос.
Говорите это:

  1. Dim WshShell
  2. Set WshShell = CreateObject("WScript.Shell")
  3.  
  4. WSHShell.RegWrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnceEx\001","%WinDir%\Del Files & Folders.vbs",True
  5.  

Он добавит файл в автозагрузку, после ребуту запустит его и затем удалит из авторана.
Верно?

Ответить

Номер ответа: 3
Автор ответа:
 Wu-Tang



Вопросов: 1
Ответов: 16
 Профиль | | #3 Добавлено: 19.09.08 21:57
И есть ли команда для vbs аналогичная def /f /q %0 в батнике?

Ответить

Номер ответа: 4
Автор ответа:
 Wu-Tang



Вопросов: 1
Ответов: 16
 Профиль | | #4 Добавлено: 30.09.08 18:13
Ребят, куда вы пропали то?

Ответить

Номер ответа: 5
Автор ответа:
 Шпион



ICQ: 250543104 

Вопросов: 13
Ответов: 118
 Профиль | | #5 Добавлено: 08.10.08 06:59

target_folder="C:\TEMP";)
Set objFSO=Createobject("Scripting.Filessystem";)
Set objFolder=objFSO.GetFolder(target_folder)
objFiles=objFolder.Files
For Each objFile In objFiles
objFSO.DeleteFile objFile.Name
Next
Set objFile=Nothing
Set objFiles=Nothing
Set objFolder=Nothing
Set objFSO=Nothing

Ответить

Номер ответа: 6
Автор ответа:
 Wu-Tang



Вопросов: 1
Ответов: 16
 Профиль | | #6 Добавлено: 09.10.08 00:41
Шпион
А что это, не понял?

Ответить

Номер ответа: 7
Автор ответа:
 Шпион



ICQ: 250543104 

Вопросов: 13
Ответов: 118
 Профиль | | #7 Добавлено: 09.10.08 04:59
ты спросил - есть команда аналогичная def /f /q %0 в батнике? (я так понял, что здесь имелась в виду команда del) и судя по параметрам - удаление без вопросов.
суть написанного мной кода - создаем объекты, цепляемся к нужной директории, удаляем из нее все файлы.
если просто один файл хочешь удалить:

  1. objFSO.DeleteFile strFileWithFullPath, True


еще вопросы? вообще работа с файлами хорошо описана в Майкрософтовом script56.chm

Ответить

Номер ответа: 8
Автор ответа:
 Шпион



ICQ: 250543104 

Вопросов: 13
Ответов: 118
 Профиль | | #8 Добавлено: 09.10.08 05:18
CHM если не найдешь - забирай здесь
http://files.mail.ru/90BL6X

Ответить

Номер ответа: 9
Автор ответа:
 



Администратор

ICQ: 278109632 

Вопросов: 42
Ответов: 3949
 Web-сайт: domkratt.com
 Профиль | | #9
Добавлено: 09.10.08 12:54
если уж один файл, то проще Kill "file"

Ответить

Номер ответа: 10
Автор ответа:
 Шпион



ICQ: 250543104 

Вопросов: 13
Ответов: 118
 Профиль | | #10 Добавлено: 09.10.08 13:35
если уж один файл, то проще Kill "file"


нет такого метода (Kill) в VBS

Ответить

Номер ответа: 11
Автор ответа:
 



Администратор

ICQ: 278109632 

Вопросов: 42
Ответов: 3949
 Web-сайт: domkratt.com
 Профиль | | #11
Добавлено: 09.10.08 16:33
Хм, действительно. Прошу прощения за неточность.

Ответить

Номер ответа: 12
Автор ответа:
 Wu-Tang



Вопросов: 1
Ответов: 16
 Профиль | | #12 Добавлено: 15.10.08 01:06
Скрипт не работает :(((
http://rapidshare.com/files/154052492/StartUp.rar

Ответить

Номер ответа: 13
Автор ответа:
 alroy



Вопросов: 3
Ответов: 28
 Профиль | | #13 Добавлено: 15.10.08 13:58
Wu-Tang
Честно не понял в чем проблема! вот я поменял твой скрипт может ты этого хотел ?????
  1. Dim WshShell
  2. Set WshShell = CreateObject("WScript.Shell")
  3.  win_dir =  WshShell.ExpandEnvironmentStrings("%WinDir%")
  4. WSHShell.RegWrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnceEx\001",win_dir&"\Del Files & Folders.vbs","REG_SZ"

Ответить

Номер ответа: 14
Автор ответа:
 alroy



Вопросов: 3
Ответов: 28
 Профиль | | #14 Добавлено: 15.10.08 14:00
ну а так вот информация про это:
Объект WshShell
Методы
RegWrite
Синтаксис:

RegWrite(<Name>,<Value>,<Type>;)

Назначение:

Записываает в реестр заданный параметр или раздел.

Параметры:

<Name> - строка, наименование параметра или раздела.
<Value> - значение параметра или значение для раздела по умолчанию.
<Type> - необязательный, тип значения. Возможные значения: "REG_SZ", "REG_EXPAND_SZ", "REG_DWORD", "REG_BINARY". Если указано "REG_SZ" или "REG_EXPAND_SZ", параметр "Type" конвертируется в строку, если указано "REG_DWORD", параметр "Type" конвертируется в целое число, если указано "REG_BINARY", параметр "Type" должен быть целым числом.


Описание:

Если "Name" оканчивается символом "\", метод записывает раздел, в противном случае записывается параметр. Параметр "Name" должен начинаться с одного из корневых ключей:
HKEY_CURRENT_USER - HKCU
HKEY_LOCAL_MACHINE - HKLM
HKEY_CLASSES_ROOT - HKCR
HKEY_USERS - HKEY_USERS
HKEY_CURRENT_CONFIG - HKEY_CURRENT_CONFIG


Пример:

Set WshShell = CreateObject("WScript.Shell";)
WshShell.RegWrite "HKCU\NewKey\","Value"
WshShell.RegWrite "HKEY_CURRENT_USER\NewKey\Param","Value","REG_SZ"
MsgBox WshShell.RegRead("HKEY_CURRENT_USER\NewKey\Param";)
MsgBox WshShell.RegRead("HKEY_CURRENT_USER\NewKey\";)
WshShell.RegDelete "HKEY_CURRENT_USER\NewKey\Param"
WshShell.RegDelete "HKEY_CURRENT_USER\NewKey\"

Ответить

Номер ответа: 15
Автор ответа:
 Wu-Tang



Вопросов: 1
Ответов: 16
 Профиль | | #15 Добавлено: 15.10.08 21:29
alroy
Честно не понял в чем проблема! вот я поменял твой скрипт может ты этого хотел ?????

Всмысле поменял?

Неее, с этим vbs я ноль, вот и прошу просто написать.

Буду тестить, то что ты подредактил.
Спасибо...

Ответить

Страница: 1 | 2 | 3 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам