|
Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » VBS/WSH/JS - [решено] что бы с каждого компа в сети архивировалась раз в 2-3 дня папочка на сервер |
|
VBS/WSH/JS - [решено] что бы с каждого компа в сети архивировалась раз в 2-3 дня папочка на сервер
|
Старожил Сообщения: 184 |
Товарищи нужно сделать так что бы с каждого компа в сети копировалась (архивировалась) раз в 2-3 дня папочка на сервер и при этом создавалась папка не по имени компа на сервере, а по ip адресу копируемого компьютера мне вроде дали скриптик но он не работает как то, что не так:
Dim FSO, WSH, TheFolder, TheFiles, AFile Set WSH = CreateObject("WScript.Shell") Set FSO = CreateObject("Scripting.FileSystemObject") foldername = "C:\Program Files\infotecs" zipname = "C:\temp\if.zip" str = "c:\7-zip\7z.exe a "& zipname & " " & foldername strComputer = "." Return = WSH.Run(str, 0, true) If Return = 0 Then Set fso = createobject ("scripting.filesystemobject") Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set IPConfigSet = objWMIService.ExecQuery _ ("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled = TRUE") For Each IPConfig in IPConfigSet If Not IsNull(IPConfig.IPAddress) Then For Each IPAddress In IPConfig.IPAddress strOutput = Replace(IPAddress, strComputer, "") if fso.FolderExists("\\10.72.4.8\AD\1\" & strOutput) Then WScript.Echo "Папка уже создана" Else fso.createfolder "\\10.72.4.8\AD\1\" & strOutput End If Set TheFolder = FSO.GetFolder("C:\temp\") Set TheFiles = TheFolder.Files For Each AFile In TheFiles If UCase(FSO.GetExtensionName(AFile.Path)) = "ZIP" Then AFile.COPY "\\10.72.4.8\AD\1\" & strOutput &"\" End If Next Next End If Next End If папка temp есть папка с архиватором 7-zip так же имеется папка с тем что копировать есть папка куда копировать так же есть что еще надо? |
|
Отправлено: 14:24, 31-05-2013 |
Ветеран Сообщения: 874
|
Профиль | Отправить PM | Цитировать alexdomovoi, попробуйте подправить скрипт sunnykey таким образом:
@echo off setlocal enableextensions enabledelayedexpansion rem Замени пути на свои set ZipPath="C:\Program Files\7-Zip\7z.exe" set ServerPath=\\10.72.4.8\ad\1 set Folder2BackUp="C:\Program Files\InfoTeCS\" rem !!!!!!!!!!!!!!!!!! for /f %%i in ('date /t') do set CurDate=%%i if exist "%tmp%\%CurDate%.zip" ( del /q "%tmp%\%CurDate%.zip" ) if exist "%tmp%\tmp.tmp" ( del /q "%tmp%\tmp.tmp" ) netsh interface ipv4 show addresses | find "IP-" | find /v "127.0.0.1" >"%tmp%\tmp.tmp" for /f "usebackq tokens=2" %%i in ("%tmp%\tmp.tmp") do ( set ipAddress=%%i ) set endPath=%ServerPath%\%ipAddress% %ZipPath% a "%tmp%\%CurDate%.zip" %Folder2BackUp% if not exist "%endPath%" ( md "%endPath%" ) copy /y /z "%tmp%\%CurDate%.zip" "%endPath%\" del /q "%tmp%\tmp.tmp" del /q "%tmp%\%CurDate%.zip" echo Done! |
Отправлено: 10:15, 04-06-2013 | #11 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
Старожил Сообщения: 184
|
Профиль | Отправить PM | Цитировать опять не так
Compressing InfoTeCS\ViPNet CryptoService\VIPNETLN.CRG Compressing InfoTeCS\ViPNet CryptoService\vipnetln.prg Everything is Ok if not exist "%endPath%" ( Продолжить? "Application Data"md "%endPath%" Продолжить? ) ""Application Data"md" не является внутренней или внешней командой, исполняемой программой или пакетным файлом. copy /y /z "%tmp%\%CurDate%.zip" "%endPath%\" Системе не удается найти указанный путь. Скопировано файлов: 0. del /q "%tmp%\tmp.tmp" del /q "%tmp%\%CurDate%.zip" echo Done! |
Отправлено: 10:22, 04-06-2013 | #12 |
Старожил Сообщения: 184
|
Профиль | Отправить PM | Цитировать все пошло, только папочку не создалась по ip адресу
|
Отправлено: 10:44, 04-06-2013 | #13 |
Ветеран Сообщения: 874
|
Профиль | Отправить PM | Цитировать |
Отправлено: 10:59, 04-06-2013 | #14 |
Старожил Сообщения: 184
|
Профиль | Отправить PM | Цитировать |
Отправлено: 11:23, 04-06-2013 | #15 |
Ветеран Сообщения: 874
|
Профиль | Отправить PM | Цитировать Тогда надо использовать альтернативную команду. Например, чтобы получился тот же реэультат, что и в предложенной sunnykey конструкции (с моей правкой)
netsh interface ipv4 show addresses | find "IP-" | find /v "127.0.0.1" >"%tmp%\tmp.tmp" for /f "usebackq tokens=2" %%i in ("%tmp%\tmp.tmp") do ( set ipAddress=%%i ) |
Отправлено: 12:51, 04-06-2013 | #16 |
Старожил Сообщения: 184
|
Профиль | Отправить PM | Цитировать создалась папочка вот такая ~1 в ней архивный файл, тема с ip не раскрыта.
|
Отправлено: 14:33, 04-06-2013 | #17 |
Ветеран Сообщения: 874
|
Профиль | Отправить PM | Цитировать |
Отправлено: 15:39, 04-06-2013 | #18 |
Старожил Сообщения: 184
|
Профиль | Отправить PM | Цитировать DNS-суффикс этого подключения . . :
IP-адрес . . . . . . . . . . . . : 10.72.4.198 Маска подсети . . . . . . . . . . : 255.255.255.0 Основной шлюз . . . . . . . . . . : 10.72.4.1 |
Отправлено: 08:13, 05-06-2013 | #19 |
Старожил Сообщения: 184
|
Профиль | Отправить PM | Цитировать подниму подскажите
|
Отправлено: 09:04, 06-06-2013 | #20 |
![]() |
Участник сейчас на форуме |
![]() |
Участник вне форума |
![]() |
Автор темы |
![]() |
Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
Интерфейс - 1. У меня каждый раз при перезагрузке компа, удаляются все шрифты. Что делать? | migel_777mix | Microsoft Windows 2000/XP | 16 | 08-04-2015 17:43 | |
[решено] Доступ из сети компа с Win7 на сервер с Win2k server | Victor_ZN2011 | Microsoft Windows NT/2000/2003 | 5 | 13-08-2012 10:09 | |
CMD/BAT - [решено] нужно что-бы батник считал сколько раз его запускали | max_max_08 | Скриптовые языки администрирования Windows | 14 | 24-07-2010 20:00 | |
Нужна помощь по ADSL, каждый раз нужно регаться на IPS для того что бы зайти в нет,.. | DreDo | Хочу все знать | 2 | 07-01-2009 01:05 | |
Настойка Apach что бы видился с ИНЕТА и с локальной сети | kaEwituS | Общий по FreeBSD | 2 | 31-08-2007 11:02 |
|