Die Foren-SW läuft ohne erkennbare Probleme. Sollte doch etwas nicht funktionieren, bitte gerne hier jederzeit melden und wir kümmern uns zeitnah darum. Danke!
Ablaufdatum einer virtualisierten App
Ablaufdatum einer virtualisierten App
Hallo,
gibt es eine Möglichkeit, dass ich einstellen kann, wie lange sich eine Applikation nutzen lässt?
Anwendung XYZ soll nur bis zum 30.06.2011 laufen, danach nicht mehr.
Gibts da was?
Viele Grüße
Frank
gibt es eine Möglichkeit, dass ich einstellen kann, wie lange sich eine Applikation nutzen lässt?
Anwendung XYZ soll nur bis zum 30.06.2011 laufen, danach nicht mehr.
Gibts da was?
Viele Grüße
Frank
Bin kein Programmierer, von daher wüsste ich gerne wie man das realisiert - mit der Datumsüberprüfung bzw. "Fristsetzung" wie lang das Tool eben ausführbar sein darf.
Wenn, wie du schreibst, der Regkey außerhalb der Sandbox sein muss, dann stimmts, dann kann man diese löschen und das Prog kann nicht mehr gestartet werden, aber der User kann doch in der lokalen Registry den Key löschen....
Wenn, wie du schreibst, der Regkey außerhalb der Sandbox sein muss, dann stimmts, dann kann man diese löschen und das Prog kann nicht mehr gestartet werden, aber der User kann doch in der lokalen Registry den Key löschen....
Klar kann der User das löschen, oder verändern, aber dazu muss er erst wissen wo der Key ist und dann probieren auf welchen Wert er Ihn setzen muss. Zudem kannst du ja unterbinden das der User den RegKey ändern kann.
Das Skript habe ich grad nicht da, aber werde es heute daheim mal suchen, dann kann ich dir paar Beispiele geben, dass du dir ein Skript schreiben kannst.
Grüße
Thomas
Das Skript habe ich grad nicht da, aber werde es heute daheim mal suchen, dann kann ich dir paar Beispiele geben, dass du dir ein Skript schreiben kannst.
Grüße
Thomas
Moin,
wie versprochen folgend der Kernteil meines VB Skripts. Schau mal ob dir das schon weiterhilft, um dir deine Lösung zu bauen. Wenn nicht einfach noch mal bescheid sagen.
Grüße
Thomas
wie versprochen folgend der Kernteil meines VB Skripts. Schau mal ob dir das schon weiterhilft, um dir deine Lösung zu bauen. Wenn nicht einfach noch mal bescheid sagen.
Code: Alles auswählen
RegKey = ws.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\...")
mDateDiff = DateDiff("d", Datum,RegKey)
If mDateDiff < -30 Then
msgbox "Bitte mit Domäne verbinden!"
ExitProcess 0
else
msgbox "Start der Anwendung"
End If
Grüße
Thomas
Klar kann ich auch machen. Wusste nicht das mehr Leute daran ein Interesse haben.
Also hier mal das komplette VB Skript für die entsprechende Thinapp:
und als Gegenstück muss man dann einfach noch den Regkey z.B. über ein Loginskript setzen, welches wie folgt aussehen könnte mit Kixtart:
Das ist es auch schon. Jetzt müsst ihr nur noch das Skript in das Root von eurem Projektverzeichnis kopieren und die Thinapp neu builden.
Have fun!
Grüße
Thomas
Also hier mal das komplette VB Skript für die entsprechende Thinapp:
Code: Alles auswählen
'******************************************************************************************
'Autor: Thomas Mederer
'Datum: 04.11.2010
'Version: 1.0
'Beschreibung: Pruefen der Starberechtigung für ThinApp´s
'Bemerkung: Registrywerte werden aus physikalischer Registry ausgelesen
'******************************************************************************************
On Error Resume Next
' Aktuelles Datum einlesen
Datum = Date ()
' Skriptingobjekt definieren
Set ws = CreateObject("WScript.Shell")
' Prueft ob Regkey gesetzt ist
If IsError(RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\TA\Domainlogon")) Then
WScript.Quit
End If
' Registreirungsschlüssel auslesen und uebergeben
RegKey = ws.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\TA\Domainlogon")
' Datumsvergleich von aktuellem und hinterlegtem Datum
mDateDiff = DateDiff("d", Datum,RegKey)
' Startberechtigung pruefen
If mDateDiff < -30 Then
msgbox "Bitte mit Domäne verbinden!"
ExitProcess 0
else
msgbox "Start der Anwendung"
End If
und als Gegenstück muss man dann einfach noch den Regkey z.B. über ein Loginskript setzen, welches wie folgt aussehen könnte mit Kixtart:
Code: Alles auswählen
$AK=AddKey("HKEY_LOCAL_MACHINE\SOFTWARE\TA")
? "Regkey erstellt"
$year=split(@date,'/')[0]
$mon=split(@date,'/')[1]
$day=split(@date,'/')[2]
$date='$day.$mon.$year'
$RC=WriteValue("HKEY_LOCAL_MACHINE\SOFTWARE\TA", "Domainlogon", $date,"REG_SZ")
If @ERROR = 0
? "Aktuelles Datum eingetragen"
Endif
Das ist es auch schon. Jetzt müsst ihr nur noch das Skript in das Root von eurem Projektverzeichnis kopieren und die Thinapp neu builden.
Have fun!
Grüße
Thomas
Wer ist online?
Mitglieder in diesem Forum: 0 Mitglieder und 6 Gäste