Δημιουργία σειράς χαρακτήρων για να κρατήσει την αξία της διαδικασίας που θέλετε να κλείσετε . Σε αυτό το παράδειγμα , το αρχείο VBS θα κλείσει την εφαρμογή σημειωματάριο . Ο παρακάτω κώδικας δημιουργεί μια μεταβλητή συμβολοσειράς για τη διαδικασία σημειωματάριο : Dim processprocess = " notepad.exe " 2
Δημιουργήστε μια μεταβλητή αντικειμένου που υποδύεται τον λογαριασμό χρήστη του διαχειριστή. Αυτό απαιτείται για να κλείσει τις διαδικασίες στο μηχάνημα. Ο παρακάτω κώδικας δημιουργεί ένα αντικείμενο WMI χρησιμοποιείται στη συνέχεια του κώδικα για να βρείτε τη λαβή για τη διαδικασία : Ορισμός WMI = GetObject ( " winmgmts : { impersonationLevel = μιμηθεί } \\ \\ Ο_ΥΠΟΛΟΓΙΣΤΗΣ_ΜΟΥ \\ root \\ cimv2 " )
Η
3
Χρησιμοποιήστε τη μεταβλητή υπηρεσία WMI για να πάρει τη λαβή για τη διαδικασία που θέλετε να σταματήσετε . Η λαβή είναι ένα μοναδικό κλειδί που δόθηκε στη διαδικασία που χρησιμοποιεί τα παράθυρα ως εσωτερική αναφορά . Για να υποβάλετε ερώτημα στην υπηρεσία WMI , χρησιμοποιήστε τον ακόλουθο κώδικα : Set διαδικασία = objWMIService.ExecQuery ( " Επιλέξτε * από Win32_Process Όπου Όνομα = " & διαδικασία )
Η 4
Σκότωσε τη διαδικασία . Δεδομένου ότι ο χρήστης μπορεί να έχει πολλά παράθυρα σημειωματάριο άνοιξε , ο κώδικας χρησιμοποιεί ένα βρόχο για να σκοτώσει κάθε διαδικασία . Ο ακόλουθος κώδικας βρόχους μέσα από κάθε διαδικασία ανοίγει και κλείνει οποιαδήποτε από αυτές που ταιριάζουν " notepad.exe " : Για Κάθε objProcess σε processobjProcess.Terminate ( ) Επόμενη
5
Βεβαιωθείτε ότι η διαδικασία έχει κλείσει με την εμφάνιση της αποτέλεσμα στην οθόνη . Ο ακόλουθος κώδικας εμφανίζει ένα μήνυμα επιτυχίας για το χρήστη : "Just σκότωσε διαδικασία " wscript.echo & διαδικασία
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα