|
Visual Basic 6 ( VB6 ) les programmeurs peuvent créer des applications sensibles au réseau qui interrogent les informations d'un ordinateur à distance et de l'afficher pour l'utilisateur. Ces programmes sont créés pour les administrateurs réseau qui ont besoin de gérer plusieurs ordinateurs. Le langage VB6 a des fonctions et des outils qui vous permettent de demander des informations à un ordinateur distant sur le réseau. Vous créez ce code dans votre éditeur Microsoft VB6 . Instructions
1 Double- cliquez sur le fichier de projet VB6 sur votre ordinateur. Votre espace de travail se charge automatiquement de VB6 et l'éditeur de VB6 s'ouvre.
2 créer la connexion à l'ordinateur distant . Le code suivant crée une connexion à l' ordinateur " mycomputer ":
Set WMI = GetObject (" winmgmts : { impersonationLevel = Impersonate } \\ \\ mycomputer \\ root \\ cimv2 " )
< br > 3 Connectez-vous à l'ordinateur distant. Vous devez vous identifier avec un compte administrateur pour demander des informations à partir de l'ordinateur. Ce qui suit vous connecte à l'ordinateur. Saisissez-la dans votre espace de travail VB6 :
Set locator = CreateObject (" WbemScripting.SWbemLocator " )
Set service = locator.ConnectServer ( " mycomputer ", " root \\ cimv2 ", " administrateur " , "password" )
4 Afficher les informations de l'ordinateur distant . Dans cet exemple, le nom du premier service Windows est affiché à l'utilisateur . Un service est un programme d'arrière-plan qui s'exécute sur un ordinateur Windows. Le texte suivant affiche les informations de l'ordinateur:
Set query = _ service.ExecQuery ( "SELECT * FROM Win32_Process " )
Wscript.Echo " Nom du processus :" & query.Name
5 Cliquez sur le menu " fichier" et sélectionner "Enregistrer". Pour tester votre nouveau code, cliquez sur le bouton VB6 "Exécuter" pour lancer le programme sur votre ordinateur.
|
