Syslog Server for windows

many applications, appliances and services have an option for logging to a syslog server.
You can setup a vanilla linux server for this. an other option is to use the Aonaware Syslog Daemon.
it is a windows service that runs a syslog server. All the received messages will be parsed to a MS sql server. very handy if you have a windows-only environment.

Remind your visions of life with a digital photo frame

i've read books about different subjects like management and other theoretical books. All these books have one thing in common ... they all had a shema to remember and to use it as a tool. unfortunately i forget these schema's.

But my idea is to buy a digital photo frame and put the schema's as photo on this photo frame so i will see the shema's between the nice pictures of me.

scan wifi in the neighborhood

inSSider is a Netstumbler alternative.
Both of the applications use your Wireless Network adapter to scan all the Access Points in your neighborhood. When you experiencing latency on you wifi you use these tools to see what channels are used in the neighborhood. Try to find a channel that is not used or selectt one that is used by the access points far away(week signal)....

You can also use these applications to align antenna's.

Also Xirrus Wi-Fi Inspector  is such an application. (didnt test it)

Sending SMS with GSM modem

i lost the link to the original webpage where i found this.
but it works ....

i used an HUAWEI E160E modem


Imports System.IO.Ports

Public Class SMSSender



Dim WithEvents serialport As New IO.Ports.SerialPort
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Public Sub New()

End Sub

Public Sub SendMessage(ByVal SerialPortName As String, ByVal PhoneNumber As String, ByVal TextMessage As String)
If SerialPort.IsOpen Then
SerialPort.Close()
End If

Try
SerialPort.PortName = SerialPortName
SerialPort.BaudRate = 192000
SerialPort.Parity = Parity.None
SerialPort.DataBits = 8
SerialPort.StopBits = StopBits.One
SerialPort.Handshake = Handshake.RequestToSend
SerialPort.DtrEnable = True
SerialPort.RtsEnable = True
SerialPort.NewLine = vbCrLf
SerialPort.Open()

SerialPort.WriteLine("AT+CMGF=1" & vbCr)
System.Threading.Thread.Sleep(200)
SerialPort.WriteLine("AT+CMGS=" & Chr(34) & PhoneNumber & Chr(34) & vbCr)
System.Threading.Thread.Sleep(200)
SerialPort.WriteLine(TextMessage & vbCrLf & Chr(26))
System.Threading.Thread.Sleep(200)
Catch ex As Exception

Finally

SerialPort.Close()
End Try

End Sub

Public Sub GetModes(ByVal SerialPortName As String)
If SerialPort.IsOpen Then
SerialPort.Close()
End If
Dim myline As Object
Try
SerialPort.PortName = SerialPortName
SerialPort.BaudRate = 96000
SerialPort.Parity = Parity.None
SerialPort.DataBits = 8
SerialPort.StopBits = StopBits.One
SerialPort.Handshake = Handshake.RequestToSend
SerialPort.DtrEnable = True
SerialPort.RtsEnable = True
SerialPort.NewLine = vbCrLf
SerialPort.Open()

SerialPort.WriteLine("AT+CMGF=1" & vbCr)
System.Threading.Thread.Sleep(200)
serialport.WriteLine("AT+CMGL=" + Chr(34) + "ALL" + Chr(34) & vbCr)
serialport.WriteLine("AT+CMGL=" + Chr(34) + "REC UNREAD" + Chr(34) & vbCr)
myline = SerialPort.ReadExisting()

Catch ex As Exception

Finally

serialport.Close()
serialport.Dispose()
End Try

End Sub

End Class


If you want to deploy sms for all your users use an smtp2sms gateway
there are plenty on the internet

i did a setup with Network SMS Gateway and took about 5 minutes

enjoy

polarization of wireless antenna's

When you install a wireless bridge you have to recognize the importance of the antenna polarization

See this and read about it on wikipedia

when you understand this, you have also a good idea on how to align wifi antenna's.

comments to files via the windows explorer

the reg file :

Windows Registry Editor Version 5.00

[HKEY_CLASSES_ROOT\AllFilesystemObjects]

[HKEY_CLASSES_ROOT\AllFilesystemObjects\shell]

[HKEY_CLASSES_ROOT\AllFilesystemObjects\shell\CommentFile]

[HKEY_CLASSES_ROOT\AllFilesystemObjects\shell\CommentFile\command]
@="cscript c:\\listdoc.vbs %1"

the vbscript file

LogDirectory = "C:\"
strLogName = "listfile.csv"


nota = InputBox("nota" ,"nota","")
Set args = WScript.Arguments
arg1 = args.Item(0)
Append_File(arg1 & ";" & nota)

' -------------------------------------------------------
' Append_File
' -------------------------------------------------------


Function Append_File(txt_info)
On Error Resume Next
Dim objFileSystem, objOutputFile
Const OPEN_FILE_FOR_APPENDING = 8
strOutPutFile = LogDirectory & strLogName

Set objFileSystem = CreateObject("Scripting.fileSystemObject")

If objFileSystem.FileExists(strOutPutFile) Then
Set objOutputFile = objFileSystem.OpenTextFile(strOutPutFile, OPEN_FILE_FOR_APPENDING)
Else
Set objOutputFile = objFileSystem.CreateTextFile(strOutPutFile, True)
End If

objOutputFile.WriteLine (Now & ";" & txt_info)


objOutputFile.Close
Set objFileSystem = Nothing
End Function

cannot open pdfs behind a watchguard firewall

if you use watchguard firewalls and you use the http proxy for outgoing connections, you can have problems with opening pdf's in internet explorer.

To solve this issue open the wathcguard policy manager.
Click on "setup" in the menu and select for "actions" and choose for "proxies".
Double click on the http client proxy policy.

in the section "HTTP response" select "content types".
pres the add button on the right side of the window.

in the "rule setting" section choose for "exact match" and type in the textbox "multipart/byteranges"
in the "action" section choose for "AV scan" and press the "OK" button.

Save the config and from now on you can pdfs in the internet explorer screen.


you arent the sysadmin of the watchguard?

right click the pdf and save the pdf first on your desktop or install foxit pdf reader (wich is a smaller but faster pdf reader)