Модераторы: Akella, bartram

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Ищу ПО 
V
    Опции темы
mihanik
Дата 16.1.2011, 23:46 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


-=Белый Медведь=-
****


Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: нет
Всего: 109
Цитата(Akina @  14.1.2011,  08:53 Найти цитируемый пост)
Перепиши на VBS.


Вот!!!

Код

Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\.\root\cimv2")

Set colMonitoredEvents = objWMIService.ExecNotificationQuery _
    ("SELECT * FROM __InstanceCreationEvent WITHIN 10 WHERE " _
        & "Targetinstance ISA 'CIM_DirectoryContainsFile' and " _
            & "TargetInstance.GroupComponent= " _
                & "'Win32_Directory.Name=""c:\\\\scripts""'")

Set objFSO = CreateObject("Scripting.FileSystemObject")

Do
    Set objLatestEvent = colMonitoredEvents.NextEvent
        MyFile = objLatestEvent.TargetInstance.PartComponent
    Set objLatestEvent = Nothing
    
    MyFile = UCase (MyFile)
    MyFile = Replace(MyFile, "\\", "\")
    MyFile = Mid (MyFile,InStr(MyFile,"""")+1, Len(MyFile)-InStr(MyFile,"""")-1)
    
    If (InStr ( MyFile, ".PDF")) = (Len (MyFile)-3) Then     
        Set WSHShell = WScript.CreateObject("WScript.Shell") 
                WshShell.Run """C:\Program Files\Foxit Software\Foxit Reader\Foxit Reader.exe"" -p " & """" & MyFile & """", 1, True
        Set WSHShell = Nothing    
    End If
    
    Set objFSO = CreateObject("Scripting.FileSystemObject")
        objFSO.DeleteFile(MyFile)
    Set objFSO = Nothing
    
Loop




Это сообщение отредактировал(а) mihanik - 17.1.2011, 00:02


--------------------
Программистами не рождаются, - это родовая травма...
user posted imageuser posted image
PM MAIL WWW ICQ   Вверх
Akella
Дата 17.1.2011, 23:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 35
Всего: 329
Молодец, а теперь отправь этот скрипт в специальную тему с описанием smile
PM MAIL   Вверх
A5uKa
  Дата 18.1.2011, 09:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


TЋ♥s F1rȜ iƧ BurȠiƞg
***


Профиль
Группа: Awaiting Authorisation
Сообщений: 1928
Регистрация: 30.8.2008

Репутация: нет
Всего: 16
mihanik 

А можешь подсказать как посчитать кол-во PDF файлов ?

Мне просто как раз нужен подобный скрипт, что бы контроллировать кол-во pdf файлов в папке.
PM   Вверх
mihanik
Дата 18.1.2011, 11:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


-=Белый Медведь=-
****


Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: нет
Всего: 109
Цитата(Akella @  17.1.2011,  23:41 Найти цитируемый пост)
Молодец, а теперь отправь этот скрипт в специальную тему с описанием smile 


http://forum.vingrad.ru/forum/topic-320367.html

Добавлено через 46 секунд
Цитата(A5uKa @  18.1.2011,  09:14 Найти цитируемый пост)
А можешь подсказать как посчитать кол-во PDF файлов ?

Могу, но только вечером, сейчас некогда... smile



--------------------
Программистами не рождаются, - это родовая травма...
user posted imageuser posted image
PM MAIL WWW ICQ   Вверх
A5uKa
  Дата 19.1.2011, 12:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


TЋ♥s F1rȜ iƧ BurȠiƞg
***


Профиль
Группа: Awaiting Authorisation
Сообщений: 1928
Регистрация: 30.8.2008

Репутация: нет
Всего: 16
Цитата(mihanik @ 18.1.2011,  11:39)
Могу, но только вечером, сейчас некогда... smile

У меня получилось .

Код

DateFormat = Month(Date) & "/" & Day(Date) & "/" & Year(Date)
'wscript.echo DateFormat
'wscript.echo Time

Const LOCAL_TIME = True
Set dtmTargetDateLow = CreateObject("WbemScripting.SWbemDateTime")
Set dtmTargetDateHigh = CreateObject("WbemScripting.SWbemDateTime")
dtmTargetDateLow.SetVarDate DateFormat + " 00:00:00", LOCAL_TIME
dtmTargetDateHigh.SetVarDate DateFormat + " 23:59:59", LOCAL_TIME

strComputer = "nCdy"

strDrive = "d:"

strPath = "TestFolder"

strPathAlt = Replace(strPath, "\\", "\")

strName = strDrive & "\" & strPathAlt

Set objWMIService = GetObject("winmgmts:\\" & strComputer)

DO
    Set colFiles = objWMIService.ExecQuery _
        ("SELECT * FROM CIM_DataFile WHERE Drive = '" & strDrive & "' AND Path = '\\" & strPath & "\\' ")

    'and LastModified >= '" + dtmTargetDateLow + "' and LastModified <= '" + dtmTargetDateHigh + "'

    Counter = 0
    IF colFiles.Count > 3 THEN

        For Each objFile In colFiles
    
        Counter = Counter + 1
        '   wscript.echo objFile.Name
        '   wscript.echo objFile.LastModified

            IF Counter > 3 THEN
                Set objFSO = CreateObject("Scripting.FileSystemObject")
                    objFSO.DeleteFile(objFile.Name)
                Set objFSO = Nothing
            END IF

        Next
    
    END IF

LOOP


Добавлено через 1 минуту и 4 секунды
Ну там немного мусора в коде , но пусть будет.
PM   Вверх
mihanik
Дата 19.1.2011, 13:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


-=Белый Медведь=-
****


Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: нет
Всего: 109
Молодец!!!

Вот ещё посмотри...

Код

' List All the Files in a Folder

' Windows Server 2003 : Yes
' Windows XP : Yes
' Windows 2000 : Yes
' Windows NT 4.0 : Yes
' Windows 98 : Yes

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colFiles = objWMIService. _
    ExecQuery("Select * from CIM_DataFile where Path = '\\Scripts\\'")

For Each objFile in colFiles
    Wscript.Echo objFile.Name 
Next



--------------------
Программистами не рождаются, - это родовая травма...
user posted imageuser posted image
PM MAIL WWW ICQ   Вверх
Akella
Дата 19.1.2011, 17:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 35
Всего: 329
Цитата(mihanik @  18.1.2011,  11:39 Найти цитируемый пост)
Молодец, а теперь отправь этот скрипт в специальную тему с описанием smile 


http://forum.vingrad.ru/forum/topic-320367.html


я почему-то подумал, что твой скрипт из этой области: http://forum.vingrad.ru/forum/topic-154708.html
PM MAIL   Вверх
mihanik
Дата 19.1.2011, 21:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


-=Белый Медведь=-
****


Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: нет
Всего: 109
Цитата(Akella @  19.1.2011,  17:49 Найти цитируемый пост)
я почему-то подумал, что твой скрипт из этой области: http://forum.vingrad.ru/forum/topic-154708.html 


Сам в шоке.
 smile 


--------------------
Программистами не рождаются, - это родовая травма...
user posted imageuser posted image
PM MAIL WWW ICQ   Вверх
Akina
Дата 19.1.2011, 21:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 13
Всего: 454
A5uKa, а нафига ты создаёшь новый инстанс objFSO на каждом обороте цикла, и тут же его дропаешь?


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
A5uKa
  Дата 20.1.2011, 09:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


TЋ♥s F1rȜ iƧ BurȠiƞg
***


Профиль
Группа: Awaiting Authorisation
Сообщений: 1928
Регистрация: 30.8.2008

Репутация: нет
Всего: 16
Цитата(Akina @ 19.1.2011,  21:39)
A5uKa, а нафига ты создаёшь новый инстанс objFSO на каждом обороте цикла, и тут же его дропаешь?

ну могу вынести за цикл )
PM   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Программное обеспечение"
Deface
Akella

Запрещается!

1. Обсуждение крэков, кейгенов и других подобных программ

Пробуйте искать сами или обращайтесь в приват к участникам форума.

Темы с подобными вещами будут немедленно удаляться, а нарушители - получать предупреждения.

Также запрещается обсуждение проблем работы этих программ (что куда вписать, куда что скопировать и т.п...)

2. Давать ссылки на взломанные продукты

  • Пожалуйста, пользуйтесь поиском перед тем, как задать вопрос - возможно ответ уже есть на форуме.
  • Название темы должно отражать её суть
  • Действия модераторов можно обсудить здесь

С уважением, Akella, bartram.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Программное обеспечение | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.1076 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.