Dit is een oud script dat ik een tijdje geleden heb gemaakt, het laat piepjes uit de computer horen, en is makkelijk aanpasbaar.
Je krijgt 3 keer een scherm waar je opties moet invullen. Daarna laat hij na
a seconden
b piepjes horen en daarna
1=afsluiten, iets anders=niet afsluiten.
On error resume next
a = inputbox("Hoeveel seconden ?", "Script")
b = inputbox("Hoeveel piepjes ?", "Script")
c = inputbox("Afsluiten ? 1 = wel, | iets anders = niet", "Script" )
for i = 1 to +a
Wscript.Sleep 1000
next
for i = 1 to +b
Set oWS = WScript.CreateObject("WScript.Shell")
oWS.Run "%comspec% /c echo " & Chr(07), 0, True
next
if c = 1 then
Set OpSysSet = GetObject("winmgmts:{(Shutdown)}//./root/cimv2").ExecQuery("select * from Win32_OperatingSystem where Primary=true")
for each OpSys in OpSysSet
OpSys.ShutDown()
next
else
wscript.quit
end If
Auteur
Topic: VBScript (gelezen 730 keer)