Étape 2: Arrêt Alternative
Vous pouvez également ajouter le texte suivant le bas qui se traduira par un arrêt du système :
strComputer = "." « Ordinateur local
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate,(Shutdown)} \\" & _
strComputer & "\root\cimv2")
Définir les colOs = objWMIService.ExecQuery ("Select * de Win32_OperatingSystem »)
Pour chaque objOs en colOs
objOs.Win32Shutdown(1)
Prochaine
---------------------
Remarque importante : Si vous souhaitez ajouter la fonctionnalité d’arrêt, veillez à supprimer l’instruction « end if » en bas du code original. Si « end if » n’est pas supprimé, le fichier ne fonctionnera pas !