Paso 2: Parada alternativa
Como alternativa, puede Agregar el siguiente texto al final que dará como resultado un sistema de cierre:
strComputer = "." ' Equipo local
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate,(Shutdown)} \\" & _
strComputer & "\root\cimv2")
ColOs de set = objWMIService.ExecQuery ("Select * de Win32_OperatingSystem")
Para cada objOs en colOs
objOs.Win32Shutdown(1)
Siguiente
---------------------
Nota importante: Si vas a agregar la función de apagado, asegúrese de retirar la declaración 'end if' en la parte inferior del código original. Si no se quita 'end if', el archivo no funcionará!