Computing.Net > Forums > Programming > vbs password protect script help

vbs password protect script help

Reply to Message Icon

Original Message
Name: vbs5batch5man101
Date: October 27, 2005 at 16:23:50 Pacific
Subject: vbs password protect script help
OS: qqq
CPU/Ram: qqq
Comment:

Hello Im running Windows xp and i am wondering if anyone can help me with my vbs password protect script.all though i am only 12!Ok well my vbs is based on input box and since i am not alowed to put a password on my account because of my parents i am simply not putting a password to my account and just using the vbs to make the vbs run at start up.here is the vbs script. right now im making notepad pop up if password is wrong but i can run a batch or just make the shutdown thing pop up and use sendkeys if i want to make it log off or shut down!.so here is the script:
Set wshShell = wscript.CreateObject("WScript.Shell")
Dim fso
Set sh = CreateObject("WScript.Shell")
fso = InputBox("What is your password?")
if fso = "password" then
wscript.Quit
end if
if fso = "help" then
wshshell.run "notepad.exe"
end if

help is where i need help.i need it to be the value of anything else so only my password works.If you have any other suggestions go ahead


Report Offensive Message For Removal


Response Number 1
Name: dtech10
Date: October 27, 2005 at 17:30:25 Pacific
Reply: (edit)

Hi
Do you mean someting like this.

if fso="help" then
do This
else
do This
endif


Report Offensive Follow Up For Removal

Response Number 2
Name: vbs5batch5man101
Date: October 27, 2005 at 19:01:01 Pacific
Reply: (edit)

no
i ment for my password protect script i want it so one thing can be the password! i know how to do the rest just

i want the password to be "blue" for example , well how can i make it so it can only be blue and nothing else , is there a code or value for that?


Report Offensive Follow Up For Removal

Response Number 3
Name: wizard-fred
Date: October 27, 2005 at 23:51:45 Pacific
Reply: (edit)

Maybe a negative test.
If password <> "blue" then
<Wrong do shutdown/logoff routine>
end if
<Right password routine>


Report Offensive Follow Up For Removal

Response Number 4
Name: vbs5batch5man101
Date: October 28, 2005 at 04:41:59 Pacific
Reply: (edit)

what? just answer me please , is there a value of anything else?


Report Offensive Follow Up For Removal

Response Number 5
Name: wizard-fred
Date: October 28, 2005 at 07:32:17 Pacific
Reply: (edit)

Anything else <> "blue"


Report Offensive Follow Up For Removal


Response Number 6
Name: vbs5batch5man101
Date: October 28, 2005 at 16:30:40 Pacific
Reply: (edit)

hey
im 12 and i dont understand , can u make do it cause i tried that in many different ways and it didnt work so can you edit the script?

Set wshShell = wscript.CreateObject("WScript.Shell")
Dim fso
Set sh = CreateObject("WScript.Shell")
fso = InputBox("What is your password?")
if fso = "password" then
wscript.Quit
end if
if fso = "help" then
wshshell.run "notepad.exe"
end if


Report Offensive Follow Up For Removal






Use following form to reply to current message:

   Name: From My Computing.Net Settings
 E-Mail: From My Computing.Net Settings

Subject: vbs password protect script help

Comments:

 


  Homepage URL (*): 
Homepage Title (*): 
         Image URL: 
 
Data Recovery Software




Have you ever used OpenOffice?

Yes, as my main suite.
Yes, occationally.
Yes, but only once.
No, never.


View Results

Poll Finishes In 3 Days.
Discuss in The Lounge