Une approche peut-être plus sure est d'utiliser WMI :
Option Explicit
Sub ArreterWscript
Dim objWMIService, colItems, objItem
Set objWMIService = GetObject("winmgmts:\\.\root\CIMV2")...