Visual Basic 6 ( VB6 ) programmerere kan skape nettverk - aware programmer som Query en ekstern datamaskin informasjon og vise det for brukeren . Disse programmene er laget for nettverksadministratorer som trenger å administrere flere datamaskiner. Den VB6 språket har noen funksjoner og verktøy som lar deg spørring informasjon fra en ekstern datamaskin på nettverket. Du oppretter denne koden i Microsoft VB6 redaktør . Instruksjoner
en

Dobbeltklikk VB6 prosjekt fil på datamaskinen din . Din VB6 arbeidsområde automatisk laster og VB6 åpnes.
2

Opprett forbindelse til den eksterne datamaskinen . Følgende kode oppretter en forbindelse til " mindatamaskin " datamaskin : en

Set WMI = GetObject ( " winmgmts : { impersonationLevel = opptre } \\ \\ mindatamaskin \\ root \\ cimv2 ")

3

Logg inn på den eksterne datamaskinen . Du må logge på med en administratorkonto for å søke informasjon fra datamaskinen. Følgende logger deg på datamaskinen. Skriv det inn i VB6 arbeidsområdet : en

posisjonsviserverdier = CreateObject ( " WbemScripting.SWbemLocator ")

Set service = locator.ConnectServer ( " mindatamaskin ", " root \\ cimv2 ", " administrator" , "passord" )
4

Vis den eksterne datamaskinen informasjon. I dette eksemplet er den første Windows-tjeneste navn vises for brukeren . En tjeneste er en bakgrunn program som kjører på en Windows-maskin . Følgende viser informasjon om datamaskinen : en

Set query = _ service.ExecQuery ( "Select * From Win32_Process ")

Wscript.Echo " Process Name :" & query.Name

5

Klikk på "File " menyen og velg " Lagre". For å teste den nye koden, klikker du VB6 "Kjør" -knappen for å kjøre programmet på datamaskinen.