Πώς να πάρει ένα LAN ID και Domain Χρησιμοποιώντας VBA

διαχειριστές συστήματος χρησιμοποιούν τη γλώσσα VBA για την αυτοματοποίηση εργασιών στους υπολογιστές των χρηστών . Αντί για τη ρύθμιση κάθε υπολογιστή χωριστά , ο διαχειριστής πρέπει μόνο να τρέξει ένα αρχείο κατά τη διάρκεια της επεξεργασίας σύνδεσης του χρήστη . Μπορείτε να χρησιμοποιήσετε VBA για τον προσδιορισμό της ταυτότητας LAN , το οποίο είναι το όνομα του υπολογιστή , και να προσδιορίσει το όνομα τομέα του υπολογιστή . Οδηγίες
Η

1 Κάντε δεξί κλικ στο αρχείο σύνδεσης VBA που θέλετε να επεξεργαστείτε και επιλέξτε " Άνοιγμα με . " Κάντε κλικ στο " Σημειωματάριο " στη λίστα των προγραμμάτων για να ανοίξετε τον επεξεργαστή και τον κώδικα VBA 2

Προσθέστε την ακόλουθη γραμμή κώδικα για να ανακτήσετε το LAN ID στον υπολογιστή που εκτελεί το σενάριο VBA : .

Dim lanid Όπως String

landid = Environ ( " ComputerName " )
εικόνων 3

Ανακτήστε το πλήρως αναγνωρισμένο όνομα για τον υπολογιστή και να εκχωρήσετε την απάντηση σε μια μεταβλητή . Ο κώδικας που ακολουθεί ανακτά το όνομα τομέα :

τομέα Dim Όπως String

domain = Environ ( " userdomain " )
Η 4

Εκτυπώστε τα αποτελέσματα στην οθόνη . Ο παρακάτω κώδικας εμφανίζει το LAN ID και το όνομα τομέα στην γραμμή εντολών όταν ο κώδικας VBA λειτουργεί :

τομέα Debug.Print

Debug.Print lanid
5

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