Aşağıdaki kodu metin belgesine ekle, uzantısını .vbs olarak değiştir.

Dim objShell

MsgBox ("Bilgisayarın Kapanacak!")

Set objShell = WScript.CreateObject( "WScript.Shell" )

objShell.Run("""C:\Windows\System32\shutdown.exe""")

Set objShell = Nothing

Konu Farklı Konular Hakkında Sorular bölümüne taşınmıştır.