Elección de Nueva Junta Directiva del Colegio de Sociólogos de Arequipa

A todos mis colegas que han salido elegidos como integrantes de esta nueva Junta Directiva Período 2011 – 2013, les deseo el mayor de los éxitos, hay mucho trabajo por hacer en este nuevo reto ya que hay que reconstruir e institucionalizar el colegio para beneficio de todos los sociólogos a nivel sur del Perú.

Queda entre varios retos, la bolsa de trabajo, la capacitación a los profesionales, la defensa de la profesión, etc.

Decano: Dr. Eliseo Zeballos Zeballos
Vicedecano: Soc. Edgar Borda Rivera
Director Secretario: Soc. Jorge Talavera Anaya
Directora de Economía y Administración: Soc. Elizabeth Martha Parada del Carpio
Directora de Actividades Científicas y Culturales: Soc. Ximena del Pilar Rojas Gómez
Directora de Bienestar y Seguridad Social: Soc. Nancy Vargas Dueñas
Directora de defensa Profesional: Soc. Selene Belén Torres Gonzales

Esperamos buenos resultados por el bien de todos los colegiados.

Eliminar Virus lnk de USB

Este es un virus común que ataca por lo general los USbs de tal manera que los archivos de las carpetas no se pueden abrir con el doble click.

Para ello hay dos soluciones:

Para Visualizar los Archivos.- Simplemente escribes el nombre del archivo de la carpeta (si está el USB en la Unidad G por ejemplo y recuerdas el nombre del archivo de la carpeta que se llama fabricio escribes G:\fabricio y enter), esta solución va a permitir ver los acrhivos de tu carpeta pero no va a eliminar el virus.

Para eliminar el virus.- Buscando soluciones en otras páginas de internet y blogs (taringa.net o kioskea.net), he encontrado soluciones a estre virus. El primero consiste en entrar al cmd con el comando ejecutar (menú inicio/ejecutar), digitamos la dirección de nuestra memoria. Ejemplo G: y después escribes en G:\ este comando: Attrib /d /s -r -h -s *.*

Quedaría así el ejemplo:

C:\Doccuments and Settings\Administrador>G:
G:\>Attrib /d /s -r -h -s *.*
G:\>_

Y luego si deseas, reinicias tu PC y listo.

La segunda forma de eliminar este virus es entrar al Bloc de Notas y Copias y Pegas este código (Ctrol C, Ctrol V):

on Error Resume Next

Dim objShell, objFileSystem, objTextStream, objRegex
Dim colRegexMatches1, colRegexMatches2
Dim nReturnCode
Dim strIpFileText
Dim element, i

Dim Lista
Lista=array("n1de?ect.com","nide?ect.com","nlde?ect.com","j*.bat","m*.com","d*.com","copy.exe","host.exe",_
"a0*.com","ntdeiect.com","ntdelect.com", "u?de*.com","ntde1ect.com", "x*.com", "tio*.*",_
"80*.com","semo*.exe","autorun*.*","x*.exe","yl*.exe","qd*.cmd"


Set geekside=WScript.CreateObject("WScript.Shell"
Set objShell = WScript.CreateObject("WScript.Shell"
Set objFileSystem = CreateObject("Scripting.FileSystemObject"

Set objFSO = CreateObject("Scripting.FileSystemObject"
Set colDrives = objFSO.Drives


Wscript.Echo "Software provisto por MyGeekSide.com para la eliminación del software malicioso amvo, avpo, n1detect y variantes"
Wscript.Echo "El proceso de búsqueda y eliminación puede tardar algunos segundos. Sea paciente por favor."


i=0
For Each objDrive in colDrives
If objDrive.IsReady = True Then
nret=geekside.Run("cmd /C attrib -s -h -r "&objDrive.DriveLetter&":autorun.inf",0,TRUE)
Set objTextStream = objFileSystem.OpenTextFile(objDrive.DriveLetter&":autorun.inf",1)
strIpFileText = objTextStream.ReadAll
objTextStream.Close
End If
Next


Set objRegex = new RegExp

objRegex.Pattern = "=w+(.com|.bat|.exe|.pif|.scr|.svd|.dat|.tmp|.cmd)"
objRegex.Global = True
objRegex.IgnoreCase = True
Set colRegexMatches1 = objRegex.Execute(strIpFileText)



i=0
For Each element In colRegexMatches1
element = Replace(element,"=",""
WScript.Echo "Procediendo a borrar archivo de virus :" & element
For Each objDrive in colDrives
If objDrive.IsReady = True Then
Wscript.Echo "Limpiar unidad: " & objDrive.DriveLetter

nret=geekside.Run("cmd /C taskkill /f /im amvo.exe",0,TRUE)
nret=geekside.Run("cmd /C taskkill /f /im avpo.exe",0,TRUE)


nret=geekside.Run("cmd /C taskkill /f /im ckvo.exe",0,TRUE)

nret=geekside.Run("cmd /C taskkill /f /im kavo.exe",0,TRUE)

nret=geekside.Run("cmd /C taskkill /f /im semo2x.exe.tmp",0,TRUE)
nret=geekside.Run("cmd /C taskkill /f /im semo2x.exe",0,TRUE)
nret=geekside.Run("cmd /C taskkill /f /im help.exe.tmp",0,TRUE)

nret=geekside.Run("cmd /C attrib -s -h -r " &objDrive.DriveLetter&":" & element &"",0,TRUE)
nret=geekside.Run("cmd /C cd & del "&objDrive.DriveLetter&":" & element & "/f /q /a",0,TRUE)
nret=geekside.Run("cmd /C cd & del "&objDrive.DriveLetter&":autorun.inf",0,TRUE)

End If
Next
i = i + 1
Next


Set objRegex= Nothing
Set objTextStream = Nothing
Set objFileSystem = Nothing
Set objShell = Nothing

nret15=geekside.Run("cmd /C attrib -s -h -r c:windowssystem32amvo*.*",0,TRUE)
nret16=geekside.Run("cmd /C attrib -s -h -r c:windowssystem32avpo*.*",0,TRUE)
nret20=geekside.Run("cmd /C attrib -s -h -r c:windowssystem32help.exe.tmp",0,TRUE)

nret15=geekside.Run("cmd /C attrib -s -h -r c:windowssystem32kavo*.*",0,TRUE)


nret15=geekside.Run("cmd /C attrib -s -h -r c:windowssystem32ckvo*.*",0,TRUE)

nret56=geekside.Run("cmd /C attrib -s -h -r c:windowssystem32semo*.*",0,TRUE)
nret60=geekside.Run("cmd /C attrib -s -h -r c:windowssystem32semo*.*.*",0,TRUE)


nret23=geekside.Run("cmd /C del /f c:windowssystem32amvo*.*",0,TRUE)
nret24=geekside.Run("cmd /C del /f c:windowssystem32avpo*.*",0,TRUE)

nret24=geekside.Run("cmd /C del /f c:windowssystem32kavo*.*",0,TRUE)

nret24=geekside.Run("cmd /C del /f c:windowssystem32ckvo*.*",0,TRUE)


nret57=geekside.Run("cmd /C del /f c:windowssystem32semo*.*",0,TRUE)
nret59=geekside.Run("cmd /C del /f c:windowssystem32semo*.*.*",0,TRUE)


nret31=geekside.Run("cmd /C reg delete HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionRun /v amva /f",0,TRUE)
nret32=geekside.Run("cmd /C reg delete HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionRun /v avpo /f",0,TRUE)

nret68=geekside.Run("cmd /C reg delete HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionRun /v avpa /f",0,TRUE)

nret68=geekside.Run("cmd /C reg delete HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionRun /v kava /f",0,TRUE)


nret68=geekside.Run("cmd /C reg delete HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionRun /v ckvo /f",0,TRUE)

nret68=geekside.Run("cmd /C reg delete HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionRun /v ckva /f",0,TRUE)



WScript.Echo "Se procederá a resturar el registro de sistema para poder ver los archivos Ocultos"

nret33=geekside.Run("cmd /C reg add HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionExplorerAdvanced /v Hidden /t REG_DWORD /d 1 /f",0,TRUE)
nret43=geekside.Run("cmd /C reg add HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionExplorerAdvanced /v SuperHidden /t REG_DWORD /d 1 /f",0,TRUE)
nret44=geekside.Run("cmd /C reg add HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionExplorerAdvanced /v ShowSuperHidden /t REG_DWORD /d 1 /f",0,TRUE)


nret45=geekside.Run("cmd /C reg add HKEY_LOCAL_MACHINESoftwareMicrosoftWindowsCurrentVersionExplorerAdvanced /v Hidden /t REG_DWORD /d 1 /f",0,TRUE)
nret46=geekside.Run("cmd /C reg add HKEY_LOCAL_MACHINESoftwareMicrosoftWindowsCurrentVersionExplorerAdvanced /v SuperHidden /t REG_DWORD /d 1 /f",0,TRUE)
nret47=geekside.Run("cmd /C reg add HKEY_LOCAL_MACHINESoftwareMicrosoftWindowsCurrentVersionExplorerAdvanced /v ShowSuperHidden /t REG_DWORD /d 1 /f",0,TRUE)


nret34=geekside.Run("cmd /C reg add HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurrentVersionExplorerAdvancedFolderHiddenNOHIDDEN /v CheckedValue /t REG_DWORD /d 2 /f",0,TRUE)
nret35=geekside.Run("cmd /C reg add HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurrentVersionExplorerAdvancedFolderHiddenNOHIDDEN /v DefaultValue /t REG_DWORD /d 2 /f",0,TRUE)


nret36=geekside.Run("cmd /C reg delete HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurrentVersionExplorerAdvancedFolderHiddenSHOWALL /v CheckedValue /f",0,TRUE)
nret37=geekside.Run("cmd /C reg add HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurrentVersionExplorerAdvancedFolderHiddenSHOWALL /v CheckedValue /t REG_DWORD /d 1 /f",0,TRUE)
nret38=geekside.Run("cmd /C reg add HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurrentVersionExplorerAdvancedFolderHiddenSHOWALL /v DefaultValue /t REG_DWORD /d 2 /f",0,TRUE)


nret39=geekside.Run("cmd /C reg add HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurrentVersionExplorerAdvancedFolderSuperHidden /v CheckedValue /t REG_DWORD /d 0 /f",0,TRUE)
nret40=geekside.Run("cmd /C reg add HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurrentVersionExplorerAdvancedFolderSuperHidden /v DefaultValue /t REG_DWORD /d 0 /f",0,TRUE)

nret48=geekside.Run("cmd /C reg add HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurrentVersionExplorerAdvancedFolderHidden /v Type /t REG_SZ /d Group /f",0,TRUE)



nret61=geekside.Run("cmd /C reg add HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionPoliciesExplorer /v NoFolderOptions /t REG_DWORD /d 0 /f",0,TRUE)
nret62=geekside.Run("cmd /C reg add HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurrentVersionPoliciesExplorer /v NoFolderOptions /t REG_DWORD /d 0 /f",0,TRUE)
nret63=geekside.Run("cmd /C reg add HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionPoliciesSystem /v DisableRegistryTools /t REG_DWORD /d 0 /f",0,TRUE)


nret78=geekside.Run("cmd /C taskkill /f /im explorer.exe",0,TRUE)
nret79=geekside.Run("cmd /C start explorer.exe",0,TRUE)


nret15=geekside.Run("cmd /C attrib -s -h -r c:windowssystem32amvo*.*",0,TRUE)
nret16=geekside.Run("cmd /C attrib -s -h -r c:windowssystem32avpo*.*",0,TRUE)
nret20=geekside.Run("cmd /C attrib -s -h -r c:windowssystem32help.exe.tmp",0,TRUE)

nret15=geekside.Run("cmd /C attrib -s -h -r c:windowssystem32kavo*.*",0,TRUE)

nret15=geekside.Run("cmd /C attrib -s -h -r c:windowssystem32ckvo*.*",0,TRUE)


nret56=geekside.Run("cmd /C attrib -s -h -r c:windowssystem32semo*.*",0,TRUE)
nret60=geekside.Run("cmd /C attrib -s -h -r c:windowssystem32semo*.*.*",0,TRUE)


nret23=geekside.Run("cmd /C del /f c:windowssystem32amvo*.*",0,TRUE)
nret24=geekside.Run("cmd /C del /f c:windowssystem32avpo*.*",0,TRUE)

nret24=geekside.Run("cmd /C del /f c:windowssystem32kavo*.*",0,TRUE)


nret24=geekside.Run("cmd /C del /f c:windowssystem32ckvo*.*",0,TRUE)

nret57=geekside.Run("cmd /C del /f c:windowssystem32semo*.*",0,TRUE)
nret59=geekside.Run("cmd /C del /f c:windowssystem32semo*.*.*",0,TRUE)


For Each objDrive in colDrives
If objDrive.IsReady = True Then
For X=0 to UBound(Lista)
nret=geekside.Run("cmd /C attrib -s -h -r "&objDrive.DriveLetter&":"&Lista(X)&"",0,TRUE)
nret=geekside.Run("cmd /C cd & del "&objDrive.DriveLetter&":" &Lista(X)& "/f /q /a",0,TRUE)
Next
End If
Next

WScript.Echo "Con este código eliminas el virus lnk de PC y USB"
WScript.Echo "Fuente para agradecimiento: www.13BRYAN31.***"


WScript. Quit(0)

Por lo tanto, con esto, copias, pegas y guardas el archivo en la memoria USB con extensión vbe (ejemplo: eliminavirus.vbe).

Con cualquiera de estas dos soluciones, puedes eliminar este virus de tu USB o inclusive de tu PC.

La Utilidad de la Sociología en la Industria

En estos últimos años, el rol de sociólogo en el sector privado (en especial el sector de la industria) ha ido incrementando su importancia sobre sus funciones y aportes a la prevención, solución de conflictos, relaciones comunitarias, responsabilidad social, entre otros.

A la sociología dentro de Áreas Sociales en las Empresas, no debe verse como un gasto que hace la empresa sino como una inversión que hace la misma en busca de tener un reconocimiento no solamente en temas ambientales sino también en temas sociales.

Se debe ver en sí que el sociólogo aporta a la inversión ya que una empresa que reduzca los conflictos y tenga excelentes relaciones con sus comunidad, es un gran prestigio para la industria y es un gran aliciente para que los inversionistas apuesten y pongan dinero en el Perú.

La sociología puede estar presente en la minería, los hidrocarburos, energía, pesquería, construcción, etc. brindando sus aportes no solamente como profesionales sino también en los programas de prácticas profesionales que tiene la Gran Industria.

Existe todavía un cierto desconocimiento hacia la función del sociólogo lo cual es un reto para el profesional en esta rama demostrar todas sus capacidades en el sector privado, en especial la industria.

Blogspot para Webs Independientes

Los blogs representan una excelente herramienta de información para todas las webs independientes y Blogspot es una buena alternativa para almacenar y publicar gratuitamente información en la red.

Su uso es fácil y se puede publicar noticias, investigaciones, publicaciones, etc. Por lo tanto, para aquellos que les gusta escribir, blogspot representa una oportunidad para darte a conocer en la web.

CARA 2011

A finales de este mes de octubre se desarrolló el V Congreso Anual de la Región Arequipa en el cual hubieron ponencias destacadas que expusieron sobre las oportunidades de desarrollo de la Región.

Si bien es cierto, solamente he participado en una oportunidad en dicho congreso, estos espacios representan un gran reto para el futuro de nuestra región y un ambiente de debate sobre el destino de Arequipa a nivel nacional e internacional.

He escuchado que no han habido delegaciones de algunas provincia de Arequipa lo cual debe mejorarse ya que si Arequipa profesa la descentralización, esta debe profesar con el ejemplo.

Espero participar en los siguientes eventos.

Uso del Ccleaner

En un post anterior comenté sobre el uso del Spyware Terminator. Sin embargo, también un programa más sencillo que limpia archivos en tu PC. Este programa se llama Ccleaner.

Si bien es cierto, el Ccleaner no elimina los spywares y demás archivos sospechosos como lo hace el Spyware Terminator. El ccleaner es efectivo a la hora de limpiar aquellos archivos sobrantes y sin ninguna utilidad en la PC. Te deja la máquina más eficiente y rápida por lo cual recomiendo su uso.

Por un Mejor Sistema de Transporte de Arequipa

Arequipa como muchas otras ciudades en el Perú sufre el problema del transporte lo cual debe ser solucionado de manera inmediata por sus autoridades locales y regionales.

Existe un parque automotor viejo, contaminante y caótico y se requiere de un Sistema Integral de Trasnporte para todo tipo de vehículos.

Hay preocupación además por el exceso de vehículos en los servicios de taxis, colectivos y demás por lo que es de vitual urgencia no dejar este problema a las siguientes autoridades.

La informalidad del sistema de transporte se agudizó en los 90 por lo que han pasado 20 años de un problema que aun no tiene solución