用VBS写脚本比较简单
Dim user
user = HMIRuntime.Tags("@CurrentUsername").Read
Select case UCase(user)
Case "A"
HMIRuntime.Tags("Tag1").Write 1
HMIRuntime.Tags("Tag2").Write 0
HMIRuntime.Tags("Tag3").Write 0
Case "B"
HMIRuntime.Tags("Tag2").Write 1
HMIRuntime.Tags("Tag1").Write 0
HMIRuntime.Tags("Tag3").Write 0
Case "C"
HMIRuntime.Tags("Tag3").Write 1
HMIRuntime.Tags("Tag1").Write 0
HMIRuntime.Tags("Tag2").Write 0
Case else
HMIRuntime.Tags("Tag1").Write 0
HMIRuntime.Tags("Tag2").Write 0
HMIRuntime.Tags("Tag3").Write 0
End Select