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

X11, замените выражение objectClass=Computer на выражение objectCategory=Computer. В этом случае поиск будет выполняться раза в два быстрее (исходный пример я уже исправил).

Сообщение отредактировано: Dmitrii - 10.04.07, 03:13

Цитата Dmitrii @ 10.04.07, 03:10

X11, замените выражение objectClass=Computer на выражение objectCategory=Computer. В этом случае поиск будет выполняться раза в два быстрее (исходный пример я уже исправил).

Конструктивное замечание! ЭтаПлюс

Need
Не у кого нету скрпита, который бы скрывал\показывал указанный раздел?
То есть один скрипт должен выставлять у раздела фланг hidden, а второй должен снимать флаг и устанавливать разделу букву.

а как сделать скрипт для копирования файлов, что то типа обновления

Сам сделал, если кому интересно то выглядит так

Set fso = CreateObject("Scripting.FileSystemObject")
 
If fso.FolderExists("C:\Program Files\grigor\GSK ToolBox") Then
  fso.CopyFile "p:\GSK\GSK ToolBox\GSK ToolBox.exe", "C:\Program Files\grigor\GSK ToolBox\GSK ToolBox.exe"
Else
  fso.CreateFolder "C:\Program Files\grigor\GSK ToolBox"
  fso.CopyFile "p:\GSK\GSK ToolBox\GSK ToolBox.exe", "C:\Program Files\grigor\GSK ToolBox\GSK ToolBox.exe"
End If
 
If fso.FolderExists("C:\Program Files\grigor\GSK ToolBox") Then
  fso.CopyFile "p:\GSK\GSK ToolBox\SwToo.mdb", "C:\Program Files\grigor\GSK ToolBox\SwToo.mdb"
Else
  fso.CreateFolder "C:\Program Files\grigor\GSK ToolBox"
  fso.CopyFile "p:\GSK\GSK ToolBox\SwToo.mdb", "C:\Program Files\grigor\GSK ToolBox\SwToo.mdb"
End If

Pit-Bul, если Вы захотите наблюдать за ходом копирования с помощью стандартного "прогресс"-индикатора, то обратите внимание на сценарий CopyFolder_with_Progress.vbs, который опубликован в сообщении #14.

Цитата

Полтонны примеров использования всей мощи WMI. Автор: SCINER

скачать

Думаю, лучше дать ссылку сразу на первоисточник, хотя бы уже потому, что современная редакция значительно богаче предложенной.
http://www.microsoft.com/downloads/details...DA-B8814FE2DA5A

Цитата ANDLL @ 11.04.07, 08:24

Не у кого нету скрпита, который бы скрывал\показывал указанный раздел?
То есть один скрипт должен выставлять у раздела фланг hidden, а второй должен снимать флаг и устанавливать разделу букву.

А если просто монтировать раздел?
Сделай .cmd на основе команды mountvol. Правда UID разделов будут разные на разных виндах одного компа и после переустановки оных.

Цитата Juretђ @ 13.04.07, 06:07

А если просто монтировать раздел?

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

Dmitrii, супер, весьма благодарен

Сообщение отредактировано: X11 - 19.04.07, 09:15

Цитата Dmitrii @ 11.04.07, 12:55

Pit-Bul, если Вы захотите наблюдать за ходом копирования с помощью стандартного "прогресс"-индикатора, то обратите внимание на сценарий CopyFolder_with_Progress.vbs, который опубликован в сообщении #14.

я туда смотрел, но так и не понял как связать PARAM_DIALOG с копированием файлов

Цитата Pit-Bul @ 19.04.07, 12:24

... но так и не понял как связать PARAM_DIALOG с копированием файлов

Константа PARAM_DIALOG отвечает за настройку режима отображения окна с индикатором.
Чтобы копировать не каталог, а файл надо изменить значение константы sourceDirSpec, например:

Const sourceDirSpec = "C:\1.CAB"

Примечания.
1. Если копируемый файл имеет небольшой размер (с точки зрения производительности компьютера), то ОС просто не успеет отобразить окно с индикатором. Именно поэтому я предложил использовать индикацию при копировании каталога, а не файла, т.к. размеры каталогов обычно достаточно велики.
2. Что касается значений константы PARAM_DIALOG, то вот выдержка из MSDN:

Optional. Specifies options for the copy operation. This value can be zero or a combination
of the following values. These values are based upon flags defined for use with the fFlags member
of the C++ SHFILEOPSTRUCT structure. These flags are not defined as such for Microsoft Visual Basic,
Visual Basic Scripting Edition (VBScript), or Microsoft JScript, so you must define them yourself
or use their numeric equivalents.
4 - Do not display a progress dialog box.  
8 - Give the file being operated on a new name in a move, copy, or rename operation
if a file with the target name already exists.  
16 - Respond with "Yes to All" for any dialog box that is displayed.  
64 - Preserve undo information, if possible.
128 - Perform the operation on files only if a wildcard file name (*.*) is specified.  
256 - Display a progress dialog box but do not show the file names.  
512 - Do not confirm the creation of a new directory if the operation requires one to be created.  
1024 - Do not display a user interface if an error occurs.  
2048 - Version 4.71. Do not copy the security attributes of the file.
4096 - Only operate in the local directory. Don't operate recursively into subdirectories.
9182 - Version 5.0. Do not copy connected files as a group. Only copy the specified files.

Если никакие особые настройки не нужны, то этот параметр можно просто опустить.

Сообщение отредактировано: Dmitrii - 20.04.07, 05:05

случайно нет скриптика который прописывает рабочую группу на локальном компе?

Сообщение отредактировано: mr.Neo - 11.05.07, 19:05

Цитата mr.Neo @ 11.05.07, 19:03

скриптика который прописывает рабочую группу на локальном компе?

"Прописывает" - это значит создаёт новую?
Если так, то вот пример:

strGroupName = "New_group"
strCompName = "WS_name"
strDomainName = "Domain_name"
Set objComputer = GetObject("WinNT://" & strDomainName & "/" & strCompName)
Set objGroup = objComputer.Create("group", strGroupName)
objGroup.SetInfo
Set objGroup = Nothing
Set objComputer = Nothing

1. Вместо New_group, WS_name, Domain_name подставьте реальные значения.
2. Если домена нет, то соответствующим образом упростите строку Set objComputer = ...

Сообщение отредактировано: Dmitrii - 14.05.07, 04:34