VB Code for Shutdown App

Oh man! Ad-blocking software has been detected! :'(

This website is run by the community, for the community... and it needs advertisements in order to keep running. Blocking our ads means your killing our stats!
Please disable your ad-block, or become a premium member to hide all advertisements and this notice.

If action = "Shutdown" Then
Shell("shutdown -t" & time _ "shutdown -s -f \\m" &workstation)

That is the code I have entered for it to look at variables I have set named "action" and "time" and "workstation"

Essentially, the application will look at what the user sets the "action" text to, in this case "shutdown", and then will look at what is in the "time" field and shutdown the computer based on this information.

It doesn't like the code however, and I know this is because I am trying to continue the Shell command across both the time field, action & workstation field on one line.

I did VB over 10 years ago, so to come back to it now is all strange so I know I am missing the obvious.

- - - Updated - - -

Sorted:
If action = "Shutdown" Then
Shell("shutdown –t " & time & " -s -f –m " & workstation)

- - - Updated - - -

oops, that hasnt worked either... any advice would be handy

 

Oh man! Ad-blocking software has been detected! :'(

This website is run by the community, for the community... and it needs advertisements in order to keep running. Blocking our ads means your killing our stats!
Please disable your ad-block, or become a premium member to hide all advertisements and this notice.

I would add in a basic MsgBox for debugging purposes. You can make sure your variables are being declared, and have the correct information in, so:

Code:

MsgBox "shutdown –t " & time & " -s -f –m " & workstation

Then make sure that the code displayed in the MsgBox is valid.

 

tested that, it came up fine in the msgbox... so that leaves extra confusion as to why it's not working still.

i shall continue to look

 

OK, try using something like this:

Code:

Dim wshShell
Set wshShell = WScript.CreateObject("WScript.Shell")
wshShell.Run "shutdown –t " & time & " -s -f –m " & workstation

 

i have imported the code above and this comes up as 'wscript is not declared... does this need to be declared as a string also?

 

Which version of VB are you using?

 

You say your code "doesn't work". Exactly what about it doesn't work? does it throw an error? if so, what?

BB88's code isn't going to work, because it's vbscript, not VB - which I'm guessing you are using.

Have you ensured that the action you are entering is exactly the text you are checking? i.e. that the case is correct? The code as you have it is case sensitive - so if won't match unless the action you enter is exactly: "Shutdown". if it's "shutdown" (i.e. no capital S), the if will fail.

 

Check this link out for Visual Basic 6 Shutdown, Restart and Log Off your computer using VB 6.0 | Visual Basic 6 (VB6)