Сделать стартовойДобавить в закладки  
Главная страничка Главная страничка
В номере:

    Выходит с 17 июля 2008 г. цена договорная

    Опрос

    Windows Mobile
    Symbian
    Android
    iPhone
    Linux
    другая
    не знаю
    у меня обычный телефон



    Календарь
    «    Сентябрь 2012    »
    ПнВтСрЧтПтСбВс
     12
    3456789
    10111213141516
    17181920212223
    24252627282930

    Архив новостей
    Ноябрь 2013 (1)
    Май 2013 (2)
    Апрель 2013 (3)
    Март 2013 (2)
    Февраль 2013 (1)
    Январь 2013 (2)

    Информация
    Скрипт через psexec.exe монтирует на удаленном компьютере том TrueCrypt, копирует на него файлы из указанной папки, размонтирует том
    OS, мобильные OS » Windows » WSH скрипты
    автор: dimon, опубликовано: 13 сентября 2012

    Скрипт через psexec.exe монтирует на удаленном компьютере том TrueCrypt, копирует на него файлы из указанной папки с установленным архивным битом, размонтирует том.
    Запуск скрипта планируется с помощью стороннего ПО.
    psexec.exe должен лежать в той же папке что и скрипт.

    '----------------------------------------------------------------------
    '
    ' Copyright (c)  All rights reserved.
    '
    '
    ' AUTHOR: tudimon.com
    ' DATE: 13.09.2012
    ' NAME: TrueCrypt_mount_copy_unmount_v1.vbs
    '
    ' COMMENT:
    '
    ' Скрипт через psexec.exe монтирует на удаленном компьютере том TrueCrypt, копирует на него файлы, размонтирует том.
    '
    ' Запуск скрипта планируется с помощью стороннего ПО.
    '
    ' psexec.exe должен лежать в той же папке что и скрипт.
    '
    '
    '----------------------------------------------------------------------

    ' Задаваемые параметры для работы скипта

    SourceFolder = "D:\data"                     ' Папка с файлами для архиврования (без слэша на конце)
    DestinationFolder = "\\192.168.1.122\data"     ' Папка для архивных копий (без слэша на конце)

    LogFilePath = "D:\logs\"                    ' папка для лог-файлов
    LogTXT = ""                                 ' переменная для записи в лог

    ' Переменные для psexec.exe
    ipTarget = "192.168.1.122"                    ' ip целевого (удаленного) компьютера
    psUser = "domain\adm"                        ' учетка под которой подключаться
    psPass = "sec_password"                        ' пароль

    ' Переменные для TrueCrypt
    tcPath = "c:\Progra~1\TrueCrypt\TrueCrypt.exe"    ' Путь до TrueCrypt.exe на удаленной машине
    tcTarget = "\Device\Harddisk2\Partition1"        ' какой том монтируем
    tcLetter = "l"                                    ' на какую букву монтировать
    tcPass = "tc_secret_password"                    ' пароль шифрованного тома


    '----------------------------------------------------------------------

    LogTXT = LogTXT & vbNewLine & "******************** " & Now & " ********************"

    ' сформируем штамп со временем
    DateTimeStamp = Year(now) & Right("00" & CStr(Month(Now)), 2) & Right("00" & CStr(Day(Now)), 2) & "_"  & Right("00" & CStr(Hour(Now)), 2) & "-"  & Right("00" & CStr(Minute(Now)), 2) & "-"  & Right("00" & CStr(Second(Now)), 2)

    ' сформируем путь лог-файла
    LogFilePath = LogFilePath & "TC_" & DateTimeStamp & ".txt"

    'MsgBox LogFilePath

            ' Сформируем команду для psexec.exe
            cmdPS = "psexec.exe \\" & ipTarget & " -u " & psUser & " -p " & psPass & " "

    ' **** монтируем том

            ' Сформируем команду для TC mount
            cmdTC = tcPath & " /q /v " & tcTarget & " /l" & tcLetter & " /p """ & tcPass & """"
            
            ' выполним
            Set objShell = CreateObject("WScript.Shell")
            Set objScriptExec = objShell.Exec(cmdPS & cmdTC)
            LogTXT = LogTXT & vbNewLine & " mount " & tcLetter & ":\ disk" & vbNewLine

            
    ' **** копируем

    ' Уснем на 60 секунд, дожидаясь выполнение команды монтирования тома
    WScript.sleep 60000


    ' если требуются папки для каждого бэкапа
    'DestinationFolder = DestinationFolder & "\" & Year(now) & Right("00" & CStr(Month(Now)), 2) & Right("00" & CStr(Day(Now)), 2)

    LogTXT = LogTXT & vbNewLine & "******************** " & Now & " ********************"

    LogTXT = LogTXT & vbNewLine & "Destination Folder is " & DestinationFolder & vbNewLine



    ' **** бэкап
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFolder = objFSO.GetFolder(SourceFolder)
    Set colFiles = objFolder.Files
    For Each objFiles in colFiles

        If objFiles.Attributes and 32 Then
            ' архивный бит установлен, то копируем
            objFSO.CopyFile objFiles.Path, DestinationFolder & "\" & objFiles.Name
            
            ' 2log
            LogTXT = LogTXT & vbNewLine & objFiles.Path & " copy done"
            
            ' снимем архивный бит
            objFiles.Attributes = objFiles.attributes - 32
            
        End If

    Next


            

    ' **** размонтируем том

    ' Уснем на 60 секунд
    WScript.sleep 60000

            ' Сформируем команду для TC unmount
            cmdTC = tcPath & " /q /d" & tcLetter & " /f /s"
            
            ' выполним
            Set objShell = CreateObject("WScript.Shell")
            Set objScriptExec = objShell.Exec(cmdPS & cmdTC)
            LogTXT = LogTXT & vbNewLine & " unmount " & tcLetter & ":\ disk" & vbNewLine
            
            


    ' **** Пишем лог
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set LogFile = FSO.OpenTextFile(LogFilePath, 8, True)
    LogTXT = LogTXT & vbNewLine & "*************************************************************"
    LogFile.WriteLine LogTXT
    LogFile.Close

    Set FSO = Nothing
    Set objFSO = Nothing

    WScript.Quit 0


    truecrypt_mount_copy_unmount_v1.rar [2,61 Kb] (cкачиваний: 57)

     
    Уважаемый посетитель, Вы зашли на сайт как незарегистрированный пользователь. Чтобы Вам были доступны все функции Вам необходимо либо зарегистрироваться, либо зайти на сайт под своим именем.

    Другие новости по теме:

  • Рекурсивный список подкатологов и файлов в текстовый лог
  • Скрипт для бэкапа папки в rar-архив и удаления архивов старше N дней
  • Скрипт копирования файлов с установленным архивным битом в резервный катало ...
  • Список файлов в каталоге в текстовый файл
  • Список подкатологов в текстовый файл


  • Комментарии:

    Оставить комментарий



     
    Информация
     
    Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.


    Поиск по сайту:


    Аккаунт
    Войти
    (Забыли?)
    Облако тегов
    1602, Android, Arduino, backup, CentOS, cmd, css, div, DLE, DLE хаки, Ethernet, LCD, Linux, log, Monster, ogf3, RDP, Template, VBS, w2k8, windows, WSH, бумага, бумажный самолетик, бэкап, верстка, иструкция, Карты, кино, Навигация, оригами, программа, рецензия, рецепт, скрипт, фигуры, шаблон, Яндекс, яндекс-карты

    Показать все теги
    Реклама
    раскрутка сайта бесплатно






    Главная страница | Регистрация | Добавить новость | Новое на сайте | Статистика | Поддержка | Правила ресурса Copyright © 2005-2013 by dimon - all right reserved!
    Тираж:       Счетчик тИЦ и PR     экземпляров.   Дизайн, верстка by dimon