Открываеш блокнот, копируеш туда код и сохраняеш документ с расширением .vbs. Далее если сеть без доменов копируеш этот файлик в автозагрузку каждому ПК. Если сеть с доменом, то создаеш груповую политику (в AD), где в параметрах автозагрузки вставляеш данный файл. Далее при подключении или перезагрузке учетной записи будет выполняться скрипт (с) Nazim
strComputer = “.” Set WshShell = WScript.CreateObject(“WScript.Shell”) strCommand = “C:\WINDOWS\system32\ntbackup.exe backup @C:\cmd\Back-UP-Drive-C.bks /a /v:no /r:no /rs:no /hc:off /m normal /j Back-UP-Drive-C /l:s /f D:\Back-Up\Backup-drive-c.bkf” WshShell.Run strcommand, 1, true Set objWMIService = GetObject(“winmgmts:\\” & strComputer & “\root\cimv2”) Set colItems = objWMIService.ExecQuery(“Select * from Win32_LocalTime”) For Each objItem in colItems strCommand = “C:\Arch\7z.exe a D:\Back-Up\Backup-dc-srv-01-DayOf-Week-“&objItem.DayOfWeek&”.7z D:\Back-Up\*.bkf -t7z… Читати далі »
Set WshNetwork = CreateObject(“WScript.Network”) ‘Создание объекта типа Network Set Drives = WshNetwork.EnumNetworkDrives c = 0 ‘Пременная проверки на наличие хотя бы одного сетевого диска! i = 0 While i