Полезные скрипты , WSH (js, vbs) + WMI

Цитата

"Прописывает" - это значит создаёт новую?

скорее всего заменяет ту которая есть....
strDomainName = "Domain_name" - это можно удалить?
Set objComputer = GetObject("WinNT://" & strCompName) - а это будет так?

Сообщение отредактировано: mr.Neo - 17.05.07, 18:54

Цитата mr.Neo @ 17.05.07, 18:54

скорее всего заменяет ту которая есть....

Это как?

Цитата mr.Neo @ 17.05.07, 18:54

strDomainName = "Domain_name" - это можно удалить?

Можно.

Цитата mr.Neo @ 17.05.07, 18:54

Set objComputer = GetObject("WinNT://" & strCompName) - а это будет так?

Так.

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

Цитата GREY17 @ 18.06.07, 16:31

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

А ДФС и система репликаций - не судьба? или просто не те масштабы?

Я не воткну как сделать так чтоб при появлении новых файлов в папке, они сразу копировались в другую.

Добавлено 18.06.07, 17:36
ВСЕ ура допер. Только вот еще одна проблема: Как сделать чтобы при появлении файлов в папке (только скопировались в нее), у нее открувался общий доступ?

Добавлено 18.06.07, 17:42
Балин, не допер . Не пойму как это сделать, как заставить их копироваться, как только они добавились?

Добавлено 18.06.07, 17:44
2 проблемы, а решил только 0.5 из них . Тупею с годами наверное.

Добавлено 18.06.07, 17:51
HELP ME PLEASE! Кто нибудь

GREY17, объяснишь идею, ответишь на предыдущий вопрос, поможем

Цитата GREY17 @ 18.06.07, 16:31

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

Так, например:

Dim strFile, strTemp
Dim x, y
Dim objWMI, objEventsCollection, objEvent, objFS
Const strSourceDirWMI = "C:\\\\Source"
Const strSourceDir = "C:\Source\"
Const strTargetDir = "C:\Target\"
'On Error Resume Next
Set objFS = CreateObject("Scripting.FileSystemObject")
If objFS.FolderExists(strSourceDir) And objFS.FolderExists(strTargetDir) Then
    Set objWMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
    Set objEventsCollection = objWMI.ExecNotificationQuery _
        ("SELECT * FROM __InstanceCreationEvent WITHIN 1 WHERE " _
        & "Targetinstance ISA 'CIM_DirectoryContainsFile' and " _
        & "TargetInstance.GroupComponent= " _
        & "'Win32_Directory.Name=""" & strSourceDirWMI & """'")
    Do
        Set objEvent = objEventsCollection.NextEvent
        strTemp = objEvent.TargetInstance.PartComponent
        x = InStrRev(strTemp, "\")
        y = Len(Mid(strTemp, x + 1)) - 1
        strFile = Mid(strTemp, x + 1, y)
        objFS.CopyFile strSourceDir & strFile, strTargetDir, True
        'objFS.DeleteFile strSourceDir & strFile, True
    Loop
End If

Сообщение отредактировано: Dmitrii - 19.06.07, 10:31

Вот здесь еще http://forum.wincmd.ru/viewtopic.php?t=971&postdays=0&postorder=asc&start=15
гляньте посты от "Бати", "резидентный" скриптик который переименовывает файлы.

Все. Классно. И пришло счастье. Огромное спасибо.

Цитата AlexLine @ 18.06.07, 16:55

А ДФС и система репликаций - не судьба? или просто не те масштабы?

Масштабы то наверное и те, но увы, изобразить у меня этого не получается, точнее получилось но немного не то, не одуплюсь как автопереименовывание файлов делать. Блин, обидно: потребности то растут, а удовлетворить то их не получается.

Добавлено 20.06.07, 15:41
Народы, а никто не знает как изваять скрипт, который бы открывал общий доступ к папке. (Нужно для сетки).

Сообщение отредактировано: GREY17 - 20.06.07, 15:43

Вот я что то и изваял. Посмотрите, правильно ли это?

Dim Mysleep
 
Mysleep = 10000
 
Const FILE_SHARE = 0
Const MAXIMUM_CONNECTIONS = 5
strComputer = "."
 
 
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set objNewShare = objWMIService.Get("Win32_Share")
 
 
 
Do
errReturn = objNewShare.Create _
("C:\FSO", "FSO", FILE_SHARE, _
MAXIMUM_CONNECTIONS)
 
 
Wscript.Sleep Mysleep
Loop
 
WScript.Quit

Сообщение отредактировано: GREY17 - 21.06.07, 20:06

Народ, кто знает как написать скрипт входа который менял бы разрешение экрана?

Возникла необходимость проверять запущен ли Norton Antivirus на ПК.
С NAV до 2007 проблем не возникает - проверяется процесс и запись в реестре на дату обновления антивирусной базы.
В 2007 подобное не получается. Список процессов не меняется вне зависимости от того активен ли "Auto protect" или выключен.
Так же в реестре отсутвует запись об обновлении.
При попытке обратиться в Symantec был получен ответ :

"Hear is the information the engineer has given me to give to you and it should resolve the issue. I have asked for the engineer to call you or contact you and all I can get is the following.

From what I read about this defect, the intent is to find out if NAV 2007 is installed on the machine and whether AP is enabled or not. In 2007 all this information should be available through the WMI/WSC. We do not publish any interfaces to query whether we are installed or what the status is for the various features.

You can also check the InstalledApps key in the registry to determine if NAV 2007 is installed. The status of AP can be queried from WMI/WSC."

К сожалению с WMI/WSC я ни разу не работал. Попробовал разобраться - выложенный здесь ListProcesses.vbs разницы между активным и дезактивированным "Auto protect" не различается.
Как мне кажется - должен быть провайдер для NAV созданный самим NAV при устанвке? К сожалению его я обнаружить не смог. Возможно я ошибаюсь.

Буду благодарен как за пример работы с NAV через VMI , так и за направление на пиоск решения данной проблеммы.

По поводу наличия провайдера WMI в антивирусах - это надо связываться с разработчиками.
А по поводу определения запущен ли антивирус - самый простой способ пытаться удалить(сделав предварительно копию)
ЕХЕ-шку антивиря. Если удаляется значит не запущен (в юзер моде в любом случае будет отказ на удаление, но в юзер моде и запрет на остановку АВ тоже имеется)

2 Profi: Спасибо за ответ.
Те получить просто имя провайдера (например в программе WMI CIM Studio или в чем то подобном) невозможно?

К сожалению совет по поводу простого способа не подходит, предполагается использовать проверку на ПК выполняющих вход в домен и соответсвенно дюбые действия которые _могут_ нанести вред или что либо изменить в ПК пользователя просто не допустимы
К тому же судя по предъидущим версиям NAV - "Auto protect" при запрещении его пользователем просто переходит из состояния Started в состояние Paused. И соотвественно раз процесс запущен то попытка удаления будет безуспешной, несмотря на то что безопасность ПК будет неудовлетворять требованиям входа в домен.