Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Закладки » Программирование "удобняшек" на VBScript

Модерирует : ShIvADeSt

ShIvADeSt (12-07-2011 15:12): http://forum.ru-board.com/topic.cgi?forum=33&topic=11963#1  Версия для печати • ПодписатьсяДобавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112

   

AntoshAReal



Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Премного благодарен, только проверить смогу во вторник

Всего записей: 305 | Зарегистр. 31-08-2005 | Отправлено: 20:02 08-05-2009
probvs

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Доброго времени суток!
 
есть cmdшник вот такого содержания:
 
@echo off
start /wait 1cv7s.exe [some param]
start taskkill /f /im userinit.exe /t
cls
exit  
 
Который прописан "средой" у пользователей терминального сервера, он работает все отлично но есть одно но, при входе в терминальную сессию окно cmd появляется на весь экран.
 
Можно ли можно ли это сделать при помощи скрипта, если да, как?

Всего записей: 71 | Зарегистр. 05-07-2007 | Отправлено: 14:24 15-05-2009
Maza_Faka



Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
probvs
Попробуйте так:

Код:
 
Set objWshShell = WScript.CreateObject("WScript.Shell")
objWshShell.Run "1cv7s.exe -some -params", 1, True
objWshShell.Run "taskkill.exe /f /im userinit.exe /t", 0, True
 

Всего записей: 1420 | Зарегистр. 25-10-2006 | Отправлено: 14:47 15-05-2009
ViSiToR



Silver Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
probvs 14:24 15-05-2009
Цитата:
можно ли это сделать при помощи скрипта

 

Код:
Set WshShell = WScript.CreateObject("WScript.Shell")
 
WshShell.Run "1cv7s.exe [some param]", 0, True
WshShell.Run "taskkill /f /im userinit.exe /t", 0, True


----------
ViSiToR a.k.a CreatoR
CreatoR это не ник, CreatoR это стиль жизни!

Всего записей: 3251 | Зарегистр. 01-04-2006 | Отправлено: 14:47 15-05-2009
probvs

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
спасибо
 
Добавлено:
хм...
Ошибка (193) при создании пользовательского входа в систему.
Не удается запустить следующую начальную программу c:\1c.vbs
 
 
 
 
Добавлено:
или может кто знает как запустить cmd сразу минимизированным?

Всего записей: 71 | Зарегистр. 05-07-2007 | Отправлено: 15:02 15-05-2009
mihmig

Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
probvs
в качестве стартовой программы указывайте на file.cmd, а строку типа:
C:\windows\system32\wscript.exe /ключи C:\1с.vbs
где 1с.vbs - указан выше.

Всего записей: 276 | Зарегистр. 25-09-2007 | Отправлено: 22:52 15-05-2009
Bozo



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Помогите найти пару скриптов. Наверняка такие или подобные уже кем-то написаны. Приходится часто переключать разрешение экрана, хотелось бы повесить это на кнопку, bat- или cmd или wsh файл. Если разрешение 1600х1200х85Гц, то переключить в 1280х960х85Гц, и наоборот
И второй скрипт, переключение в Windows 7 между "Balanced" power Plan и "UserDefined" Power Plan, а то каждый вечер лазить в котрольную панель чтобы перечключиться на "ночной" режим, утомило уже.

Всего записей: 2707 | Зарегистр. 27-06-2001 | Отправлено: 17:14 16-05-2009
mozers



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Bozo

Код:
nircmd.exe cmdshortcut "~$folder.desktop$" "1600х1200х85Гц" setdisplay 1600 1200 85
Для второго скрипта надо отследить какие ключи в реестре изменяются при таком переключении...

Всего записей: 2187 | Зарегистр. 03-01-2002 | Отправлено: 23:36 16-05-2009
mihmig

Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Цитата:
переключение в Windows 7 между "Balanced" power Plan и "UserDefined"

встроенная команда powercfg

Всего записей: 276 | Зарегистр. 25-09-2007 | Отправлено: 18:30 18-05-2009
kapriz1996



Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Помогите, скриптологи!
Скриптом надо взять имя залогиневшегося пользователя с удаленного ПК. Использую стандартный скрипт:
strComputer  = InputBox("Computer Name?")
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")  
 
Set colComputer = objWMIService.ExecQuery _
    ("Select * from Win32_ComputerSystem")
 
For Each objComputer in colComputer
    Wscript.Echo "Logged-on user: " & objComputer.UserName
Next
 
Все пользователи в домене работают под учеткой обычного юзера. Теперь вопрос:
С системы на XP имя берется на ура. С системы на w2k sp4 возвращает пустой результат,но если на ней залогиниться под админской учеткой, то все нормально.  
Что-то с правами?
Излечимо ли такое?

Всего записей: 4 | Зарегистр. 17-07-2006 | Отправлено: 09:55 20-05-2009
megamozg13



Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
kapriz1996
а не проще ли взять из переменных окружения?
 

Цитата:
 
Shell=WScript.CreateObject("WScript.Shell"); user=Shell.ExpandEnvironmentStrings("%USERNAME%");  
 


Всего записей: 313 | Зарегистр. 27-07-2004 | Отправлено: 09:58 20-05-2009
kapriz1996



Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Прошу пардону, но я еще в скриптах чайник. Куда мне эти строки прописать в приведеном скрипте?

Всего записей: 4 | Зарегистр. 17-07-2006 | Отправлено: 14:34 20-05-2009
alexmdotru

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Есть скрипт, который выдает список пользователей из локальной группы. Например:
19.5.2009;12:16:58;TS2;Administrators;Administrator
19.5.2009;12:16:58;TS2;Administrators;Domain Admins
 
Не могу найти у Domain Admins, свойство где было бы указано, что это Доменная группа.

Всего записей: 1 | Зарегистр. 20-05-2009 | Отправлено: 16:29 20-05-2009
vworld



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
подскажите как правильно запускать программу?
порядок запуска вот такой C:\Users\one\Documents\WikiTaxi\WikiTaxi.exe C:\Users\one\Documents\WikiTaxi\ruwiki\ru.taxi
я просто создал файл *.cmd с этим содержимым - запускается все нормально, НО еще и консоль висит фоном

Всего записей: 2617 | Зарегистр. 13-02-2003 | Отправлено: 17:37 20-05-2009
alur2005



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Помогите со скриптом , есть скрипт который удаляет файлы старше 7 дней, что в него еще  
нужно дописать , что бы файлы созданные именно 1 , 8 , 15 , 22 , 29 чисел не удалялись,
а оставались в этой папке.
 

Цитата:
 
 
Dim FSO, WSH
Dim TheFolder, TheFiles, AFile
Set WSH = CreateObject("WScript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")
Set TheFolder = FSO.GetFolder("C:\BACKUP\") 'Каталог, откуда удалять
Set TheFiles = TheFolder.Files
For Each AFile In TheFiles
    If UCase(FSO.GetExtensionName(AFile.Path)) = "DAT" and _
        FormatDateTime(AFile.DateLastModified, 2) < FormatDateTime(Date - 7, 2) Then
        AFile.Delete
    End If
Next  
 
 


Всего записей: 824 | Зарегистр. 06-09-2005 | Отправлено: 19:24 20-05-2009 | Исправлено: alur2005, 19:52 20-05-2009
mihmig

Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
vworld
например так:
Set Shell=CreateObject("Wscript.Shell")
Call Shell.Run("C:\master\TC\TOTALCMD.EXE",1,False)
где 1- показать окно (в том случае если это консольный файл)
False - Не ждать завершения работы программы
 
And (Day(AFile.DateLastModified)<>1) _
And (Day(AFile.DateLastModified)<>8) _
и т.п.

Всего записей: 276 | Зарегистр. 25-09-2007 | Отправлено: 20:13 20-05-2009
Rush

Уже за тридцать...
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
alur2005

Цитата:
есть скрипт который удаляет файлы старше 7 дней

Тут у тебя есть два момента:  
1) Скрипт твой удаляет файлы старше 30 дней
Код:
FormatDateTime(Date - 30, 2)
2) Он удаляет файлы измененные старше 30 дней назад
Код:
FormatDateTime(AFile.DateLastModified, 2)

Но если это тебя не смущает, то вот тебе скрипт, где не удаляются файлы нужных тебе чисел:

Код:
Dim FSO, WSH  
Dim TheFolder, TheFiles, AFile  
Set WSH = CreateObject("WScript.Shell")  
Set FSO = CreateObject("Scripting.FileSystemObject")  
Set TheFolder = FSO.GetFolder("C:\BACKUP\") 'Каталог, откуда удалять  
Set TheFiles = TheFolder.Files  
For Each AFile In TheFiles  
    If UCase(FSO.GetExtensionName(AFile.Path)) = "DAT" and _  
        FormatDateTime(AFile.DateLastModified, 2) < FormatDateTime(Date - 30, 2) Then
           select case day(FormatDateTime(AFile.DateLastModified, 2))
              case 1, 8, 15, 22, 29
              case else AFile.Delete
           end select          
    End If  
Next
 

Всего записей: 3551 | Зарегистр. 20-11-2003 | Отправлено: 20:37 20-05-2009
alur2005



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Rush
 
Спасибо , щас попробую  
 
 

Цитата:
Он удаляет файлы измененные старше 30 дней назад

 
а если нужно не измененные , а созданные или скопированные ?  
 
просто в папку создается бекап и нужно чтобы одни файлы оставались , а другие удалялись
 
а что нужно поменять тут ?  
Цитата:
FormatDateTime(AFile.DateLastModified, 2)  

 
 

Всего записей: 824 | Зарегистр. 06-09-2005 | Отправлено: 20:50 20-05-2009 | Исправлено: alur2005, 21:12 20-05-2009
Rush

Уже за тридцать...
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
alur2005

Цитата:
а если нужно не измененные , а созданные или скопированные ?  

AFile.DateCreated

Всего записей: 3551 | Зарегистр. 20-11-2003 | Отправлено: 21:32 20-05-2009
alur2005



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Rush
 
спасибо.

Всего записей: 824 | Зарегистр. 06-09-2005 | Отправлено: 21:41 20-05-2009
   

Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Закладки » Программирование "удобняшек" на VBScript
ShIvADeSt (12-07-2011 15:12): http://forum.ru-board.com/topic.cgi?forum=33&topic=11963#1


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru