simpele .vbs vraag

[radelooz]

ik ben een script aan het maken en aan het einde gaat de computer uit of juist-
niet ik dacht is het mogelijk met een inputbox dit had ik sla het op als .vbs

set wshshell = wscript.CreateObject("wscript.shell")
pk=inputbox("uitzetten true/false (ja/nee")

input=Set OpSysSet = GetObject("winmgmts:{(Shutdown)}//./root/cimv2").ExecQuery("select * from Win32_OperatingSystem where Primary=&pk")
for each OpSys in OpSysSet
OpSys.ShutDown()
next

ik weet niet of ik het script zo goed op het forum plaats maar je begrijpt het wel (dit is een onderdeel van het script

 

[mmatteman]

1 - Plaats dit niet in een 'Test mijn programma' topic, dit hoort in een vb(s) thread;
2 - Je bent moeilijk te begrijpen met die vaag lopende zinnen. Gebruik punten en komma's, is voor ons ook makkelijker.

 

[huijb]

Verplaatst

 

[Jori13]

Je doet eigenlijk een aantal dingen fout.

1 - Je probeert een variabele te plakken in de WQL string.

Dit

ExecQuery("select * from Win32_OperatingSystem where Primary=&pk")

Zou er zo uit moeten zien

ExecQuery("select * from Win32_OperatingSystem where Primary=" & pk)

2. Je probeert een variabele te geven aan het zetten van een object. Dit:

input=Set OpSysSet = GetObject("winmgmts:{(Shutdown)}//./root/cimv2")

Zou dit moeten zijn:

Set OpSysSet = GetObject("winmgmts:{(Shutdown)}//./root/cimv2")

Wat mij ook opvalt is dat je een Wscript object maakt zonder er vervolgens iets me te doen...


Maar er maar dit van:

Do Until pk = "true" Or pk = "false"
pk = inputbox("uitzetten true/false (ja/nee")
Loop

If pk = "true" 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

End If

~Jori.

 

[radelooz]

Bedankt alvast.
ik zij ook al dat ik het niet zeker wist of ik het goed geplaats had.
maar jullie kunnen wel zeuren. zo'n scriper ben ik ook niet!!!!!
ik snapte eerst niet hoe je het toepassen moest:thumb:

If pk = "true" then

en

or else