Información con WSH

Podemos utilizar Microsoft ® Windows Script Host para mostrar información de nuestra PC, como por ejemplo: Dominio, Usuario, Nombre de PC, Unidades de red e Impresoras como lo muestra el siguiente ejemplo:

? "Información con WSH"
o = CREATEOBJECT('Wscript.Network')
? "Dominio: " + o.UserDomain
? "Usuario: " + o.UserName
? "Computadora: " + o.ComputerName
?
? "Unidades de red:"
oD = o.EnumNetworkDrives
FOR i = 0 TO oD.COUNT-1 STEP 2
  ? "Unidad: " + oD.ITEM(i) + " - Recurso: " + oD.ITEM(i+1)
ENDFOR
?
? "Impresoras:"
oP = o.EnumPrinterConnections
FOR i = 0 TO oP.COUNT-1 STEP 2
  ? "Puerto: " + oP.ITEM(i) +  " - Impresora: " + oP.ITEM(i+1)
ENDFOR
RELEASE oD
RELEASE oP
RELEASE o

Luis María Guayán