Cómo acceder a la información del sistema remoto en VB6

Basic 6 (VB6) programadores visuales pueden crear aplicaciones de red en cuenta que consultan la información de un ordenador remoto y mostrarlo para el usuario. Estos programas se crean para los administradores de red que necesitan manejar varios ordenadores. El lenguaje Visual Basic 6 tiene algunas funciones y herramientas que le permiten consultar información desde un equipo remoto en la red. Se crea este código en tu editor de Microsoft Visual Basic 6.

Instrucciones

1 Haga doble clic en el archivo de proyecto de VB6 en su ordenador. Su espacio de trabajo VB6 carga automáticamente y se abre el editor de Visual Basic 6.

2 Crear la conexión con el equipo remoto. El código siguiente crea una conexión con el equipo "mycomputer":

Establecer WMI = GetObject ( "winmgmts: {ImpersonationLevel = Suplantar} \ mycomputer \ root \ cimv2")

3 Iniciar sesión en el equipo remoto. Usted debe iniciar sesión con una cuenta de administrador para consultar información del ordenador. Los siguientes normalmente se conecta a la computadora. Escríbalo en el espacio de trabajo de VB6:

Conjunto localizador = CreateObject ( "WbemScripting.SWbemLocator")

servicio set = locator.ConnectServer ( "Mi PC", "root \ cimv2", "administrador", "contraseña")

4 Mostrar la información de la computadora remota. En este ejemplo, el primer nombre del servicio de Windows se muestra al usuario. Un servicio es un programa en segundo plano que se ejecuta en un equipo con Windows. El siguiente mensaje de la información de la computadora:

conjunto problema = _ service.ExecQuery ( "SELECT * FROM Win32_Process")

Wscript.Echo "Nombre de proceso:" Y query.Name

5 Haga clic en la opción de menú "Archivo" y seleccione "Guardar". Para probar el nuevo código, haga clic en el botón de VB6 "Ejecutar" para ejecutar el programa en su ordenador.