PUB

Sommaire Le registre de Windows Les API Windows Les fichiers de stratégie Les fichiers INF Les lignes de commandes Les scripts Windows VBS WSH ADSI (WinNT Provider) Namespace Domain User Group Computer LocalGroup PrintJob PrintQueue Service IADs Get GetEx GetInfo GetInfoEx Put PutEx SetInfo IADsPropertyList GetPropertyItem Item Next PurgePropertyList PutPropertyItem Reset ResetPropertyItem Skip IADsService IADsServiceOperations Continue Pause SetPassword Start Stop FileService FileShare Resource Session WMI ScriptCenter Les erreurs Windows Les trucs et astuces Télécharger   Publicité

Les scripts Windows Hiérarchie des objets de classe WinNT : Objet de classe Description Namespace Récipient de plus haut niveau. Domain Représente un domaine. User Représente un compte utilisateur du domaine. Group Représente un groupe global du domaine. Computer Représente un ordinateur (serveur ou station de travail). User Représente un compte utilisateur local. LocalGroup Représente un groupe local. PrintJob Représente un travail d'impression. PrintQueue Représente une file d'impression. Service Représente une application qui s'exécute en tant que service. FileService Représente le service qui permet d'accèder au système de fichiers. FileShare Représente un partage de fichiers. Resource Représente une ressource. Session Représente une session. Remarque : L'exemple ci-dessous illustre l'utilisation de l'objet Service : 'This script enumerates services on all servers in a domain. Dim FileSys Dim oNet Set FileSys = CreateObject("Scripting.FileSystemObject") Set TxtFile = FileSys.CreateTextFile("c:\service.txt", True) On error resume next Set oNet=CreateObject("WScript.Network") sDomain=oNet.UserDomain msgbox "About to process script" & vbcrlf & vbcrlf & "Please be patient...",64 Set domain = getobject("WinNT://" & sDomain) For each computer in domain if computer.class = "Computer" then text = text & computer.name & vbcrlf Set fserv = GetObject("WinNT://" & computer.name) For each objfserv in fserv if objfserv.class = "Service" then text = text & vbtab & objfserv.name & " : " & objfserv.DisplayName & " -> " & objfserv.status & vbcrlf end if next set fserv = nothing comp = text TxtFile.writeline(comp) set comp = nothing end if text = "" Next TxtFile.Close wscript.echo "All Done!"