Wie Sie eine ldb-Datei auslesen und daraus Netsend-Nachrichten erstellen.
In der ldb-Datei werden alle User aufgeführt, die in einer Datenbank arbeiten, oder genaugenommen alle, die zuletzt mit ihr gearbeitet haben. D.h. jeder neue User wird angehängt, der letzte User löscht die ganze Datei. Trotz dieser Einschränkung kann man mit Hilfe der Rechnernamen den Nutzer eine Nachricht zukommen lassen, z.B. sie bitten, sich abzumelden.
Der hier gezeigte Netsend-Befehl funktioniert zwar nur unter NT, aber das hier soll ja auch nur ein Tipp sein ;-). Und unter Win2000 habe ich z.Zt. noch Probleme, die ldb-Datei überhaupt zu lesen. Vielleicht hat jemand einen Tipp für mich.
-----------------------------------------------
Private Type Datensatz
strRechner As String * 32 ' Rechnername
strUser As String * 32 ' Access-Anmeldename
End Type
-----------------------------------------------
Private Sub cmdSend_Click()
Dim i As Integer
Dim RunBatch As Variant
Dim DS As Datensatz
Dim strSendTo As String
' ldb-Datei aus dem Datenbanknamen zusammenbasteln
Open Left$(Me.txtDatabase, Len(Me.txtDatabase) - 3) _
& "ldb" For Random As #1 Len = Len(DS)
' ersten Datensatz lesen
i = 1
Get #1, i, DS
' weiterlesen, solange Inhalt nicht gleich ASCII 0
Do While Asc(Left(DS.strRechner, 1)) <> 0
' manchmal müssen ein paar ASCII 0 entfernt werden
strSendTo = Trim(DS.strRechner)
Do While Asc(Right$(strSendTo, 1)) = 0
strSendTo = Left$(strSendTo, Len(strSendTo) - 1)
Loop
' Netsend-Befehl absetzen
RunBatch = Shell("net send " & strSendTo _
& " "" " & Me.txtText & """", vbNormalFocus)
' nächsten Datensatz lesen
i = i + 1
Get #1, i, DS
Loop
Close #1
End Sub
-----------------------------------------------