28/12/2004, 16:22
|
 | | | Fecha de Ingreso: enero-2002 Ubicación: Cali - Colombia
Mensajes: 2.234
Antigüedad: 23 años, 4 meses Puntos: 4 | |
| pues te cuento qeu no se mucho por no decir nada de este tema,
tengo un ejemplo qeu muestra todos los equipos conectados a tu red..
CENTER>ADMINISTRADOR DE EQUIPOS</center>
<%
Sub ListConnectedComputers( strDomain )
Dim objPDC
' ojo mi dominio se llama ww
Set objPDC = getobject("WinNT://nombredetupc")
objPDC.filter = Array("Computer")
For Each objComputer In objPDC
strComputer =objComputer.Name
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_CDROMDrive",,48)
For Each objItem in colItems
Response.Write "<br><font face=arial>Drive: " & objItem.Drive
Response.Write "<br>Etiqueta : " & objItem.Caption
Response.write "<br>Nombre: " & objItem.Name
Response.write "<br>Estado del dispositivo: " & objItem.Status
Response.write "<hr>"
Next
Next
End Sub
ListConnectedComputers( strDomain )
%>
busca aqui en los foros este tema de wmi ya se ha tratado bien en post anteriores..
espero te sirva de algo..
pero si se que con wmi se puede hacer algo. |