JLanChat

jLanChat

jLanChat

JLanChat ist ein kleines Java Programm das auf Windows und Unix Rechnern läuft, mit dem man kurz mal quer durchs Haus rufen kann. Absendeadressse ist der Hostname und es gibt regulär noch einen Zeitstempel.

Wir verwenden das Tool als Ersatz für die Windows Messaging Dienste die seit ca. 2006 aus Sicherheitsgründen abgeschaltet wurden. Damals konnte man SPAM Nachrichten versenden.

Sinn ist es, kurze Direktnachrichten an alle angemeldeten PCs zu verschicken. Wer nicht da ist, den betrifft es nicht und Nachrichten von gestern interessieren nicht. Wenn man was verpasst, ist es vielleicht auch nicht so schlimm.

Der Author, Herr Roth, hat uns für die Bibliothek eine Spezialversion angepasst, und wenn man Ihn fragt, baut er bestimmt noch andere Sachen ein:

Der JLanChat in der TU-Harburg Version kann folgendes:

  • Beim betreten / verlassen des Chats wird keine Nachricht bei den anderenChatteilnehmern ausgegeben. Grund: das nervt bei unserem Einsatz nur, und viel wichtiger: Es soll keine Kontrolle der Mitarbeiter stattfinden.

Ja. erschütternt einfach das ganze Denke mal das ich in den kommenden Tagen mal berichte, wie es sich im Alltag so macht.

Anbei noch ein .VBS Script, das den Link im Startmenü von WindowsXP/7 anlegt.

' JLanChat
' Mike Rinne, TUB, 31.05.2011 - JLanChat - Werkzeuge Verzeichnis mus
s schon existieren!
' Mike Rinne, TUB, 20.06.2011 - Plus Link im AllUsers Autostart.

Option Explicit

Dim fs, WshShell, AllUsersProfile, AllUsersDesktop, UsersProfile, LinkName, MyShortcut

set fs = CreateObject("Scripting.FileSystemObject")    'Dateisystem
Set WshShell = WScript.CreateObject("WScript.Shell")

' *****************************
' Pfade einstellen.
' *****************************

UsersProfile = (WSHShell.ExpandEnvironmentStrings("%USERPROFILE%"))

' *****************************
' Betriebsystem feststellen
' *****************************

Select Case (WSHShell.ExpandEnvironmentStrings("%ALLUSERSPROFILE%"))

Case "C:\ProgramData" :  AllUsersProfile = (WSHShell.ExpandEnvironmentStrings("%ALLUSERSPROFILE%")) & "\Microsoft\Windows\Start Menu\Programs"         ' Vista-W7
Case "C:\Dokumente und Einstellungen\All Users" :  AllUsersProfile = (WSHShell.ExpandEnvironmentStrings("%ALLUSERSPROFILE%")) & "\Startmenü\Programme"  ' XP

Case "":  WScript.Quit

End Select

LinkName = "\Werkzeuge\Chat.lnk"

'***********************
' Desktoplink - All Users
'***********************

if fs.FileExists (AllUsersProfile + LinkName ) then

' **** Alten Link löschen - während der Testphase****
' fs.DeleteFile (AllUsersProfile + LinkName)

Else

Set MyShortcut = WSHShell.CreateShortcut(AllUsersProfile+LinkName)

' Windows-Style 3 ist maximiert...

MyShortcut.TargetPath = ("%ProgramFiles%\JLanChat\JLanChat.jar")

MyShortcut.WorkingDirectory = ("%ProgramFiles%\JLanChat")
MyShortcut.WindowStyle = 2
MyShortcut.Description = ("Chat @ TUB intern")
MyShortcut.IconLocation = ("%ProgramFiles%\JLanChat\balloon-white.ico")

MyShortcut.Save

End IF

LinkName = "\Autostart\Chat.lnk"

'***********************
' Desktoplink - All Users
'***********************

if fs.FileExists (AllUsersProfile + LinkName ) then

' **** Alten Link löschen - während der Testphase****
' fs.DeleteFile (AllUsersProfile + LinkName)
' WScript.Quit

Else

Set MyShortcut = WSHShell.CreateShortcut(AllUsersProfile+LinkName)

' Windows-Style 3 ist maximiert...

MyShortcut.TargetPath = ("%ProgramFiles%\JLanChat\JLanChat.jar")
MyShortcut.WorkingDirectory = ("%ProgramFiles%\JLanChat")
MyShortcut.WindowStyle = 2
MyShortcut.Description = ("Chat @ TUB intern")
MyShortcut.IconLocation = ("%ProgramFiles%\JLanChat\balloon-white.ico")

MyShortcut.Save

End IF
Advertisements

Über Tartuffeln

I work as a systems administrator for a great library
Dieser Beitrag wurde unter 13 Dinge, 13Dinge, Computer abgelegt und mit verschlagwortet. Setze ein Lesezeichen auf den Permalink.

Kommentar verfassen

Trage deine Daten unten ein oder klicke ein Icon um dich einzuloggen:

WordPress.com-Logo

Du kommentierst mit Deinem WordPress.com-Konto. Abmelden / Ändern )

Twitter-Bild

Du kommentierst mit Deinem Twitter-Konto. Abmelden / Ändern )

Facebook-Foto

Du kommentierst mit Deinem Facebook-Konto. Abmelden / Ändern )

Google+ Foto

Du kommentierst mit Deinem Google+-Konto. Abmelden / Ändern )

Verbinde mit %s