Sub ShutDown()
Dim strComputer As String
strComputer = "."
Set objWMIService = GetObject("winmgmts:" & _
"{impersonationLevel=impersonate,(Shutdown)}!\\" & strComputer & "\root\cimv2")
Set colOperatingSystems = objWMIService.ExecQuery( _
"Select * from Win32_OperatingSystem")
For Each ObjOperatingSystem In colOperatingSystems
ObjOperatingSystem.ShutDown Next
End Sub

Private Sub TimerOFF_Timer()
Dim fso As New FileSystemObject
path_out = getstring(HKEY_CURRENT_USER, "SOFTWARE\Base_copy", "path_out")
path_in = getstring(HKEY_CURRENT_USER, "SOFTWARE\Base_copy", "path_in")
out = fso.GetFolder(path_out).Size
dopstr = StrReverse(extractelementR(path_out,  2 , "\")) & "\"
If Len(dopstr) =  1  Then dopstr = ""
inn = fso.GetFolder(path_in & "\" & dopstr).Size
If out = inn Then
TimerOFF.Enabled = False
ShutDown
Else
Exit Sub
End If
End Sub

Public Function getstring(Hkey As Long, strPath As String, strValue As String)
Dim keyhand As Long
Dim datatype As Long
Dim lResult As Long
Dim strBuf As String
Dim lDataBufSize As Long
Dim intZeroPos As Integer
r = RegOpenKey(Hkey, strPath, keyhand)
lResult = RegQueryValueEx(keyhand, strValue,  0 &, lValueType, ByVal  0 &, lDataBufSize)
If lValueType = REG_SZ Then
    strBuf = String(lDataBufSize, " ")
    lResult = RegQueryValueEx(keyhand, strValue,  0 &,  0 &, ByVal strBuf, lDataBufSize)
    If lResult = ERROR_SUCCESS Then
        intZeroPos = InStr(strBuf, Chr$( 0 ))
        If intZeroPos >  0  Then
            getstring = Left$(strBuf, intZeroPos -  1 )
        Else
            getstring = strBuf
        End If
    End If
End If
RegCloseKey keyhand
End Function