Hallo,
ein klitzekleines Programmchen, welches den Computer nach einer Rainer-SCT-SmartCard durchsucht und ihn sperrt, wenn keine gefunden wurde.
Sollte mit ein wenig Modifikation auch bei andern Karten funktionieren.
mbfan
ein klitzekleines Programmchen, welches den Computer nach einer Rainer-SCT-SmartCard durchsucht und ihn sperrt, wenn keine gefunden wurde.
VB.NET-Quellcode
- Imports System.Management
- Public Class Form1
- Function GetHDDSerial() As String
- Dim searcher As New System.Management.ManagementObjectSearcher( _
- "SELECT * FROM Win32_PnPEntity")
- For Each wmi_HD As System.Management.ManagementObject In searcher.Get()
- If wmi_HD.ToString.Contains("SCFILTER") Then
- RichTextBox1.Text = RichTextBox1.Text & wmi_HD.ToString & vbNewLine
- End If
- Next
- ' Falls Index nicht gefunden, Leerstring zurückgeben
- Return ""
- End Function
- Function überprüfung() As Boolean
- RichTextBox1.Clear()
- Dim searcher As New System.Management.ManagementObjectSearcher( _
- "SELECT * FROM Win32_PnPEntity")
- For Each wmi_HD As System.Management.ManagementObject In searcher.Get()
- If wmi_HD.ToString.Contains("SCFILTER") Then
- RichTextBox1.Text = RichTextBox1.Text & wmi_HD.ToString & vbNewLine
- End If
- Next
- If RichTextBox1.Text.Contains("SCFILTER\\CID_80\") Then '
- Return True
- Else
- Return False
- End If
- End Function
- Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
- tim_überprüfung.Start()
- Me.Visible = False
- Me.Opacity = "0"
- End Sub
- Private Sub tim_überprüfung_Tick(sender As System.Object, e As System.EventArgs) Handles tim_überprüfung.Tick
- If überprüfung() = False Then
- Process.Start(Environment.GetFolderPath(Environment.SpecialFolder.System) & "\rundll32.exe", "user32.dll,LockWorkStation")
- End If
- End Sub
- End Class
Sollte mit ein wenig Modifikation auch bei andern Karten funktionieren.
mbfan