'/////////////////////////Скрипт отключения сетевого адаптера - начало //////////////////////////////
' strConn : имя сетевого подключения
' bState  : vbTrue - включить, vbFalse - отключить

Function SetConnState (strConn, bState)
  Dim objShell,objCP
  Dim colNetwork,clsConn,clsLANConn,clsVerb
  Dim strNetConn,strEnable,strDisable
  SetConnState=vbFalse

  strNetConn = "Сетевые подключения"
' strNetConn = "Network Connections"

  strEnable = "&Включить"
' strEnable = "En&able"

  strDisable = "&Отключить"
' strDisable = "Disa&ble"
' -----------------------------
  Set objShell = CreateObject("Shell.Application")
  Set objCP = objShell.Namespace(3)

  Set colNetwork = Nothing
  For Each clsConn in objCP.Items
    If clsConn.Name = strNetConn Then
      Set colNetwork = clsConn.getfolder
      Exit For
    End If
  Next

  If colNetwork Is Nothing Then
    WScript.Echo "Network folder not found"
    Exit Function
  End If

  Set clsLANConn = Nothing
  For Each clsConn in colNetwork.Items
    If LCase(clsConn.name) = LCase(strConn) Then
      Set clsLANConn = clsConn
      Exit For
    End If
  Next

  If clsLANConn is Nothing Then
    WScript.Echo "Network Connection not found"
    Exit Function
  End If

  For Each clsVerb in clsLANConn.verbs
    If (bState=vbFalse AND clsVerb.name=strDisable) OR (bState=vbTrue AND clsVerb.name=strEnable) Then 
      clsVerb.DoIt
      WScript.Sleep 1000
      SetConnState=vbTrue
    End If
  Next
End Function
SetConnState "FND", False
'/////////////////////////////////Скрипт отключения сетевого адаптера - конец ////////////////////////////
'////////////////Скрипт копирования баз - начало////////////////////////////////////////////
Dim today, Filename, fso
Filename="C:\\backup\" '///////////// Здесь указываем папку для проверки сегодняшнего бэкапа
Set objFSO = CreateObject("Scripting.FileSystemObject")

today=Date
 
Set objFolder=objFSO.GetFolder(Filename)
Set colFiles=objFolder.Files


For Each objFile in colFiles
if Datevalue(objFile.DateLastModified) = today  Then
x1=Datevalue(objFile.DateLastModified)
else
x2=Datevalue(objFile.DateLastModified)
End if
Next

if x1 = today then
MsgBox ("Копия делалась")
else
if x2 <> today then

Set FSO = CreateObject("Scripting.FileSystemObject")
Set WshShell = CreateObject("WScript.Shell")
daydate=left(date,2)&left(right(date,7),2)&right(date,2)

Arch = WshShell.Run ("""C:\Program Files\7-Zip\7z"" a -tzip ""C:\backup\backup1C_"+daydate+".zip"" -r ""C:\test\1\"" ""C:\test\2\""",1,True) 


WshShell.Popup "Резервное копирование успешно завершено!",, "Резервное копирование БД 1С", 0+32

else
WshShell.Popup "Ошибка при создании резервной копии БД 1С!",, "Резервное копирование БД 1С", 0+32
end if
end if
'/////////////////////Скрипт копирования баз - конец/////////////////////////////////////

'////////////////////////Скрипт включения сетевого адаптера/////////////////////////////
' strConn : имя сетевого подключения
' bState  : vbTrue - включить, vbFalse - отключить

Function SetConnState (strConn, bState)
  Dim objShell,objCP
  Dim colNetwork,clsConn,clsLANConn,clsVerb
  Dim strNetConn,strEnable,strDisable
  SetConnState=vbFalse

  strNetConn = "Сетевые подключения"
' strNetConn = "Network Connections"

  strEnable = "&Включить"
' strEnable = "En&able"

  strDisable = "&Отключить"
' strDisable = "Disa&ble"
' -----------------------------
  Set objShell = CreateObject("Shell.Application")
  Set objCP = objShell.Namespace(3)

  Set colNetwork = Nothing
  For Each clsConn in objCP.Items
    If clsConn.Name = strNetConn Then
      Set colNetwork = clsConn.getfolder
      Exit For
    End If
  Next

  If colNetwork Is Nothing Then
    WScript.Echo "Network folder not found"
    Exit Function
  End If

  Set clsLANConn = Nothing
  For Each clsConn in colNetwork.Items
    If LCase(clsConn.name) = LCase(strConn) Then
      Set clsLANConn = clsConn
      Exit For
    End If
  Next

  If clsLANConn is Nothing Then
    WScript.Echo "Network Connection not found"
    Exit Function
  End If

  For Each clsVerb in clsLANConn.verbs
    If (bState=vbFalse AND clsVerb.name=strDisable) OR (bState=vbTrue AND clsVerb.name=strEnable) Then 
      clsVerb.DoIt
      WScript.Sleep 1000
      SetConnState=vbTrue
    End If
  Next
End Function
SetConnState "FND", True '//////// Указывается имя сетевого подключения
'/////////////////////Скрипт включения сетевого адептера - конец //////////////////////////////////