Hola, navegando por la web, he encontrado un ejemplo de programación realizado magistralmente, se llama

Magenta Systems WMI and SMART Component v5.1

Su página web: http://www.magsys.co.uk

Lo podéis bajar aquí: http://www.magsys.co.uk/download/software/magwmi51.zip

Consulta todas estas funciones, con sólo una función.

Win32_OperatingSystem
Win32_Keyboard
Win32_AutochkSetting
Win32_DiskDrive
Win32_DiskDrivePhysicalMedia
Win32_PhysicalMedia
Win32_LogicalDisk
Win32_MappedLogicalDisk
Win32_TapeDrive
Win32_BaseBoard
Win32_BIOS
Win32_Bus
Win32_DeviceSettings
Win32_IDEController
Win32_MemoryDevice
Win32_PhysicalMemory
Win32_PNPDevice
Win32_PortConnector
Win32_Processor
Win32_SerialPort
Win32_SerialPortConfiguration
Win32_SerialPortSetting
Win32_SoundDevice
Win32_SystemBIOS
Win32_USBController
Win32_USBControllerDevice
Win32_NetworkAdapter
Win32_NetworkAdapterConfiguration
Win32_NetworkAdapterSetting
Win32_Printer
Win32_PrinterConfiguration
Win32_POTSModem
Win32_POTSModemToSerialPort
Win32_DesktopMonitor
Win32_DisplayConfiguration
Win32_VideoController
Win32_VideoSettings
Win32_ActiveRoute
Win32_IP4PersistedRouteTable
Win32_IP4RouteTable
Win32_NetworkClient
Win32_NetworkConnection
Win32_BootConfiguration
Win32_ComputerSystem
Win32_MotherboardDevice
Win32_SystemUsers
Win32_SystemTimeZone
Win32_SystemSetting
Win32_Account
Win32_UserAccount
Win32_SystemAccount
Win32_Group
Win32_LogonSession
Win32_ComputerSystemWindowsProductActivation
Win32_WindowsProductActivation
Win32_FontIntoAction
Win32_ScheduledJob
Win32_Process
Win32_ServiceControl
Win32_Product
Win32_TemperatureProbe
Win32_StartupCommand
Win32_BaseService
Win32_Service
Win32_Desktop
Win32_Environment
Win32_LogicalProgramGroup
Win32_ProgramGroup
Win32_PerfFormattedData_RemoteAccess_RASTotal
Win32_PerfFormattedData_RemoteAccess_RASPort
Win32_PerfRawData_RemoteAccess_RASPort

Tiene un ejemplo clarísimo que os puede sacar de dudas, y se puede usar.

Hola, publico el único algoritmo que me ha funcionado en Delphi para encontrar los servidores activos de SQL disponible.

También listar servidores de sql server desde TSQL

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, ActiveX, ComObj, AdoInt, OleDB, StdCtrls;

procedure ListAvailableSQLServers(Names : TStrings);
var
  RSCon                    : ADORecordsetConstruction;
  Rowset                   : IRowset;
  SourcesRowset            : ISourcesRowset;
  SourcesRecordset         : _Recordset;
  SourcesName, SourcesType : TField;
begin
  OleCheck(CoCreateInstance(CLASS_Recordset, nil, CLSCTX_INPROC_SERVER or
                            CLSCTX_LOCAL_SERVER, IUnknown, SourcesRecordset) );
  RSCon := SourcesRecordset as ADORecordsetConstruction;

  SourcesRowset := CreateComObject(ProgIDToClassID('SQLOLEDB Enumerator'))
                   as ISourcesRowset;
  OleCheck(SourcesRowset.GetSourcesRowset(nil, IRowset, 0, nil, IUnknown(Rowset)));
  RSCon.Rowset := RowSet;
  with TADODataSet.Create(nil) do
  try
    Recordset := SourcesRecordset;
    SourcesName := FieldByName('SOURCES_NAME'); { do not localize }
    SourcesType := FieldByName('SOURCES_TYPE'); { do not localize }
    Names.BeginUpdate;
      try
        while not EOF do
        begin
          if (  (SourcesType.AsInteger = DBSOURCETYPE_DATASOURCE) and
                (SourcesName.AsString <> '')
             )
          then
            Names.Add(SourcesName.AsString);
          Next;
        end;
      finally
        Names.EndUpdate;
     end;
  finally
    Free;
  end;
end;

//Si queréis un ejemplo completo, con servidores sql server y bases de datos, descargadlo aquí

Para aquellos que estén interesados en plantearse construir un servidor, hay una serie de herramientas imprescindibles que hay que aprender y dependiendo de la seriedad del uso, dominar.

Apache — Servidor web. No hay otro mejor

Bind — Servidor DNS. Cuando tenemos muchas máquina

Dhcp — Configurar asignamiento dinámico de ips en redes locales

sFtp — Ftp seguro. Sabíais que el correo electrónico y el ftp van por las redes sin seguridad?

En el manual hay muchísimas más. Son 500 páginas, un manual muy completo. Lo podéis descargar aquí abajo.

En la dirección de

http://www.alcancelibre.org/filemgmt/index.php?id=1

Estoy usando actualmente la versión Hardy y no tiene de serie el gmail notifier que nos avisa de cuántos correos tienes y todo eso. No vi el paquete en el repositorio standard, acudí a esta página donde nos lo explican para debian. Es perfectamente válido para Ubuntu:

http://www.debianadmin.com/gmail-notifier-for-ubuntu.html

Hola, ya le tenía manía a estos aparatos del demonio y ahora todavía más.

Mirar cómo salen las palómitas a dos centímetros de distancia con un móvil.

Cuando instalar un windows 3.1 eran 7 diskettes, y el duke nukem eran 22 Diskettes, la era de la informática no acababa de despegar, un diskette defectuoso era una gran decepción. Los diskettes se jodían a la mínima. Horribles sonidos salían de la diskettera, meef puuff meeg

Mirar el video.

El scanner tocando Vivaldi

Gracias Sr, Ghanum por este video: Ey, ved su página www.bigdeluxe.net

Esta entrada podría ser el sumun del arte hecho con old fashions computers

Ayer, probé a instalar el software de mi trabajo en Linux, una aplicación compilada en Delphi para ejecutarla en Ubuntu.

Para ello tuve que usar Wine,

Para instalar wine, simplemente, ejecutamos en nuestra consola:

sudo apt-get install wine

una capa de librerías Windows que funcionan nativamente sobre linux. Como sus siglas recursivas indican, Wine Is Not Emulator.

Para instalar la Base de Datos, tuve que instalar el motor BDE de Borland, lo encontré en su versión 511 aquí.

También la aplicación usaba ADO, así que tuve que instalar el MDAC, lo encontré aquí.

Vamos a ser un poquito más ambiciosos y vamos a instalar el Internet Explorer 6 (con vistas a instalar sql server 2005)

Seguimos las instrucciones de esta página para instalarlo en nuestro Wine.

sudo apt-get update
sudo apt-get install wine libxxf86dga1 libxxf86vm1 cabextract

wget http://www.tatanka.com.br/ies4linux/downloads/ies4linux-latest.tar.gz
tar zxvf ies4linux-latest.tar.gz
cd ies4linux-*
./ies4linux

Un minuto de silencio por la tirada de horas que los chicos de ie4linux han gastado por nosotros.

Hola, amigos de la seguridad y de mi blog:

he estado explorando googling casi durante dos horas buscando un script para añadir usuarios, pues un cliente con 50 usuarios quiere implementar un sistema del trabajo y dar de alta 50 usuarios uno por uno es un rollo, la verdad que me he vuelto loco buscando, por aquí por allí, sólo veía soluciones para sistemas con Directorio Activo, que por cierto aborrezco.

La solución es muy simple, simplemente con los comandos net user y net group estaría listo.

Es decir, para crear un usuario: pepe

contraseña: 32UFfs3

Grupo: Usuarios de Terminal Server

Los comandos serían:

“net user pepe 32UFfs3 /add /expires:never /passwordchg:no“

Crea un usuario pepe con contraseña 32UFfs3, no caduca el password y no se puede cambiar password.

“net localgroup “Usuarios de Escritorio Remoto” pepe /add”

Agrega al grupo Usuarios de Escritorio Remoto el usuario pepe.

Con estos dos comandos, podemos fácilmente elaborar un script en cualquier lenguaje

Lo encontré en unos video-tutoriales de hacking para windows XP, una moda muy útil.

http://www.revver.com/video/808922/how-to-hack-an-administrator-account-in-windows-xp/

Añado a este tutorial una entrada de registro para ocultar el usuario pepe:

reg add “HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\SpecialAccounts\UserList” /v pepe /t REG_DWORD /d 0

No hay que ser un genio para reconocer lo bien diseñado que está el Sistema Operativo Mac Os X

por casualidad hoy me he topado con una entrada/tutorial donde te indican paso a paso, hacer que nuestro Ubuntu se parezca a un Mac Os X Tiger.

http://lineupblog.com/weblog/2007/05/01/haz-que-ubuntu-luzca-como-mac-osx/

Fisgando por los posts de otros blogs, he llegado a la página oficial de traducciones de Ubuntu,

https://wiki.ubuntu.com/UbuntuSpanishTranslators

Participar es muy fácil, primero, firmar un código de conducta, una promesa de ser buenos chicos y ser fiables. En fin, creo que quien se mete a ayudar en un proyecto, no va con intenciones de fastidiar.

https://launchpad.net/people/+me/+codesofconduct

Esta frase me hizo gracia:

Por el momento confiamos en la teoría del caos y se puede empezar a traducir aquel paquete en el que se tenga un interés personal.

y para empezar a traducir, seguid este link, así de sencillo, contribuiremos a abrir horizones a los usuarios del idioma de Cervantes.

https://translations.launchpad.net/distros/ubuntu/gutsy/+lang/es

Se sustituye gutsy por la distribución que queramos traducir, dapper, edgy o feisty.

Sería muy interesante que los traductores leyeran el artículo:

Anglicismos, barbarismos, neologismos y «falsos amigos» en el lenguaje informático

Ánimo Chicos

Hola Amigos Blogueros,

Posteo un programita que hice en Delphi por aburrimiento el fin de semana pasado, se trata de un conversor de divisas que se conecta a Internet, a la página de yahoo finance divisas, baja el factor de conversión y puedes usar una cantidad origen para calcular cuánto vale una divisa convertida en otra.

Si queréis el código fuente, dejad un comentario.

El programita es parecido a este dibujo:

El programa ejecutable compilado en Delphi, por desgracia en güindu32 lo podéis descargar de este link

Hola blogueros,

Este es un post muy ambicioso para publicar mis favoritos sobre el lenguaje de programación Delphi, en el cual programo día a día y acumulo muchísimos favoritos, tengo cientos, a continuación los dejo desordenados, y los iré comentando poco a poco, si me ayudáis, podremos construir entre todos unos favoritos elegantes y comentados de qué sirve cada uno, así será bueno para que los que busquen una página, no tengan que andar “mendigando” en GUGLE.

Aquellos que estén en inglés, les pondremos EN al final, los de español ES. Debajo pondré una breve descripción y también unas palabras clave para que podamos localizar más rápido.

Se me ocurre dividir los links por:

TRUCO — Son pequeños algoritmos que nos sacan de un apuro muy concreto

APUNTE — Tutoriales aclaratorios sobre un TEMA Delphi o un Componente Delphi

COMPONENTE — Páginas dedicadas de fabricantes de Componentes famosos que consideramos muy útiles en Delphi.

BBDD_ — Bases de Datos, Páginas dedicadas a bases de datos, con independencia del Lenguaje Delphi, serán un anexo muy querido de nuestros Delphi’s Favorites.

BBDD_ADO — Bases de Datos basadas en ADO. Si hubiera suficientes links, también podríamos incluir BDE en otra categoría

Ask the Delphi Pros Discussion Forum

3.3 Creación de bases de datos y tablas en Paradox

ADO.NET and Paradox

Apendiendo OOP con Delphi

Trucos, codigo Componentes (Alemán)

Calling Dr. Marteens – Artículos

Trucomania, Trucos Delphi en español – Delphi tips

Trucomania, Trucos Delphi en español – Delphi tips

Foros de Trucomania, trucos para Delphi, Tips for Delphi

Curso de Creación de Componentes en Delphi

Components Vcl 1

Componentes visuales en la VCL de Delphi – La web de JM

Developer Express – Making RAD a Reality

Dream Company – Delphi components, C++Builder components and Kylix components and source code for developers.

Delphi by Design – One-Step ActiveX

Curso de Delphi Básico en Español

A Beginner’s Guide to Delphi Database Programming

Delphi Basics RTL by starting letter E

Curso Programación con ADO Express-DataSnap en Delphi 7 – Intuitive Sight

Tutorial Delphi

Cursillo de Delphi

Capítulo 1. La aplicación – El archivo de Proyecto de Delphi

ADO Tutorial

ADO y DELPHI

DelphiFAQ

Cursos Programación – arroba más más

Es una página de pequeños tutoriales para Ubuntu, está genial.

Hago un pequeño resumen:

-Hacer particiones de disco (sacamos el cuchillo y nos ponemos a cortar calamares)

-Instalar Drivers Nvidia (que a mi esta tarjeta no me da ninguna nvidia, prefiero ATI) VIVA ATIIII!!!! Viva

-Descomprimir rar (internet está inundado de este formato propietario, juju)

y muchas cosas más, con ayuda de capturas de pantalla y mucha participación de gente que escribe comentarios.

http://dudas.wordpress.com/ubuntu-guia-facil/

Recientemente se ha abierto una iniciativa para que los que más saben de Hardware, Ubuntu y herramientas relacionadas con el software libre.

Por lo que he visto en el programa, los cursos son para iniciar a la gente en el mundo del software libre, lo acompaña una corriente ciberpunk, espero que libre de otras ideologías que no sean el software libre.

Empieza con un cursillo sobre cómo “liberar tu ordenador” para que la gente aprenda a desarmar sus ordenadores, esperemos que no lleven ordenadores nuevos y se “liberen” garantías que después den pie a disgustos. Llevad ordenadores que ya no tengan garantía y mejor torres que portátiles.

Desde el sábado 7 de Junio a las 11 podrás iniciar o recibir un curso de cómo instalar Ubuntu o te puedes llevar un ordenador reciclado con Ubuntu instalado, y según he entendido es gratis.

El lugar donde va a celebración va a ser en Madrid, en la primera planta, al fondo a la derecha, después de la cafeta, en el edificio nº 8 de la calle Acuerdo, metro Plaza de España y Noviciado, cerca del barrio de Malasaña, de San Bernardo y de la Gran Vía.

Es un espacio polivalente autogestionado y okupado. Se encuentra en un antiguo colegio abandonado en la Calle Acuerdo, que llevaba más de diez años sin uso.

Se trata del grupo patiomaravillas, la página web: http://hamlab.patiomaravillas.net

Adjunto el flyer con el programa principal de los eventos aquí

Bien por impulsar los conocimientos entre los jóvenes. Enhorabuena.

Hola, estoy haciendo un nuevo proyecto en Delphi para gestión de alquileres, necesitaba una librería que pasándole dos fechas, me dijera en letra el resultado de las dos fechas, es decir, pasando 10/09/07 y 11/09/07 me devolviera: UN DÍA. Podéis sacarlo en días, en semanas, en años, redondeando o no al alza. También el número de días, días del último mes, o en números. Cualquier recomendación la añadiré a la librería. Incluye un ejemplo de demostración.

Lo podéis bajar desde aquí

Doy las gracias a los que escribieron la librería fundamentals pues me ha sido de gran ayuda, está puesto en un tag anterior pero no lo encuentra el buscador, así que lo vuelvo a postear aquí.