Squid

un manejo de archivos y bloqueo de programas muy util es el squid aqui dejo algunos parametros

bloquear messenger

acl msnmime req_mime_type ^application/x-msn-messenger
acl msngw url_regex -i gateway.dll
http_access deny msnmime
http_access deny msngw
#Definir rango IP Local
acl LAN src 1xx.xx.x.x-1xx.xx.x.xxx/255.255.255.255
acl dbod src 1xx.xx.x.x
acl dfin src 1xx.xx.x.x
http_access deny dbod
http_access deny dfin

Concepto de acl


y por ultimo para administrar todo tenemos el webmin una pantalla

ntop

quien no quiere supervisar o reportar el acceso de inter por ususario.
No hay mejor software que ntop

Para instalarlo en CentOs
con el simple Gestor yum[xcero@one ~]#yum install ntop
[xcero@one ~]# ntop -i "eth0,eth1" -d -L -u ntop -P /var/ntop/ --skip-version-check --use-syslog=daemon


dejo de referencia un link muy bueno: http://homepage.mac.com/duling/halfdozen/

Me perdi

Bueno estos dias he pensado en publicar esto o aquello pero nunca , la razon es que he estado fuera de forma con linux me he estado dedicando a cosas como averiguar servicetag equipo dell de la compañia me encontre este script en vbs.

 
On Error Resume Next
 
 
 
do while strcomputer = "" and a < 2
 
  strcomputer = Inputbox ("Introduce  direccion IP o Nombre de Pc","Informacion Remota","IP")
 
  strcomputer = trim(strcomputer)
 
  a = a + 1
 
loop
 
if not strComputer <> "" then
 
 wscript.echo "No computer name entered, ending script"
 
 wscript.quit
 
end if
 
 
 
On Error Resume Next
 
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
 
if err.number <> 0 then
 
 if err.number = -2147217405 then
 
  wscript.echo "You do not have sufficient access rights to this computer"
 
  wscript.quit
 
  else
 
  wscript.echo "Could not locate computer" &vbcrlf& "Please check IP Address/Computer Name and try again"
 
  wscript.quit
 
 end if
 
end if
 
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_BIOS")
 
Set colItems1 = objWMIService.ExecQuery("SELECT * FROM Win32_ComputerSystem")
 
Set colItems2 = objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration Where IPEnabled = True")
 
Set colitems3 = objWMIService.ExecQuery("SELECT * FROM Win32_computersystem")
 
Set colitems4 = objWMIService.ExecQuery("SELECT * FROM Win32_NetworkLoginProfile")
 
Set colitems5 = objWMIService.ExecQuery("SELECT * FROM Win32_LogicalDisk Where DriveType = 3")
 
 
 
 
 
Set objExplorer = CreateObject("InternetExplorer.Application")
 
objExplorer.Navigate "about:blank"
 
objExplorer.ToolBar = 0
 
objExplorer.StatusBar = 0
 
objExplorer.Width = 800
 
objExplorer.Height = 600
 
objExplorer.Left = 100
 
objExplorer.Top = 100
 
objExplorer.Visible = 1
 
Do While (objExplorer.Busy)
 
Loop
 
 
 
Set objDocument = objExplorer.Document
 
objDocument.Open
 
objDocument.Writeln ""
  
objDocument.Writeln ""
  
 
 
' Computer Detals
 
 
 
For Each objItem In colItems
 
 serial = objitem.serialnumber
 
next
 
For Each objItem In colItems1
 
 hostname = objitem.caption
 
 make = objitem.manufacturer
 
 model = objitem.model
 
next
 
 
 
objDocument.Writeln "Computer Information For: " & Ucase(hostname) & "



"
 
objDocument.Writeln "Serial : " & Serial & "

"
 
objDocument.Writeln "Make : " & make & "

"
 
objDocument.Writeln "Model : " & Model & "

"
 
 
 
For Each objItem In colItems5
 
 driveletter = objitem.name
 
 capacity = ((objitem.size / 1024) / 1024) / 1024
 
 free = ((objitem.FreeSpace / 1024) / 1024) / 1024
 
 free = FormatNumber (free,2)
 
 capacity = FormatNumber (capacity,2)
 
 
 
 
 
objDocument.Writeln "Capacity of " &driveletter& " - " & capacity & "GB

"
 
objDocument.Writeln "Free Space on " &driveletter& " - " & Free & "GB

"
 
 
 
next
 
 
 
objDocument.Writeln "

Please Wait, gathering more information...



"
 
 
 
' User Details
 
 
 
For Each objItem In colItems3
 
 loggedon = objitem.username
 
next
 
For Each objItem In colItems4
 
 cachedlog = objitem.name
 
 username = objitem.FullName
 
 passwordexpire = objitem.passwordexpires
 
 badpassword = objitem.badpasswordcount
 
 if loggedon = cachedlog then
 
  objDocument.Writeln "User Information For...

"
 
  objDocument.Writeln "" & username & "



"
 
  objDocument.Writeln " User Name :" & loggedon &"

"
 
  objDocument.Writeln " Incorrect Password Attempts : " & badpassword &"

"
 
  on error resume next
 
  Set objaccount = GetObject("WinNT://**********/" &objitem.caption & ",user")
 
  if Err.Number <> 0 Then
 
   objDocument.Writeln "unable to retrieve password expiration information

"
 
  Else
 
   If objAccount.PasswordExpired = 1 Then
 
    objDocument.Writeln "Password has Expired!

"
 
   Else
 
    objDocument.Writeln "Password Expires " & objAccount.PasswordExpirationDate & " 



"
 
   end if
 
  end if
 
 end if
 
next
 
 
 
' Network Adapter Details
 
For Each objItem In colItems2
 
 ipaddress = objitem.ipaddress(0)
 
 description = objitem.description
 
 DHCP = objitem.DHCPserver
 
 Domain = objitem.DNSdomain
 
 mac = objitem.MACaddress
 
 DNS = objitem.dnsserversearchorder(0)
 
 DNS1 = objitem.dnsserversearchorder(1)
 
 DNS2 = objitem.dnsserversearchorder(2)
 
 wins1 = objitem.winsprimaryserver
 
 wins2 = objitem.winssecondaryserver
 
 
 
 if not ipaddress = "0.0.0.0" then
 
  objDocument.Writeln "Network Adapter Details For...

"
 
  objDocument.Writeln "" & description & "



"
 
  objDocument.Writeln " IP Address :" & ipaddress &"

"
 
  objDocument.Writeln " DHCP Server : " & DHCP &"

"
 
  objDocument.Writeln " Domain Name : " & domain &"

"
 
  objDocument.Writeln " MAC Address : " & mac &"

"
 
  objDocument.Writeln " Primary DNS : " & DNS &"

"
 
  objDocument.Writeln " Secondary DNS : " & DNS1 &"

"
 
  objDocument.Writeln " Tertiary DNS : " & DNS2 &"

"
 
  objDocument.Writeln " Primary WINS : " & wins1 &"

"
 
  objDocument.Writeln " Secondary WINS : " & WINS2 &"



"
 
 end if
 
next
 
objDocument.Writeln "Script Finished



"  

Te despliega en una ventana lo siguiente
Computer Information For: ES
Serial :
Make : Dell Inc.Model : OptiPlex
Capacity of C: -
Space on C:
Name :NETWORK\
Incorrect Password Attempts : 0
Adapter Details For...Intel(R) 82566DM-2 Gigabit Network ConnectionIP Address :
Server :
Domain Name :
MAC Address :
DNS
DNS : Tertiary DNS : Primary WINS : Secondary WINS : Script Finished