|
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 Domain :
'This script enumerates shares on all servers in a domain.
Dim FileSys
Dim oNet
Set FileSys = CreateObject("Scripting.FileSystemObject")
Set TxtFile = FileSys.CreateTextFile("c:\shares.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 & "/LanmanServer")
For each share in fserv
text = text & vbtab & share.name & " (" & share.Description & ") : " & share.Path & vbcrlf
next
set fserv = nothing
comp = text
TxtFile.writeline(comp)
set comp = nothing
end if
text = ""
Next
TxtFile.Close
wscript.echo "All Done!"
|
IADs
Get
Les scripts Windows 