Expone un elemento especificado de una colección.
Objeto.Item(natÍndice)
Item es la propiedad predeterminada para cada colección. Para las colecciones EnumNetworkDrive y EnumPrinterConnections, índice es un número entero; para las colecciones Environment y SpecialFolders, índice es una cadena.
WshShell.SpecialFolders.Item (cdnNombreCarpeta) devuelve "Empty" en VBScript y "undefined" en JScript si la carpeta solicitada (cdnNombreCarpeta) no está disponible.
La tabla siguiente enumera carpetas especiales junto con la versión de Windows que las admite.
Carpeta | Versión de Windows |
---|---|
AllUsersDesktop | Windows 2000 |
AllUsersStartMenu | Windows 2000 |
AllUsersPrograms | Windows 2000 |
AllUsersStartup | Windows 2000 |
Desktop | Windows 98, Windows Millennium Edition y Windows 2000 |
Favorites | Windows 98, Windows Millennium Edition y Windows 2000 |
Fonts | Windows 98, Windows Millennium Edition y Windows 2000 |
My Documents | Windows 98, Windows Millennium Edition y Windows 2000 |
NetHood | Windows 98, Windows Millennium Edition y Windows 2000 |
PrintHood | Windows 98, Windows Millennium Edition y Windows 2000 |
Programs | Windows 98, Windows Millennium Edition y Windows 2000 |
Recent | Windows 98, Windows Millennium Edition y Windows 2000 |
SendTo | Windows 98, Windows Millennium Edition y Windows 2000 |
Start Menu | Windows 98, Windows Millennium Edition y Windows 2000 |
StartupB | Windows 2000 |
Templates | Windows 2000 |
El siguiente código muestra la información de asignación de las unidades e impresoras de red.
<package>
<job id="vbs">
<script language="VBScript">
Set WshNetwork = WScript.CreateObject("WScript.Network")
Set oDrives = WshNetwork.EnumNetworkDrives
Set oPrinters = WshNetwork.EnumPrinterConnections
WScript.Echo "Unidades de red asignadas:"
For i = 0 to oDrives.Count - 1 Step 2
WScript.Echo "Unidad " & oDrives.Item(i) & " = " & oDrives.Item(i+1)
Next
WScript.Echo
WScript.Echo "Impresoras de red asignadas:"
For i = 0 to oPrinters.Count - 1 Step 2
WScript.Echo "Puerto " & oPrinters.Item(i) & " = " & oPrinters.Item(i+1)
Next
</script>
</job>
<job id="js">
<script language="JScript">
var WshNetwork = WScript.CreateObject("WScript.Network");
var oDrives = WshNetwork.EnumNetworkDrives();
var oPrinters = WshNetwork.EnumPrinterConnections();
WScript.Echo();
WScript.Echo("Unidades de red asignadas:");
for(i = 0; i < oDrives.length; i += 2){
WScript.Echo("Unidad " + oDrives.Item(i) + " = " + oDrives.Item(i + 1));
}
WScript.Echo();
WScript.Echo("Impresoras de red asignadas:");
for(i = 0; i < oPrinters.length; i += 2){
WScript.Echo("Puerto " + oPrinters.Item
(i) + " = " + oPrinters.Item(i + 1));
}
</script>
</job>
</package>
Método EnumNetworkDrive | Método EnumPrinterConnections | Método Environment | Método SpecialFolders
Ayuda de Javascript y Vbscript para Javascripts.astalaweb.com. |