could change your writelog to something like:
Code:
Function WriteLog($LineToWrite,$sType,Optional $sValue)
    $log.WriteLine($LineToWrite + "	" + 
     left(chr(9)+chr(9)+chr(9)+chr(9),(33>LEN($LineToWrite))*(32-LEN($LineToWrite))/8) +
     $sType + "		" + $sValue)
EndFunction
_________________________
!

download KiXnet