VBS Script

[Tijme]

Hoi helpmijer's


ik heb een vraagje over vbs script

ik heb thuis een vbs script gemaakt (niet zo groot)

nou wil ik een menu maken bijvoorbeeld met computer afsluiten en cd speler openen.
ik heb al een menu uitgeprobeerd dat is deze
------------------------------------------------------------------------------------------------------------------
Dim strMsg,inp01,strTitle,strFlag

strTitle = "Answer Box"

strMsg = "Enter A for Alaska" & vbCR
strMsg = strMsg & "Enter D for Delaware" & vbCR
strMsg = strMsg & "Enter T for Texas" & vbCR

strFlag = False

Do While strFlag = False

inp01 = InputBox(strMsg,"Make your selection")

Select Case inp01
Case "A"
MsgBox "You picked Alaska!",64,strTitle
strFlag = True
Case "D"
MsgBox "You picked Delaware!",64,strTitle
strFlag = True
Case "T"
MsgBox "You picked Texas!",64,strTitle
strFlag = True
Case Else
MsgBox "You made an incorrect selection!",64,strTitle
End Select

Loop

Wscript.Quit
-------------------------------------------------------------------------------------------------------------------------------

bij dit menu kan je niet kiezen voor (a) en dat dan de computer afsluit.

ik heb bij het antwoord hieronder de code computer afsluiten er tussen gezet. dit werkt niet als ik mijn vbs opstart komt er een error

Case "T"
MsgBox "Set OpSysSet = GetObject("winmgmts:{(Shutdown)}//./root/cimv2").ExecQuery("select * from Win32_OperatingSystem where Primary=true")
for each OpSys in OpSysSet
OpSys.ShutDown()
next ",64,strTitle
strFlag = True



wie weet een menu waar dit wel kan





alvast bedankt

 

[That Guy]

err, ik volg je niet helemaal. Een input + case is de enige vorm van 'menu' dat vbs heeft.

Overgens kan je niet 2x een 'case T' erin zetten. 1x per switch een case.

Select Case inp01
Case "uitzetten"
[COLOR="SeaGreen"]   'code voor pc uitzetten[/COLOR]
   strFlag = True
Case "cd openen"
   [COLOR="SeaGreen"]'code voor cd openen[/COLOR]
   strFlag = True

[COLOR="SeaGreen"]' hier nogmeer case's[/COLOR]

Case Else
   MsgBox "You made an incorrect selection!",64,strTitle
End Select

 

[Tijme]

volgens jou moet ik dus dit schrijven



Select Case inp01
Case "uitzetten"
'Set OpSysSet = GetObject("winmgmts:{(Shutdown)}//./root/cimv2").ExecQuery("select * from Win32_OperatingSystem where Primary=true")
for each OpSys in OpSysSet
OpSys.ShutDown()
next

strFlag = True
Case "cd openen"
'Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
End If
strFlag = True

' hier nogmeer case's

Case Else
MsgBox "You made an incorrect selection!",64,strTitle
End Select



als ik dit doe komt er gelijk / you made an incorrect selection/


dus kan jij me nog even helpen

 

[That Guy]

Errr....

inp01 = inputbox("bbq","x")



select case inp01

case "uitzetten"
   Set OpSysSet = GetObject("winmgmts:{(Shutdown)}//./root/cimv2").ExecQuery("select * from Win32_OperatingSystem where Primary=true")
   for each OpSys in OpSysSet
      OpSys.ShutDown()
   next 
   strFlag = True

case "cd openen"
   Set oWMP = CreateObject("WMPlayer.OCX.7" )
   Set colCDROMs = oWMP.cdromCollection
   if colCDROMs.Count >= 1 then
      For i = 0 to colCDROMs.Count - 1
         colCDROMs.Item(i).Eject
      Next
   End If 
   strFlag = True

case else
   MsgBox "You made an incorrect selection!",64,strTitle

End Select

 

[Tijme]

met die code van jou krijg ik nog steeds een foutmelding

 

[maxuploader]

Dim strMsg,inp01,strTitle,strFlag

strTitle = "Answer Box"

strMsg = "Enter A for Shut Down PC" & vbCR
strMsg = strMsg & "Enter B for open cd drive" & vbCR

strFlag = False

Do While strFlag = False

inp01 = InputBox(strMsg,"Make your selection")

Select Case inp01

Case "A"
Set OpSysSet = GetObject("winmgmts:{(Shutdown)}//./root/cimv2").ExecQuery("select * from Win32_OperatingSystem where Primary=true")
for each OpSys in OpSysSet
OpSys.ShutDown()
next
strFlag = True

Case "B"
Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
colCDROMs.Item(i).Eject
strFlag = True

Case Else
MsgBox "You made an incorrect selection!",64,strTitle
End Select

Loop

Wscript.Quit

 

[Tijme]

BEDANKT​

nu kan ik veer verder

harstikke bedankt voor je hulp

 

[maxuploader]

Graag gedaan, ja had alleen de verkeerde codes
Slotje!!