Newbie777
Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
если терпишь скрипты, тогда вот такой можно прилепить
вычитывает из AD с домена domain.com все компы, пингует и если есть ответ - гасит
'----ShutwoanAll.vbs---
Set Container = GetObject("WinNT://" & "domain.com")
Container.Filter = Array("Computer")
Set oShell = WScript.CreateObject ("WSCript.shell")
For Each Member In Container
On Error Resume Next
If IsAlive(Member.name)=True Then
oShell.run "shutdown.exe -s m \\"&Member.name
End If
Next
Function IsAlive(sHost)
Const OpenAsDefault = -2
Const FailIfNotExist = 0
Const ForReading = 1
Set oShell = CreateObject("WScript.Shell")
Set oFSO = CreateObject("Scripting.FileSystemObject")
sTemp = oShell.ExpandEnvironmentStrings("%TEMP%")
sTempFile = sTemp & "\runresult.txt"
oShell.Run "%comspec% /c ping -n 2 " & sHost & " >" & sTempFile, 0 , True
Set fFile = oFSO.OpenTextFile(sTempFile, ForReading, _
FailIfNotExist, OpenAsDefault)
sResults = fFile.ReadAll
fFile.Close
oFSO.DeleteFile(sTempFile)
Select Case InStr(sResults,"TTL=")
Case 0 IsAlive = False
Case Else IsAlive = True
End Select
End Function
'-------
если нету домена, тогда можно заиспользовать net view > view.txt, потом парсить полученый список в shutdown |
Всего записей: 920 | Зарегистр. 11-03-2003 | Отправлено: 16:39 20-05-2004 | Исправлено: Newbie777, 16:42 20-05-2004 |
|
