Visual Basic 6 ( VB6 ) programmerare kan skapa nätverk - medvetna applikationer att fråga en fjärrdator information och visa den för användaren . Dessa program är skapade för nätverksadministratörer som behöver hantera flera datorer . I VB6 språket har vissa funktioner och verktyg som gör att du frågeinformation från en fjärrdator på nätverket . Du skapar den här koden i din Microsoft VB6 redaktör . Instruktioner
1
Dubbelklicka på VB6 projektet filen på din dator . Din VB6 arbetsyta automatiskt laddar och VB6 redigeraren öppnas .
2
Skapa anslutningen till fjärrdatorn . I följande kod skapas en koppling till " mindator " dator :
Set WMI = GetObject ( " winmgmts : { impersonationLevel = Imitera } \\ \\ datorn \\ root \\ cimv2 " )
3
Logga in på fjärrdatorn . Du måste logga in med ett administratörskonto för att hämta information från datorn . Följande loggar du in på datorn . Skriv in den på din VB6 arbetsyta :
Set locator = CreateObject ( " WbemScripting.SWbemLocator " ) katalog
Set service = locator.ConnectServer ( " mindator " , " root \\ cimv2 " , " administratör " , " lösenord " )
4
Visa fjärrdatorn informationen . I detta exempel är den första Windows- tjänstens namn som visas för användaren . En tjänst är ett bakgrundsprogram som körs på en Windows- dator . Följande visar datainformation :
Set query = _ service.ExecQuery ( " SELECT * FROM Win32_Process " ) katalog
wscript.echo " Process Name : " & query.Name
5
Klicka på " File " i menyn och välj " Spara . " För att testa den nya koden , klicka på VB6 " Kör " för att köra programmet på din dator .
