TIA Anmeldung über Chip

[smille_17]

Zuviel Werbung?
-> Hier kostenlos registrieren

Guten Morgen zusammen,

ich habe folgendes Problem:
Ich benutze TIA V13 SP1. Ich möchte mich gern mit einem Transponder (Chip) am Touch TP1200 anmelden.
Ich würde mit dem Transponder einen Eingang belegen, daraus einen DBX machen und darüber mich im TP anmelden und bestimmte Rechte freigeben.

Wie bekomme ich das TP dazu einen Benutzer aufzurufen und ein Kennwort einzugeben, oder in den Eigenschaften "Security" eine Berechtigung freizuschalten.

Hat da irgendjemand eine Idee?

Mfg. Klaus

 

[testuser]

mittels steuerungsauftrag kann man die berechtigungen freischalten. bei der s7-300 mit tp177 war es die auftragnummer 23 und in den ersten parameter muss man das gewümschte level (berechtigung) eintragen. mittels der auftragsnummer 24 konnte man die berechtigungen wieder sperren.

bei uns war ein eks im einsatz. auf dem key befindet sich der personalnummer und das berechtigungslevel. wird der eks-key gesteckt, melde ich den user an; zieht er seinen eks-key wieder ab, wird er abgemeldet.

edit: ist auch in der hilfe erklärt, einfach mal nach steuerungsauftrag suchen.

 

[Matze001]

Zuviel Werbung?
-> Hier kostenlos registrieren

Alternativ kann man das auch per Script lösen.

Grüße

Marcel

 

[smille_17]

Erstmal besten Dank für die Schnellen Antworten.
@testuser
Ich versuche es gerade über den Steuerungsauftrag hinzubekommen. Bin da am Lesen und Lesen.
@Matze001
im Script schreiben bin ich nicht so gut, eher schlecht. So die grobe Richtung "keine Ahnung".:?
Hast du da vielleicht etwas fertig?
gruß Klaus

 

[ducati]

Hast du da vielleicht etwas fertig?

Sub Key()


Dim name1, name2, name3, name4, pw1, pw2, pw3, pw4
name1 = "Benutzer1"
pw1 = "Benutzer1"
name2 = "Benutzer2"
pw2 = "Benutzer2"
name3 = "Benutzer3"
pw3 = "Benutzer3"
name4 = "Benutzer4"
pw4 = "Benutzer4"


If SmartTags("Key_Panel") = 1 Then 'Benutzer1
	Logon pw1,name1
	
ElseIf SmartTags("Key_Panel") = 2 Then 'Benutzer2
	Logon pw2,name2
	
ElseIf SmartTags("Key_Panel") = 3 Then 'Benutzer3
	Logon pw3,name3
	
ElseIf SmartTags("Key_Panel") = 4 Then 'Benutzer4
	Logon pw4,name4
	
Else	'keine Bedienberechtigung
	Logoff
	
End If


End Sub

Das Script hängt an der Variablen "Key_Panel" und wird als Ereignis Wertänderung ausgeführt.
Die Benutzer müssen mit dem richtigen Namen und Passwort in der Benutzerverwaltung vom Panel angelegt sein.
Wenn der Benutzer nicht die richtigen Rechte hat, poppt aber trotzdem noch der Panel-Anmeldedialog auf. Dagegen einfach ein unsichtbaes rechteck über die jeweiligen EA-felder legen...

gruß.F