v8: Помогите написать скрипт

 Set WshShell = CreateObject("Wscript.Shell")

RerRet = WshShell.Run("c:\Progra~2\1cv82\8.2.14.540\bin\1cv8.exe", 1, True)

dim d,m,y

d = day(date())

if d < 10 then 

   d = "0" & d

end if

m = month(date())

if m < 10 then

   m = "0" & m

end if

y = year(date())

h = Hour(Time())

if h < 10 then

   h = "0" & h

end if

Min = Minute(Time())

if Min < 10 then

   Min = "0" & Min

end if

S = Second(Time())

if S < 10 then

   S = "0" & S

end if

s = y & m & d & h & Min & S

WshShell.Run("c:\Progra~1\7-Zip\7z.exe a D:\Archiv\" & s & ".7z d:\1C\CTO\1Cv8.1CD")   

 strComputer = "."

Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")



Set colLoggedEvents = objWMIService.ExecQuery _

("S_elect * from Win32_NTLogEvent Where Logfile = 'System' and SourceName='User32'" _

& "and (EventCode = '1074' or EventCode = '1076')")



For Each objEvent in colLoggedEvents

If InStr(objEvent.Message, "Тип выключения: Выключение питания") > 0 Then



' Тут формируется имя файла из даты и времени, я копипастить не стал



NameFile = "Arc"

Set WshShell = CreateObject("Wscript.Shell")

WshShell.Run("c:\Progra~1\7-Zip\7z.exe a -mx7 -r0 -x!*.cdx D:\Archiv\DB_" & NameFile & ".7z d:\1C\DB", 1, True)

End If

Exit For

Next