Shutdown ved hjælp af vbs script

jeg har lavet dette script som skal lukke maskinen ned.
Men den kommer kun til skærmbilledet hvor der står DU Kan nu slukke din computer.
Hvordan kan jeg få det lavet så at computeren bliver lukket helt ned?


strComputer = "pc20"
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