Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » VBS/WSH/JS - [решено] что бы с каждого компа в сети архивировалась раз в 2-3 дня папочка на сервер

Ответить
Настройки темы
VBS/WSH/JS - [решено] что бы с каждого компа в сети архивировалась раз в 2-3 дня папочка на сервер

Старожил


Сообщения: 184
Благодарности: 1

Профиль | Отправить PM | Цитировать


Товарищи нужно сделать так что бы с каждого компа в сети копировалась (архивировалась) раз в 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
Благодарности: 575

Профиль | Отправить 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
Благодарности: 1

Профиль | Отправить 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
Благодарности: 1

Профиль | Отправить PM | Цитировать


все пошло, только папочку не создалась по ip адресу

Отправлено: 10:44, 04-06-2013 | #13


Ветеран


Сообщения: 874
Благодарности: 575

Профиль | Отправить PM | Цитировать


alexdomovoi, выложите результат выполнения в командной строке команды:
Код: Выделить весь код
netsh interface ipv4 show addresses
.

Отправлено: 10:59, 04-06-2013 | #14


Старожил


Сообщения: 184
Благодарности: 1

Профиль | Отправить PM | Цитировать


Код: Выделить весь код
C:\Documents and Settings\admdom>netsh interface ipv4 show addresses
Команда interface ipv4 show addresses не найдена.
машина на xp sp3

Отправлено: 11:23, 04-06-2013 | #15


Ветеран


Сообщения: 874
Благодарности: 575

Профиль | Отправить 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
)
, попробуйте вместо неё использовать конструкцию
Код: Выделить весь код
ipconfig|find  "IPv4-">"%tmp%\tmp.tmp"
for /f "usebackq tokens=2 delims=:" %%i in ("%tmp%\tmp.tmp") do (
 set _ipAddress=%%i
)
set ipAddress=%_ipAddress:~1%
Можно было и обойтись без tmp.tmp.

Отправлено: 12:51, 04-06-2013 | #16


Старожил


Сообщения: 184
Благодарности: 1

Профиль | Отправить PM | Цитировать


создалась папочка вот такая ~1 в ней архивный файл, тема с ip не раскрыта.

Отправлено: 14:33, 04-06-2013 | #17


Ветеран


Сообщения: 874
Благодарности: 575

Профиль | Отправить PM | Цитировать


alexdomovoi, теперь выложите результат выполнения в командной строке команды:
Код: Выделить весь код
ipconfig
.

Отправлено: 15:39, 04-06-2013 | #18


Старожил


Сообщения: 184
Благодарности: 1

Профиль | Отправить PM | Цитировать


DNS-суффикс этого подключения . . :
IP-адрес . . . . . . . . . . . . : 10.72.4.198
Маска подсети . . . . . . . . . . : 255.255.255.0
Основной шлюз . . . . . . . . . . : 10.72.4.1

Отправлено: 08:13, 05-06-2013 | #19


Старожил


Сообщения: 184
Благодарности: 1

Профиль | Отправить PM | Цитировать


подниму подскажите

Отправлено: 09:04, 06-06-2013 | #20



Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » VBS/WSH/JS - [решено] что бы с каждого компа в сети архивировалась раз в 2-3 дня папочка на сервер

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
Интерфейс - 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




 
Переход