ReSQL.ru
     
powered by simpleCommunicator - 2.0.55     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Изменить дату,запустить процесс и обратно vbs wsh
7 сообщений из 7, страница 1 из 1
Изменить дату,запустить процесс и обратно vbs wsh
    #37040273
Студентикк
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Студентикк
Гость
Доброго времени суток.
Интересует такой вопрос. Как по средствам скрипта изменять системную дату. В идеале линк где почитать, ибо яндекс отказался давать =(
...
Рейтинг: 0 / 0
29.12.2010, 10:14
| Ответить | Цитировать | Написать  
Изменить дату,запустить процесс и обратно vbs wsh
    #37040311
Студентикк
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Студентикк
Гость
в батнике описанное в заголовке выполняется примерно так:
Код: plaintext
1.
2.
3.
4.
set tempdate=%date:~- 10 %
date  01 - 01 - 09 

start "C:\Program Files\Mozilla Firefox\firefox.exe"
date %tempdate%
однако задача пока как изменить системную дату через vbs wsh скрипт
ПС заранее спс за линку
...
Рейтинг: 0 / 0
29.12.2010, 10:39
| Ответить | Цитировать | Написать  
Изменить дату,запустить процесс и обратно vbs wsh
    #37041133
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
> Автор: Студентикк
> однако задача пока как изменить системную дату через vbs wsh скрипт



А у нас админы вообще запретили пользователям менять системную дату. И правильно сделали

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
29.12.2010, 15:53
| Ответить | Цитировать | Написать  
Изменить дату,запустить процесс и обратно vbs wsh
    #37042693
Студентикк
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Студентикк
Гость
Была поставлена задача установить программу "чтобы работало"
Программа была написана человеком в период просветлений. В итоге программа работает только в года до 2009 включительно, уж не знаю почему так. Человек сказал что появится только после 11 числа=)
ПС пока механизма сидит на батниках
ПС 2 начальство сказало сделать именно с помощью vbs=(
...
Рейтинг: 0 / 0
30.12.2010, 15:02
| Ответить | Цитировать | Написать  
Изменить дату,запустить процесс и обратно vbs wsh
    #37042797
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
> Автор: Студентикк
> ПС 2 начальство сказало сделать именно с помощью vbs=(


Ну тады лови:
Код: plaintext
1.
2.
3.
4.
5.
6.
Option Explicit

Dim objShell
Set objShell = CreateObject("WScript.Shell")
'set date on local computer
objShell.Run ("%comspec% /c date 30-12-09")
Set objShell = Nothing

P.S. Минута поисков в инете + 5 минут на причесывание только установки даты

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
30.12.2010, 15:52
| Ответить | Цитировать | Написать  
Изменить дату,запустить процесс и обратно vbs wsh
    #37042811
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
Игорь Горбонос, у меня не изменилась дата, видимо потому, что я зашёл как юзер, а не админ??
Но в то же время и не ругается и не делает смену даты, проверку можно добавить?, как?
...
Рейтинг: 0 / 0
30.12.2010, 16:03
| Ответить | Цитировать | Написать  
Изменить дату,запустить процесс и обратно vbs wsh
    #37043757
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
Игорь Горбонос, в этом скрипте, на Ваш взгляд никаких "подводных камней" не возникнет, достаточная проверка по смене времени??

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Select Case IsUserAnAdmin() 'требуется иметь:Private Declare Function IsUserAnAdmin Lib "shell32" () As Long
Case  1 :
Dim objShell
Set objShell = CreateObject("WScript.Shell")
'set date on local computer
objShell.Run ("%comspec% /c date 30-12-09")
Set objShell = Nothing
      
Case False:
MsgBox$ "У Вас недостаточно прав для изменения системного времени"
End Select
...
Рейтинг: 0 / 0
31.12.2010, 15:12
| Ответить | Цитировать | Написать  
7 сообщений из 7, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Изменить дату,запустить процесс и обратно vbs wsh
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=37042797&tid=2159104]:
 0ms
get settings:
 14ms
get forum list:
 13ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 35ms
get topic data:
 11ms
get forum data:
 2ms
get page messages:
 56ms
get tp. blocked users:
 2ms
others: 16ms
total:  155ms
созд. / загр.: 155ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]