Programmstarts per Passwort schützen

[marka 589]

Hi Leutz!

 

Wenn man den Start eines Programmes mit einem Passwort schützen möchte, geht man wiefolgt vor.

 

1. Man schreibt ein kleines Progrämmschen:

 

Kennwort = InputBox("Bitte Kennwort eingeben", "Geschützte Anwendung")
if Kennwort = "Geheim" then
 WScript.CreateObject("WScript.Shell").Run "iexplore.exe"
else
 MsgBox "Schade eigentlich", 0, "Falsches Kennwort"
end if

 

Dieses Programm fragt zum starten des Internet Explorers ein Passwort ab...

2. Man speichert das Programm auf der Festplatte als *.vbs und legt eine Desktopverknüpfung an. Diesen Link versieht man am besten mit nem Namen und dem Symbol der geschützten Anwendung.

 

 

Feddisch!

[InformatikPower 10]

nun ja das klappt schon, aber wenn es jeman umgeht dann kann man das Programm trotzdem starten.....

habe ich gerade getestet, da ich gerade ein VBS-Projekt zu erarbeiten habe :-)

Als schutz vor DAU´s aber sehr geeignet :-)