Πώς να αποκτήσετε πρόσβαση Remote Σύστημα Πληροφοριών σε VB6

Visual Basic 6 ( VB6 ) προγραμματιστές μπορούν να δημιουργήσουν δίκτυο -aware εφαρμογές που ερώτημα πληροφοριών σε έναν απομακρυσμένο υπολογιστή και να το εμφανίσετε για το χρήστη . Τα προγράμματα αυτά δημιουργήθηκαν για τους διαχειριστές του δικτύου που πρέπει να διαχειριστεί περισσότερους από έναν υπολογιστές . Η γλώσσα VB6 έχει κάποιες λειτουργίες και εργαλεία που σας επιτρέπουν να διερευνούν πληροφορίες από έναν απομακρυσμένο υπολογιστή στο δίκτυο . Μπορείτε να δημιουργήσετε αυτόν τον κώδικα στο πρόγραμμα επεξεργασίας της Microsoft VB6 σας . Οδηγίες
Η

1 Κάντε διπλό κλικ στο αρχείο έργου VB6 στον υπολογιστή σας . VB6 το χώρο εργασίας σας φορτώνει αυτόματα και ο συντάκτης VB6 ανοίγει . 2

Δημιουργήστε τη σύνδεση με τον απομακρυσμένο υπολογιστή . Ο παρακάτω κώδικας δημιουργεί μια σύνδεση με το " Ο_Υπολογιστής_μου " υπολογιστής :

Set WMI = GetObject ( " winmgmts : { impersonationLevel = τοΑπομίμηση } \\ \\ Ο_Υπολογιστής_μου \\ root \\ cimv2 " )
Η
3

Συνδεθείτε στο απομακρυσμένο υπολογιστή . Πρέπει να συνδεθείτε με ένα λογαριασμό διαχειριστή για την αναζήτηση πληροφοριών από τον υπολογιστή . Τα ακόλουθα αρχεία καταγραφής σας με τον υπολογιστή . Πληκτρολογήστε το σε VB6 χώρο εργασίας σας :

Ορισμός εντοπισμού = CreateObject ( " WbemScripting.SWbemLocator " )

Ρύθμιση υπηρεσίας = locator.ConnectServer ( " Ο_Υπολογιστής_μου " , "root \\ cimv2 " , " διαχειριστής " , "password" )
Η 4

οθόνης του απομακρυσμένου υπολογιστή πληροφορίες . Σε αυτό το παράδειγμα , το πρώτο όνομα υπηρεσία Windows εμφανίζεται στο χρήστη. Μια υπηρεσία είναι ένα πρόγραμμα στο παρασκήνιο που τρέχει σε έναν υπολογιστή με Windows . Οι παρακάτω εμφανίζει τα στοιχεία του υπολογιστή :

Ορισμός query = _ service.ExecQuery ( "Επιλογή * Από Win32_Process " )

wscript.echo " Name Διαδικασία : " & query.Name

5

Κάντε κλικ στο "Αρχείο " μενού και επιλέξτε "Αποθήκευση". Για να δοκιμάσετε το νέο κωδικό σας , κάντε κλικ στο κουμπί VB6 "Run " για να εκτελέσετε το πρόγραμμα στον υπολογιστή σας .
Η
εικόνων