VBS Script
Обсужнение только OS Windows XP
Модератор: NetSkipper
Правила форума
Администрация не несет ответственности за размещенные на этом форуме сообщения.
Если сообщения как то ущемляют Ваши права, обратитесь к администрации, и информация будет удалена с форума. Категорически запрещается выкладывать линки на продукцию Майкрософт!
Нарушители будут наказаны, в соответствии с общими правилами форума.
Сообщения и темы, которые не будут соответствовать тематике раздела, будут удаляться.
Администрация не несет ответственности за размещенные на этом форуме сообщения.
Если сообщения как то ущемляют Ваши права, обратитесь к администрации, и информация будет удалена с форума. Категорически запрещается выкладывать линки на продукцию Майкрософт!
Нарушители будут наказаны, в соответствии с общими правилами форума.
Сообщения и темы, которые не будут соответствовать тематике раздела, будут удаляться.
- danygug
- Пользователь
- Сообщения: 2492
- Зарегистрирован: 21.11.2004, 22:58
- smartphone: Нет
- Откуда: от туда... же
- Поблагодарили: 1 раз
VBS Script
Привет,
Нужен VBS скрипт который определит букву системного диска SYSTEMDRIVE и добавит в registry
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run]
"Stage1"="SYSTEMDRIVE:\\temp\\stage1.cmd"
есть программеры?
Нужен VBS скрипт который определит букву системного диска SYSTEMDRIVE и добавит в registry
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run]
"Stage1"="SYSTEMDRIVE:\\temp\\stage1.cmd"
есть программеры?
HTC
danygug
igor7
script.bat

Код: Выделить всё
@echo off
set Key=HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run
REG ADD %Key% /V Stage1 /D "%systemdrive%\temp\stage1.cmd" /f
N_T
- igor7
- Пользователь
- Сообщения: 3182
- Зарегистрирован: 13.01.2007, 11:43
- smartphone: HTC ONE
- Откуда: Israel
-
Даритель
N_T,
Конечо же, - "%systemdrive%"!! Что-то я затупил
... Вот такой же VBS скрипт:
Параметр strComputer = "." обозначает локальный компютер. Для удаленного нужно будет заменить его на strComputer = "\\Имя компа"
Конечо же, - "%systemdrive%"!! Что-то я затупил

Код: Выделить всё
Const HKEY_CURRENT_USER = &H80000001
strComputer = "."
Set objRegistry = GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv")
strKeyPath = "Software\Microsoft\Windows\CurrentVersion\Run"
strValueName = "Stage1"
strValue = "%systemdrive%\temp\stage1.cmd"
objRegistry.SetStringValue HKEY_CURRENT_USER, strKeyPath, strValueName, strValue
WScript.Echo "Stage1 value is set"
Homo hominis lupus est. Ipso factum!
igor7
- danygug
- Пользователь
- Сообщения: 2492
- Зарегистрирован: 21.11.2004, 22:58
- smartphone: Нет
- Откуда: от туда... же
- Поблагодарили: 1 раз
N_T,
через батник я и сам умею
спасибо.
кстати через батник (ибо из под доса) %systemdrive% обрабатывается нормально и в регистр пишется буква, а с vbs будет посложнее
igor7,
в регистр должно записаться
"Stage1"="С:\\temp\\stage1.cmd" , а не "Stage1"="SYSTEMDRIVE:\\temp\\stage1.cmd"
при условии что SYSTEMDRIVE = С.
Добавлено спустя 22 минуты 50 секунд:
поясню задачу ...
среда обитания windows xp
скрипт должен определить букву системного диска (C,D,E,F И и так далее)
и подставлять ее в формулу "Stage1"="буква системного диска:\\temp\\stage1.cmd"
потом получившееся, напрмер если система на диске с, добавить в регистр
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run]
"Stage1"="С:\\temp\\stage1.cmd"
скрипт будет использоваться в автоматической установке хрюши
системный диск можно определить встроеной функцией в vbscript (не знаю какой ...)
или посмотреть откуда стартует сам это vbscript, его место расположение будет системный диск:\temp\script_name.vbs
Добавлено спустя 6 минут 30 секунд:
igor7,
такого результата

я добился он меня не устраивает потомучто винда при старте не обрабатывает %systemdrive% из regestry соответственно нужна жесткая привязка к букве
через батник я и сам умею

кстати через батник (ибо из под доса) %systemdrive% обрабатывается нормально и в регистр пишется буква, а с vbs будет посложнее

igor7,
в регистр должно записаться
"Stage1"="С:\\temp\\stage1.cmd" , а не "Stage1"="SYSTEMDRIVE:\\temp\\stage1.cmd"
при условии что SYSTEMDRIVE = С.
Добавлено спустя 22 минуты 50 секунд:
поясню задачу ...
среда обитания windows xp
скрипт должен определить букву системного диска (C,D,E,F И и так далее)
и подставлять ее в формулу "Stage1"="буква системного диска:\\temp\\stage1.cmd"
потом получившееся, напрмер если система на диске с, добавить в регистр
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run]
"Stage1"="С:\\temp\\stage1.cmd"
скрипт будет использоваться в автоматической установке хрюши
системный диск можно определить встроеной функцией в vbscript (не знаю какой ...)
или посмотреть откуда стартует сам это vbscript, его место расположение будет системный диск:\temp\script_name.vbs
Добавлено спустя 6 минут 30 секунд:
igor7,
такого результата

я добился он меня не устраивает потомучто винда при старте не обрабатывает %systemdrive% из regestry соответственно нужна жесткая привязка к букве

HTC
danygug
Заново писать лень, поэтому подправлю скрипт Игоря:
PS у тебя там кое-где стоят двойные бэк-слеши. Думаю, что ты описался, но если нет, то подправь скрипт сам.
Код: Выделить всё
Const HKEY_CURRENT_USER = &H80000001
strComputer = "."
Set objRegistry = GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv")
Set WshShell = CreateObject("WScript.Shell")
Set WshEnv = WshShell.Environment("Process")
strKeyPath = "Software\Microsoft\Windows\CurrentVersion\Run"
strValueName = "Stage1"
strvalue = WshEnv.Item("systemdrive")&"\temp\stage1.cmd"
objRegistry.SetStringValue HKEY_CURRENT_USER, strKeyPath, strValueName, strValue
WScript.Echo "Stage1 value is set"
PS у тебя там кое-где стоят двойные бэк-слеши. Думаю, что ты описался, но если нет, то подправь скрипт сам.
N_T
danygug
- igor7
- Пользователь
- Сообщения: 3182
- Зарегистрирован: 13.01.2007, 11:43
- smartphone: HTC ONE
- Откуда: Israel
-
Даритель
danygug,
Учебника у меня нет, но сам я пользуюсь коллекцией скриптов с объяснениями что там к чему. Рекомендую:
http://rapidshare.com/files/161930892/v ... rchive.chm
Учебника у меня нет, но сам я пользуюсь коллекцией скриптов с объяснениями что там к чему. Рекомендую:
http://rapidshare.com/files/161930892/v ... rchive.chm
Homo hominis lupus est. Ipso factum!
igor7
N_T
danygug
laronov
Перейти
- GPS навигация
- ↳ GPS программы
- ↳ GPS устройства
- Android
- ↳ Устройства и прошивки
- ↳ Программы
- ↳ Мультимедиа и игры
- Мобильная связь, сети и ТВ
- ↳ Операторы мобильной связи
- ↳ Новости, советы и обсуждения
- ↳ Другие мобильные системы
- ↳ Интернет и домашние сети
- ↳ Телевидение
- iPhone & iPod
- ↳ Прошивки, Разлочка, Jailbreak
- ↳ Программы
- ↳ Мультимедия и игры
- Большие Братья (ББ)
- ↳ OS Операционные системы
- ↳ Windows XP
- ↳ Windows Vista
- ↳ Windows 7
- ↳ Windows 8
- ↳ Windows 10
- ↳ MAC OS
- ↳ Софт (SOFTWARE)
- ↳ Железо (HARDWARE)
- ↳ Игры для ПК
- Прочие разделы
- ↳ Фото-любителям
- ↳ Фототехнология
- ↳ Программы
- ↳ Вывод изображения, печать.
- ↳ Фототехника
- ↳ Литература по фотографии
- ↳ Наша галлерея
- ↳ Все об автомобилях.
- ↳ Обслуживание
- ↳ Тюнинг
- ↳ Обсуждение
- ↳ Литературно-музыкальные-кино- форумы
- ↳ Что, как и зачем
- ↳ Литературная навигация
- ↳ Орудия труда
- ↳ Техническая литература
- ↳ Художественная литература
- ↳ Остросюжетная литература и фантастика
- ↳ Современная проза и поэзия
- ↳ Юмористическая литература
- ↳ Фильмы и сериалы.
- ↳ Туризм
- ↳ Путешествия по Израилю
- ↳ Заграница
- ↳ Барахолка
- ↳ Покупка
- ↳ Продажа
- ↳ Беседка
- ↳ Околотехнические темы
- ↳ Требуется помощь
- ↳ Разговоры обо всем
- Архив
- ↳ Symbian
- ↳ Устройства
- ↳ Программы
- ↳ Мультимедиа и игры
- ↳ Windows Mobile
- ↳ Программы
- ↳ Устройство (Hardware)
- ↳ Игры
- ↳ Прошивки
- ↳ Литературный архив
- ↳ Техническая литература
- ↳ Художественная литература
- ↳ Windows Mobile
- ↳ iPhone & iPod