|
Windows prend en charge plusieurs langages de script , y compris édition de Visual Basic Scripting , ou VBScript. Avec intuitive , la syntaxe anglaise comme , VBScript est une langue facile à apprendre. VBScript seul est un environnement propice à de nombreuses tâches administratives courantes , mais sa plus grande valeur vient de sa capacité à interagir avec les autres composantes du système d'exploitation , tels que le service Windows Management Instrumentation (WMI) . WMI stocke des informations détaillées sur votre ordinateur et peut être utilisé en conjonction avec VBScript de surveiller ou de connaître l'état d'un composant qui est conforme aux normes WMI , y compris l'ajout ou la suppression d'objets de l'imprimante. Choses que vous devez
Microsoft Windows 2000 ou plus récent
Afficher plus Instructions
1 Connectez-vous à votre ordinateur avec un compte doté d'autorisations administratives .
< Br > 2 Ouvrez Windows Notepad en tapant "notepad" dans le champ de recherche du menu "Démarrer" . Si vous utilisez Windows XP, cliquez sur "Démarrer " puis " Exécuter ... ", tapez " notepad" et appuyez sur " OK".
3 Cliquez sur "Format" dans le menu bar dans le Bloc-notes , puis sélectionnez " Word Wrap " pour activer cette fonction. Cela rendra votre script plus facile à lire .
4 type strComputer = "." sur la première ligne de l' image. Cela indique que vous voulez que le script exécuté sur l'ordinateur local. Si vous souhaitez exécuter le script sur un autre ordinateur et avoir les autorisations appropriées , vous pouvez remplacer " . " avec le nom de l'ordinateur . distance
5 Ajoutez la ligne de code à votre script suivant . Avant que vous pouvez interroger le service WMI pour obtenir des informations sur l'ordinateur , VBScript doit d'abord joindre ou se lient à ce service
Set objWMIService = GetObject ( ". Winmgmts : { impersonationLevel = impersonate } \\ \\" & strComputer & "\\ root \\ cimv2 " )
6 Recherche le service WMI pour une liste de toutes les imprimantes installées sur l'ordinateur local , et pour chaque imprimante trouvée, confirmer la suppression. Remplissez le script en entrant le code suivant :
Set colPrinters = objWMIService.ExecQuery ( "SELECT * FROM Win32_Printer " )
Chaque objPrinter dans colPrinters
ret = MsgBox ( "Etes-vous sûr de vouloir supprimer l'imprimante suivante :" & objPrinter.Name , vbYesNo , " Confirmer la suppression de l'imprimante" )
Si ret = 6 Puis
objPrinter.Delete_
< p> Fin de si
Suivant
Wscript.Quit
7 Enregistrez le fichier de bloc-notes avec l'extension *. vbs, puis double- cliquez sur le fichier pour lancer le script.
|
