Портал L-¤-D™: Форумы / Системные / Скрипты для администрирования в WIndows

Портал L-¤-D™ :: Форумы :: Скрипты :: Системные		<< Предыдущая тема \| Следующая тема >>
Скрипты для администрирования в WIndows


Модераторы: L-¤-D™

Автор

Добавил

L-¤-D™

10.02.2007 — 23:59:30

ID пользователя #1

Зарегистрирован: 26.11.2006 — 00:41:08

Сообщений: 167

Предлагаю в этой теме обмен, публикацию и обсуждение административных скриптов

Наверх

L-¤-D™

11.02.2007 — 00:03:12

ID пользователя #1

Зарегистрирован: 26.11.2006 — 00:41:08

Сообщений: 167

Код:

' Где файлы килять будем? 
path = "D:\Back-Up" 
' Когда было последняя модификация файла? 
killdate = date() - 7 
 
arFiles = Array() 
set fso = createobject("scripting.filesystemobject") 
 
SelectFiles path, killdate, arFiles, true 
 
nDeleted = 0 
for n = 0 to ubound(arFiles) 
  on error resume next 
  arFiles(n).delete true 
  if err.number <> 0 then 
    wscript.echo "Unable to delete: " & arFiles(n).path 
  else 
    nDeleted = nDeleted + 1 
  end if 
  on error goto 0 
next 
 
msgbox nDeleted & " of " & ubound(arFiles)+1 _ 
  & " eligible files were deleted" 
 
 
sub SelectFiles(sPath,vKillDate,arFilesToKill,bIncludeSubFolders) 
  on error resume next 
  set folder = fso.getfolder(sPath) 
  set files = folder.files 
 
  for each file in files 
    dtlastmodified = null 
    on error resume Next 
    dtlastmodified = file.datelastmodified 
    on error goto 0 
    if not isnull(dtlastmodified) Then 
      if dtlastmodified < vKillDate then 
        count = ubound(arFilesToKill) + 1 
        redim preserve arFilesToKill(count) 
        set arFilesToKill(count) = file 
      end if 
    end if 
  next 
 
  if bIncludeSubFolders then 
    for each fldr in folder.subfolders 
      SelectFiles fldr.path,vKillDate,arFilesToKill,true 
    next 
  end if 
end sub

Наверх

L-¤-D™

23.02.2007 — 19:53:23

ID пользователя #1

Зарегистрирован: 26.11.2006 — 00:41:08

Сообщений: 167

Выключение удаленной машины (по сети) от доменного администратора

Код:

Set OpSysSet = GetObject("winmgmts:{impersonationLevel=impersonate,(RemoteShutdown)}//FNQ-имя-сервера-для-убийства").ExecQuery("select * from Win32_OperatingSystem where Primary=true") 
for each OpSys in OpSysSet 
OpSys.Shutdown() 
Next

Наверх


Перейти: Наверх