1
doble clic en el archivo de proyecto de Visual Basic 6 en el equipo. Su VB6 espacio de trabajo se carga automáticamente y se abre el editor de Visual Basic 6 .
2
Crear la conexión con el equipo remoto. El siguiente código crea una conexión con el ordenador " MiPC ":
Set WMI = GetObject ( " winmgmts : { impersonationLevel = Suplantar } \\ \\ mycomputer \\ root \\ cimv2 ")
3
Inicie sesión en el equipo remoto. Usted debe iniciar sesión con una cuenta de administrador para consultar la información de la computadora. La siguiente sesión en el equipo. Escriba en su espacio de trabajo VB6 :
Configurar localizador = CreateObject ( " WbemScripting.SWbemLocator " )
Set servicio = locator.ConnectServer ( " Mi PC ", " root \\ cimv2 ", " administrador" , "password ")
4
Muestra la información de la computadora remota. En este ejemplo , el primer nombre de servicio de Windows se muestra al usuario . Un servicio es un programa de fondo que se ejecuta en un equipo con Windows . A continuación se muestra la información de la computadora :
Set query = _ service.ExecQuery ( "SELECT * FROM Win32_Process " )
Wscript.Echo " Nombre del proceso :" & query.Name
5
Haga clic en el menú " archivo" y seleccione " Guardar". Para probar el nuevo código , haga clic en el botón VB6 " Run " para ejecutar el programa en su ordenador .