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

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в 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

   

Maza_Faka



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

Цитата:
Если есть более простые оффтоповые решения

Использовать другой плеер, скажем KMPlayer, который перекрывает все другие окна

Всего записей: 1420 | Зарегистр. 25-10-2006 | Отправлено: 10:10 04-03-2009
Sheff_aka_mario

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Есть скрип создающий на сервере папку по имени пользователя и мапящий диск ему на эту папку при этом проверяет есть ли уже такя папка. вот  
' ------ SCRIPT CONFIGURATION ------
Set WshShell = Wscript.CreateObject("Wscript.Shell")
Set objNetwork = CreateObject("Wscript.Network")
Set objFS = CreateObject("Scripting.FileSystemObject")
Set objWSH = CreateObject("WScript.Shell")
Set objShell = CreateObject("Shell.Application")
objUserName = objNetwork.UserName
strDrive = "Z:"
strNewDiskName = "Личная папка "&objUserName
strPath = "\\Server\student\"&objUserName
boolPersistent = True
 
' ------ END CONFIGURATION ---------
On Error Resume Next
 
if (objFS.FolderExists(strPath)) = false then  
 
Call objFS.CreateFolder(strPath)
 
strACLCommand = "cmd /c echo y| CACLS "
strACLCommand = strACLCommand & strPath
strACLCommand = strACLCommand & " /g DOMAIN\" & objUserName & ":F"
return = objWSH.Run (strACLCommand , 0, True)
 
 
Call WshShell.Run("cacls " & strPath & _
" /e /g DOMAIN\" & "admin" & ":f", HIDE_WINDOW, WAIT_ON_RETURN)
 
Call WshShell.Run("cacls " & strPath & _
" /e /g DOMAIN\" & "fulladmin" & ":f", HIDE_WINDOW, WAIT_ON_RETURN)
end if
 
objNetwork.MapNetworkDrive strDrive, strPath, boolPersistent
objShell.NameSpace(strDrive).Self.Name = strNewDiskName
 
Как сделать чтобы этот скрип мапил 2 диска(второй просто на уже созданную папку например \\Server\quest ) нужно все в одном скрипте бы... не хочется разводить огород скриптов

Всего записей: 3 | Зарегистр. 21-09-2007 | Отправлено: 13:04 04-03-2009
alroy

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Sheff_aka_mario
Ну если как ты говоришь скрипт правильный то ничего сложного в этом нет прост надо сделать функцию и как параметры передать вот эти значения:  
 

Цитата:
 
 
strDrive = "Z:"
strNewDiskName = "Личная папка "&objUserName
strPath = "\\Server\student\"&objUserName
 
 

 
те что в кавычках  
 
ну а потом можно сколько угодно подключать дисков

Всего записей: 59 | Зарегистр. 15-06-2005 | Отправлено: 14:10 04-03-2009
Sheff_aka_mario

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
то что нужно задействовать те значения я понял... сложность состоит именно в том чтобы создать ету функцию..ибо програмер из меня ужасный Если не сложно пример бы конкретный....

Всего записей: 3 | Зарегистр. 21-09-2007 | Отправлено: 15:40 04-03-2009
alroy

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

Код:
Function  file_exists (PyTb,File)
    Set FSO = CreateObject("Scripting.FileSystemObject")
      file_exists =  FSO.FileExists(PyTb&File)
End Function

 

Всего записей: 59 | Зарегистр. 15-06-2005 | Отправлено: 16:11 04-03-2009
Sheff_aka_mario

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Ну дерево я в программирвании ((  
 как  это
strDrive = "Z:"  
strNewDiskName = "Личная папка "&objUserName  
strPath = "\\Server\student\"&objUserName  
   
переделать в функцию... вижу же что не сложно вам... а мне лопатить тучу книг... платили бы мне еще за это ((а то навалили кучу новых обязанностей в целях экономии.. начальство млин...
 

Всего записей: 3 | Зарегистр. 21-09-2007 | Отправлено: 17:12 04-03-2009 | Исправлено: Sheff_aka_mario, 17:48 04-03-2009
mihmig

Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Я делаю так:
в uTorrent включаю WebUi и делаю ярлычки на wget:
wget "http://admin:admin@192.168.0.222:600/gui/?action=setsetting&s=max_dl_rate&v=15&t=2223811535641" -O i.htm

 
еще почитай:
http://torrents.ru/forum/viewtopic.php?t=1099690

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



Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Maza_Faka
Спасибо! В принципе ничего, но всё равно при запуске задания панель задач вылазит и висит, пока не ткнешь в середину экрана. Непоняно, почему ключ /MINIMIZE у uTorrent не пашет..

Всего записей: 214 | Зарегистр. 31-05-2002 | Отправлено: 03:49 06-03-2009
Maza_Faka



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

Цитата:
но всё равно при запуске задания панель задач вылазит и висит

Можно сунуть в автозагрузку батник с таким содержимым:

Код:
 
@Echo Off
 
Tasklist | Find "wmplayer.exe">Nul && GoTo :EOF
Start "" "%PROGRAMFILES%\UTorrent\Utorrent.exe" /MINIMIZED
 

То есть если существует процесс wmplayer.exe, то uTorrent запускаться не будет.

Всего записей: 1420 | Зарегистр. 25-10-2006 | Отправлено: 07:40 06-03-2009
sLap



Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Maza_Faka
Спасибо! В принципе неплохо.. вот еще бы можно было бы определять процент загрузки ЦП, а то плеер может и висит, но кино уже кончилось и у компа никого нет..

Всего записей: 214 | Зарегистр. 31-05-2002 | Отправлено: 08:47 07-03-2009 | Исправлено: sLap, 09:01 07-03-2009
litestayer

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Помогите плиз с vbs.
Ежедневно формируется html-документ.
Необходимо с помощью скрипта:
1.пронумеровать страницы;
2.установить формат листа "альбомный";
3.установить поля (верхнее 2см, остальные 1см);
4.распечатать нечетные листы, затем четные листы.
 
Все что пока смог накалякать:
-----------------------
Dim wdApp, wdDoc
    Set wdApp = CreateObject("Word.Application")  
    Set wdDoc = wdApp.Documents.Open("c:\vedom.htm")
    wdApp.Visible = True
-----------------------
Дальше пока не получается

Всего записей: 2 | Зарегистр. 04-03-2009 | Отправлено: 16:05 11-03-2009
alxkk

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Хочу в  IE убрать галку "Автоматическое определение параметров" скриптом
 
Сервис->Свойства обозревателя->Подключения->Настройка-> Автоматическое определение параметров
 
Где это значение в реестре(не нашел)?
Или как на vbs это можно сделать??

Всего записей: 27 | Зарегистр. 19-11-2004 | Отправлено: 16:01 18-03-2009
VAKULENKOOLEG



Newbie
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
нужен скрипт который смотрит группу Администраторы и записует всех его членов в файл. Очень нужно кто может помогите.

Всего записей: 10 | Зарегистр. 15-08-2007 | Отправлено: 17:38 20-03-2009
jONES1979



Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
litestayer в ворде есть "запись макросов", даст тебе почти что весь нужный код.
 
vba от vbs для данного случая будет отличаться лишь следующим:  
 
1. в vbs все переменные типа variant , то есть их тип указывать не надо
2. Придется описать все константы, которые будут использоваться в автогенериуемом коде

Всего записей: 324 | Зарегистр. 20-05-2005 | Отправлено: 14:33 22-03-2009
alexander6161



BANNED
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Подскажите, как можно изменить дату создания папки на текущую? Папка имеет внушительный размер и содержит много папок и файлов, поэтому с помощью создания новой папки и копированием в неё не получится.

Всего записей: 185 | Зарегистр. 17-08-2008 | Отправлено: 19:05 23-03-2009 | Исправлено: alexander6161, 19:26 23-03-2009
TYMAH3003

Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Можно ли в VBS прописать код на открытие папки в винде,,,,.скажем на рабочем столе лежит вбс запускаем его и нам открывается к примеру папка на диске д:\муз\,,,,вот такое вот скриптик знает кто??? ну очень нужен .,,,,,хочу использовать в комбинации с создаением папки и затем открытие её ,,нужная вещ

Код:
Dim fso, Text, FolderName, FileName 'переменные  
'создаем объект FileSystemObject в переменную fso  
Set fso = CreateObject("Scripting.FileSystemObject")  
FolderName = InputBox("Имя папки?") 'спросим имя папки  
FileName = InputBox("Имя файла для создания?") 'спросим имя файла  
Set Fldr = fso.CreateFolder ("D:\" & FolderName) 'создадим папку  
MsgBox "Создана папка: " & FolderName 'сообщим пользователю  
Set Text = fso.CreateTextFile ("D:\" & FolderName & "\" & FileName) 'создадим файл
 вот это создаёт папку с запросом имени ,,.и мне нужно дальше просто её открытие в окне винды

Всего записей: 241 | Зарегистр. 15-03-2009 | Отправлено: 19:35 23-03-2009
Rush

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

Код:
 
folder = "c:\"
set shapp = createobject("shell.application")
shapp.open(folder)
' или
shapp.explore(folder)

Методы открывают немного по разному.

Всего записей: 3551 | Зарегистр. 20-11-2003 | Отправлено: 01:09 24-03-2009
Rush

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

Цитата:
Подскажите, как можно изменить дату создания папки на текущую? Папка имеет внушительный размер и содержит много папок и файлов, поэтому с помощью создания новой папки и копированием в неё не получится.

Можно перемещением. Размер папки роли не играет.  

Код:
updDir = "c:\transfers"
tmpDir = updDir & "_temp"
set fso = createobject("scripting.filesystemobject")
with fso
   .movefolder updDir, tmpDir
   .createfolder updDir
   .movefolder tmpDir & "\*", updDir
   .movefile tmpDir & "\*", updDir
   if .getfolder(tmpDir).size = 0 then .deletefolder tmpDir
end with

Всего записей: 3551 | Зарегистр. 20-11-2003 | Отправлено: 17:28 24-03-2009 | Исправлено: Rush, 17:42 24-03-2009
TYMAH3003

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

Всего записей: 241 | Зарегистр. 15-03-2009 | Отправлено: 22:44 24-03-2009
TYMAH3003

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

Цитата:
folder = "c:\"  
set shapp = createobject("shell.application")  
shapp.open(folder)  
' или  
shapp.explore(folder)

 
А можно прописать имя каталога так,,, что где лежит сам скрипт та папка и открывалать ,то есть не "С:\" где он сам лежит , с д е,,, в корне лежит vbs этот корневой диск и открывался нужно что -то поменять тут наверно folder = "c:\"  а вот что??  

Всего записей: 241 | Зарегистр. 15-03-2009 | Отправлено: 20:01 26-03-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