Actualizacion

· 0 comentarios

Enviando post automatico

 

Cesar Romero

Sistemas        

Arabela El Salvador, S.A. de C.V.

 

 

Next

· 0 comentarios

Manejo de Ficheros PowerShell

Objetivo .
- Mover todas las carpetas que contengan *.mp3 a una carpeta llamada MUSIC
-Eliminar las carpetas que esten vacias
- Crear un playlist de todas las canciones

Entorno de ejecucion PowerShell ISE


MOVIENDO CARPETAS


$Path = "J:\"

$List = get-childitem -path $Path -recurse *.mp3 | where{$_.Name -notlike "button*"}


foreach($file in $list){


$MovePath = (join-path -path 'J:\MUSIC' -childpath $file.FullName.SubString(10))


$MoveDirectory = (join-path -path 'J:\MUSIC' -childpath $file.DirectoryName.SubString(10))


new-item $MoveDirectory -type directory -ea SilentlyContinue

move-item -Path $file.FullName -destination $MovePath



}

Me empezo a salir el siguiente error
Directorio: J:\MUSIC\2Octubre2010\COMPLETE\2008


Mode LastWriteTime Length Name
---- ------------- ------ ----
d---- 24/02/2011 04:57 p.m. Presentacion de Mercadeo 3er Qtr
Move-Item : Acceso denegado a la ruta de acceso.
En línea: 17 Carácter: 10
+ move-item <<<< -Path $file.FullName -destination $MovePath + CategoryInfo : PermissionDenied: (J:\22Octubre201...For Love(1).mp3:FileInfo) [Move-Item], UnauthorizedAccessException + FullyQualifiedErrorId : MoveFileInfoItemUnauthorizedAccessError,Microsoft.PowerShell.Commands.MoveItemCommand


Procedo a ejecutar el ISE como Administrador

 Set-ExecutionPolicy Unrestricted







Si quieres monitorear un script puedes descargar el software de solaris llamado SolarWinds-WMI-Monitor-v1.0

El Script funciono pero no movio todas las carpetas que tenia caracteres "[" "]" " - " " ¶" "´"ni caracteres raros , El archivo esta limitado a carpetas que contienes 10 caracteres



Ahora quiero hacer una busqueda en todo el Disco para "ver" que *.mp3 NO me copio excluyendo la carpeta MUSIC

gci -Path J:\ -include *.mp3 -r  | ? {$_.fullname -notmatch 'J:\\MUSIC'} | Format-Table -groupby Directorio

El resultado es 365 *.mp3

Mode                LastWriteTime     Length Name                                                                                                                                              
---- ------------- ------ ----
-a--- 17/02/2010 05:21 p.m. 6531072 14 Amiga [Ft. Yuridia].mp3
-a--- 01/06/2008 10:50 p.m. 13607120 Dr.Ottoniel Rios Paredes -Testimonio 1984 [17-03-84].mp3
-a--- 29/10/2009 08:27 a.m. 2766558 Una_Noche_De_Amor_-_[www.escuchamusica.com.mx].mp3
-a--- 21/08/2006 04:44 p.m. 4221056 07 Te Alaben [Salmo 67].mp3
-a--- 29/10/2009 08:38 a.m. 6469801 09 Abre Mis Ojos [Con Danilo Montero].mp3
-a--- 29/10/2009 08:39 a.m. 5894144 03 Ven Te Necesito [Lilly Goodman (Duo)].mp3
-a--- 01/05/2007 05:04 p.m. 6879232 06 Enmorame [Abel Zavala (Duo)].mp3
-a--- 15/12/2009 07:21 a.m. 3453897 Nirvana - You Know Your Right [Studio Full].mp3
-a--- 06/02/2009 09:15 a.m. 4579544 paris hilton - [paris] - nothing in this world(2).mp3
-a--- 03/08/2009 10:38 p.m. 3463714 (MeretteMusic.NeT) [MoNeGrItOxX] - Arcangel - Pa Que La Pases Bien (El Diario De Un Sonador) (MeretteMusic.NeT) [MoNeGrItOxX].mp3
-a--- 24/09/2009 05:50 p.m. 6286151 (MeretteMusic.NeT) [MoNeGrItOxX] - Tito El bambino Ft. Siklio - El Tra (Official Remix) (MeretteMusic.NeT) [MoNeGrItOxX].mp3
-a--- 03/08/2009 11:28 p.m. 2152455 Lloro Por Ti - Wisin & Yandel Ft. Enrique Iglesias [Video].mp3
-a--- 03/08/2009 11:46 p.m. 3531311 Mr[1]. Presidente - Coco Jambo.mp3
-a--- 16/12/2009 06:11 p.m. 15970383 Avicii - Dukkha (Original Mix) [www.livingelectro.com].mp3
-a--- 07/01/2010 02:33 p.m. 7399120 Chris Ortega Vs Lady Gaga - Just Dance (Dj Vartan Mash Down Mix)[www.livingelectro.com].mp3
-a--- 29/12/2009 02:02 a.m. 8688412 Ke$ha - Take It Off [www.livingelectro.com].mp3
-a--- 01/12/2009 11:40 p.m. 14186665 Pryda - Pjanoo 2k10 (South Freak Remix)[www.livingelectro.com].mp3
-a--- 23/10/2010 02:06 p.m. 6159049 08. Te Vas [Balada].mp3
-a--- 23/10/2010 02:07 p.m. 7229076 08 Ya No Queda Nada [Reggaeton].mp3
-a--- 23/10/2010 02:07 p.m. 10060404 09 Fabricando Fantasias [Balada].mp3
-a--- 23/10/2010 02:07 p.m. 5462343 10. Esa Boquita [Balada].mp3
-a--- 23/10/2010 02:07 p.m. 6407766 11. Si Yo Fuera El [Reggaeton].mp3
-a--- 23/10/2010 02:08 p.m. 4831762 09 Mi Mayor Sacrificio [Ft. Marco Antonio Solís].mp3
-a--- 18/02/2010 04:44 p.m. 3223135 arcangel - bonita [original official](2)207.mp3
-a--- 24/03/2010 01:19 a.m. 3911680 [salsa aprile 2007] calambuco - metele.mp3
-a--- 26/07/2010 04:20 a.m. 5321 04- ramsteim - bestrafe_mich[1].mp3
-a--- 26/07/2010 02:30 a.m. 4867847 06-[buck dich].mp3
-a--- 09/08/2006 08:06 a.m. 12095488 depeche mode & rammstein - personal jesus [covenant remix]175.mp3
-a--- 20/08/2010 10:03 a.m. 3186147 [Five] - Keep On Moving.mp3
-a--- 02/09/2008 11:52 p.m. 7811597 01_santana_-_black_magic_woman.mp3
-a--- 02/09/2008 11:55 p.m. 6799882 02_santana_-_oye_como_va.mp3
-a--- 02/09/2008 11:54 p.m. 6578694 03_santana_-_jingo.mp3
-a--- 02/09/2008 11:54 p.m. 9042267 04_santana_-_guajira.mp3
-a--- 02/09/2008 11:54 p.m. 5824983 05_santana_-_evil_ways.mp3
-a--- 02/09/2008 11:54 p.m. 6827852 06_santana_-_hannibal.mp3
-a--- 02/09/2008 11:51 p.m. 7059335 07_santana_-_i_love_you_much_too_much.mp3
-a--- 02/09/2008 11:54 p.m. 5254745 08_santana_-_everythings_coming_our_way.mp3
-a--- 02/09/2008 11:54 p.m. 7036647 09_santana_-_hold_on.mp3
-a--- 02/09/2008 11:54 p.m. 7605202 10_santana_-_ill_be_waiting.mp3
-a--- 02/09/2008 11:52 p.m. 8790248 11_santana_-_no_one_to_depend_on.mp3
-a--- 02/09/2008 11:54 p.m. 5701474 12_santana_-_winning.mp3
-a--- 02/09/2008 11:54 p.m. 7562548 13_santana_-_europa_earths_cry_heavens_smile.mp3
-a--- 03/11/2010 05:39 p.m. 6266355 01-luis.enrique-yo.no.se.manana.[www.CienPorCienMusic.com].mp3
Etc

Power Shell 2.0

· 0 comentarios

Microsoft actualizo automáticamente la versión 2.0 de PowerShell.

En primer lugar no podemos dejar de mencionar en Linux como se vive con la terminal de comandos (consola/Shell) heredada del SO Unix una potente línea de comandos que te permite dese navegar por internet con programas como w3m o lynx hasta descargar directorios de un sitio con wget , en lo personal como viejo-paladin , son los dos comandos que mas me llamaron la atención. Y el comando apt-get que te da acceso a todas las aplicaciones libres que hay pero que tantas personas las ocuparan. Ya para los maestros Jedi en la consola es una simple utilidad.

Pero se ha avanzado mucho con esta versión de Power Shell una interfaz de consola(CLI) que te permite ejecutar script con varias extensiones e interactuar con librerías .NET y Base de datos

Una explicación como decía mi amigo como niño de primer grado.
Y un mapa conceptual.

Bueno Microsoft siempre se ha caracterizado por "copiar" desde interfaz graficas de Xerox para las Ventanas hasta las copias de Resultados de Google para mostrarlas en Bing lo hace muy Bien.

Lista de comandos

Primero las características
- Auto complemento de comandos (tab-completion) existen “todos los comandos de consolas DOS “ , “WHS” y los comandos “get”(cmdlet)
- Combinacion con pipeline |
- Alias de comandos
-Historial de comandos Utilizados F7 o Get-History
Se puede utilizar el ISE para trabajar



Un ejemplo creamos un nuevo objeto
PS J:\>$objShell = New-Object –com Shell.Application


Con Get-Member(un comando para listar las propiedades y metodos del objeto)
PS J:\>$objShell | Get-Member

TypeName: System.__ComObject#{866738b9-6cf2-4de8-8767-f794ebe74f4e}

Name MemberType Definition
---- ---------- ----------
AddToRecent Method void AddToRecent (Variant, string)
BrowseForFolder Method Folder BrowseForFolder (int, string, int, Variant)
CanStartStopService Method Variant CanStartStopService (string)
CascadeWindows Method void CascadeWindows ()
ControlPanelItem Method void ControlPanelItem (string)
EjectPC Method void EjectPC ()
Explore Method void Explore (Variant)
ExplorerPolicy Method Variant ExplorerPolicy (string)
FileRun Method void FileRun ()
FindComputer Method void FindComputer ()
FindFiles Method void FindFiles ()
FindPrinter Method void FindPrinter (string, string, string)
GetSetting Method bool GetSetting (int)
GetSystemInformation Method Variant GetSystemInformation (string)
Help Method void Help ()
IsRestricted Method int IsRestricted (string, string)
IsServiceRunning Method Variant IsServiceRunning (string)
MinimizeAll Method void MinimizeAll ()
NameSpace Method Folder NameSpace (Variant)
Open Method void Open (Variant)
RefreshMenu Method void RefreshMenu ()
ServiceStart Method Variant ServiceStart (string, Variant)
ServiceStop Method Variant ServiceStop (string, Variant)
SetTime Method void SetTime ()
ShellExecute Method void ShellExecute (string, Variant, Variant, Variant, Variant)
ShowBrowserBar Method Variant ShowBrowserBar (string, Variant)
ShutdownWindows Method void ShutdownWindows ()
Suspend Method void Suspend ()
TileHorizontally Method void TileHorizontally ()
TileVertically Method void TileVertically ()
ToggleDesktop Method void ToggleDesktop ()
TrayProperties Method void TrayProperties ()
UndoMinimizeALL Method void UndoMinimizeALL ()
Windows Method IDispatch Windows ()
WindowsSecurity Method void WindowsSecurity ()
WindowSwitcher Method void WindowSwitcher ()
Application Property IDispatch Application () {get}
Parent Property IDispatch Parent () {get}

Obtuvimos todas esas propiedades para crear nuestro script.


Tomemos en cuenta si desa obtener ayuda de un cmdlet esta el comando Get-Help
PS J:\> Get-Help Get-Member -full


Para crear los alias simplemente escribimos
 # PowerShell crear alias
Clear-Host
new-alias xcopy copy-Item
# O escribiendo lo siguiente
Set-Alias xcopy copy-Item # works just as well

Mi Objetivo es crear un script que me muestre todos los directorios y subdirectorios que contengan *.mp3 *.avi *.iso culaquier extencion de archivo en un disco de un TB

Empiezo

RuteOS

· 0 comentarios


Los POST como que quedan en el olvido a no ser por noticias como

"LA BLOGGER MÁS PODEROSA DEL MUNDO"


Quiero comentar acerca de un SO que convierte una maquina en potente Router , en mi caso la maquina funciona como enlace VPN.

Tienes mas información en la wiki del sitio

Como me decía una persona por ahí no es comida de hocicones

Dejo la info y unas pantallas de Funcionamiento.
Tiene acceso via web y Remoto







Post

· 0 comentarios

A quien no le gusta "lo bueno" pero diría mi amigo Galo pero "lo bueno" es relativo ..ahí entra la polémica , pero la clave es: “ si es para mejorar hacerlo!!!.”

Estos días como he estado trabajando en As/400 y Windows vista solo quiero sustentar la estabilidad y la tranquilidad que puedes pasar si tienes algunos puntos como.

Primero que el sistema no se quede colgado ahí está un screenshot del uptime

Lastimosamente ahora vengo y perdí el uptime por que el sistema decidió que había actualizaciones importantes y lo reinicio hace 4 horas.

Y me muestra esta imagen

Me interesa saber que procesos han cambiado me voy al Kaspersky

02/10/2010 11:07:11 a.m. Process C:\Program Files\Microsoft Office\Office12\OUTLOOK.EXE (PID: 5220): suspicious action. Process is trying to write list of modules executed during system startup (key: HKEY_USERS\S-1-5-21-515967899-1336601894-839522115-3905_CLASSES\mailto\shell\open\command, value: , data: "C:\PROGRA~1\MICROS~1\Office12\OUTLOOK.EXE" -c IPM.Note /m "%1").

02/10/2010 11:07:11 a.m. Process C:\Program Files\Microsoft Office\Office12\OUTLOOK.EXE (PID: 5220): attempt to write list of modules executed during system startup (key: HKEY_USERS\S-1-5-21-515967899-1336601894-839522115-3905_CLASSES\mailto\shell\open\command, value: , data: "C:\PROGRA~1\MICROS~1\Office12\OUTLOOK.EXE" -c IPM.Note /m "%1") allowed.

05/10/2010 08:55:34 a.m. Update completed successfully

05/10/2010 11:01:13 a.m. Update completed successfully

06/10/2010 11:02:21 a.m. Update completed successfully

06/10/2010 04:10:12 p.m. The application C:\PROGRAM FILES\MICROSOFT OFFICE\OFFICE12\OUTLOOK.EXE has been changed

07/10/2010 11:01:54 a.m. Update completed successfully

08/10/2010 11:02:10 a.m. Update completed successfully

09/10/2010 11:02:16 a.m. Update completed successfully

10/10/2010 11:01:59 a.m. Update completed successfully

14/10/2010 03:24:55 a.m. Protection of your computer started.

14/10/2010 08:44:51 a.m. The application C:\PROGRA~1\MICROS~1\OFFICE12\WINWORD.EXE has been changed

14/10/2010 08:47:47 a.m. Process C:\Program Files\Google\Google Desktop Search\GoogleDesktop.exe (PID 1540) tried to access Kaspersky Anti-Virus process (PID 2268), but the action has been blocked by the Self-Defense component. No action on your part is necessary.

Bueno estoy tranquilo que no han sido mayores cambios y que el sistema sigue estable admeas un reinicio no le cae mal.

Luego Comentar que el sistema de particionado..

-Grub fedora 11 en el arrranque

-SISTEMA OS en C:

-Datos en D:

Y el Server Symantec Ghost que me guarda las Imágenes de los discos te da la tranquilidad para trabajar..

Pero que es lo que hago hacer Query Me encanta OFFICE en la sección de Datos de Excel encontramos el Microsoft Query


Y obtenemos un bonito Reporte

El motivo de esta Entrada es que es divertido trabajar en Windows y más ahora con el boom del Windows 7 seria original ARMAR UN GRUPO DE REUNION para estar al día bueno es difícil por el tiempo. Pero ya aburren solo los “feed” RSS recomendados la subscriciones a los blog de seguridad las google alerts ..

Llegue al punto donde me preguntaron mira “quien es tu grupo” no tengo grupo asi que es fácil hacer uno solo se necesitan buscarlos..pero la humildad en buen punto.

La mayoría de grupo a que asistido son de SOFTWARE LIBRE pero existe cierto orgullo , estos grupos quieren ser elite la cosa esta en compartir conocimientos.

Exsi

· 0 comentarios

De un día a otro cambia todo...

Teniendo flexibilidad mental y escuchando charlas automotivacionales logro devengar mi bolsa de sal, por 8 horas de trabajo.

Dejando de lado la afición y un entusiasmo esporádico por todo lo nuevo que veo, vamos a copiar las configuración del server, con un vmware
Especificamente http://www.vmware.com/products/esxi/ que en resumido es virtualizacion cloud computing componiéndose de un núcleo (no se por que se basa en debian) y tener múltiples sistemas operativos sobre el
-Winserver 2003
-Pfsense

No voy a poner pantallas de instalación, el uso es básico con un cliente llamado vSphere el cual te logeas con el usuario root y el password, haré un manual con dibujos y cosas técnicas para que no se olvide.

Pierdo el interés tan rápido en las cosas , creo que soy un simple aficionado a las cosas que hago,
la vdd el amigo que lo instalo es fernando tiene su empresa biteware.(no tiene pag web) me enseño lo del ghost server y la creación de de respaldo mediante el symantec ghost en cada Pc y esto del Exsi con la consola del karspersky pfsense y un servidor de imágenes , como desearía ser macanudo pijudo y llegar a poner mi empresa pero bueno de algún día.

No me dan nada de ganas de escribir post , sera por que ahora veo muchas pantallas azules y configuro cortar y pegar en el AS/400 o una instruccion SQL básicas.

puta voy a ver creo que es el unico amigo que tengo .




Squid

· 0 comentarios

un manejo de archivos y bloqueo de programas muy util es el squid aqui dejo algunos parametros

bloquear messenger

acl msnmime req_mime_type ^application/x-msn-messenger
acl msngw url_regex -i gateway.dll
http_access deny msnmime
http_access deny msngw
#Definir rango IP Local
acl LAN src 1xx.xx.x.x-1xx.xx.x.xxx/255.255.255.255
acl dbod src 1xx.xx.x.x
acl dfin src 1xx.xx.x.x
http_access deny dbod
http_access deny dfin

Concepto de acl


y por ultimo para administrar todo tenemos el webmin una pantalla


ntop

· 0 comentarios

quien no quiere supervisar o reportar el acceso de inter por ususario.
No hay mejor software que ntop




Para instalarlo en CentOs
con el simple Gestor yum[xcero@one ~]#yum install ntop
[xcero@one ~]# ntop -i "eth0,eth1" -d -L -u ntop -P /var/ntop/ --skip-version-check --use-syslog=daemon


dejo de referencia un link muy bueno: http://homepage.mac.com/duling/halfdozen/

Me perdi

· 0 comentarios

Bueno estos dias he pensado en publicar esto o aquello pero nunca , la razon es que he estado fuera de forma con linux me he estado dedicando a cosas como averiguar servicetag equipo dell de la compañia me encontre este script en vbs.

  1. On Error Resume Next
  2. do while strcomputer = "" and a < 2
  3. strcomputer = Inputbox ("Introduce direccion IP o Nombre de Pc","Informacion Remota","IP")
  4. strcomputer = trim(strcomputer)
  5. a = a + 1
  6. loop
  7. if not strComputer <> "" then
  8. wscript.echo "No computer name entered, ending script"
  9. wscript.quit
  10. end if
  11. On Error Resume Next
  12. Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
  13. if err.number <> 0 then
  14. if err.number = -2147217405 then
  15. wscript.echo "You do not have sufficient access rights to this computer"
  16. wscript.quit
  17. else
  18. wscript.echo "Could not locate computer" &vbcrlf& "Please check IP Address/Computer Name and try again"
  19. wscript.quit
  20. end if
  21. end if
  22. Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_BIOS")
  23. Set colItems1 = objWMIService.ExecQuery("SELECT * FROM Win32_ComputerSystem")
  24. Set colItems2 = objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration Where IPEnabled = True")
  25. Set colitems3 = objWMIService.ExecQuery("SELECT * FROM Win32_computersystem")
  26. Set colitems4 = objWMIService.ExecQuery("SELECT * FROM Win32_NetworkLoginProfile")
  27. Set colitems5 = objWMIService.ExecQuery("SELECT * FROM Win32_LogicalDisk Where DriveType = 3")
  28. Set objExplorer = CreateObject("InternetExplorer.Application")
  29. objExplorer.Navigate "about:blank"
  30. objExplorer.ToolBar = 0
  31. objExplorer.StatusBar = 0
  32. objExplorer.Width = 800
  33. objExplorer.Height = 600
  34. objExplorer.Left = 100
  35. objExplorer.Top = 100
  36. objExplorer.Visible = 1
  37. Do While (objExplorer.Busy)
  38. Loop
  39. Set objDocument = objExplorer.Document
  40. objDocument.Open
  41. objDocument.Writeln ""
  42. objDocument.Writeln ""
  43. ' Computer Detals
  44. For Each objItem In colItems
  45. serial = objitem.serialnumber
  46. next
  47. For Each objItem In colItems1
  48. hostname = objitem.caption
  49. make = objitem.manufacturer
  50. model = objitem.model
  51. next
  52. objDocument.Writeln "Computer Information For: " & Ucase(hostname) & "

    "
  53. objDocument.Writeln "Serial : " & Serial & "
    "
  54. objDocument.Writeln "Make : " & make & "
    "
  55. objDocument.Writeln "Model : " & Model & "
    "
  56. For Each objItem In colItems5
  57. driveletter = objitem.name
  58. capacity = ((objitem.size / 1024) / 1024) / 1024
  59. free = ((objitem.FreeSpace / 1024) / 1024) / 1024
  60. free = FormatNumber (free,2)
  61. capacity = FormatNumber (capacity,2)
  62. objDocument.Writeln "Capacity of " &driveletter& " - " & capacity & "GB
    "
  63. objDocument.Writeln "Free Space on " &driveletter& " - " & Free & "GB
    "
  64. next
  65. objDocument.Writeln "
    Please Wait, gathering more information...

    "
  66. ' User Details
  67. For Each objItem In colItems3
  68. loggedon = objitem.username
  69. next
  70. For Each objItem In colItems4
  71. cachedlog = objitem.name
  72. username = objitem.FullName
  73. passwordexpire = objitem.passwordexpires
  74. badpassword = objitem.badpasswordcount
  75. if loggedon = cachedlog then
  76. objDocument.Writeln "User Information For...
    "
  77. objDocument.Writeln "" & username & "

    "
  78. objDocument.Writeln " User Name :" & loggedon &"
    "
  79. objDocument.Writeln " Incorrect Password Attempts : " & badpassword &"
    "
  80. on error resume next
  81. Set objaccount = GetObject("WinNT://**********/" &objitem.caption & ",user")
  82. if Err.Number <> 0 Then
  83. objDocument.Writeln "unable to retrieve password expiration information
    "
  84. Else
  85. If objAccount.PasswordExpired = 1 Then
  86. objDocument.Writeln "Password has Expired!
    "
  87. Else
  88. objDocument.Writeln "Password Expires " & objAccount.PasswordExpirationDate & "

    "
  89. end if
  90. end if
  91. end if
  92. next
  93. ' Network Adapter Details
  94. For Each objItem In colItems2
  95. ipaddress = objitem.ipaddress(0)
  96. description = objitem.description
  97. DHCP = objitem.DHCPserver
  98. Domain = objitem.DNSdomain
  99. mac = objitem.MACaddress
  100. DNS = objitem.dnsserversearchorder(0)
  101. DNS1 = objitem.dnsserversearchorder(1)
  102. DNS2 = objitem.dnsserversearchorder(2)
  103. wins1 = objitem.winsprimaryserver
  104. wins2 = objitem.winssecondaryserver
  105. if not ipaddress = "0.0.0.0" then
  106. objDocument.Writeln "Network Adapter Details For...
    "
  107. objDocument.Writeln "" & description & "

    "
  108. objDocument.Writeln " IP Address :" & ipaddress &"
    "
  109. objDocument.Writeln " DHCP Server : " & DHCP &"
    "
  110. objDocument.Writeln " Domain Name : " & domain &"
    "
  111. objDocument.Writeln " MAC Address : " & mac &"
    "
  112. objDocument.Writeln " Primary DNS : " & DNS &"
    "
  113. objDocument.Writeln " Secondary DNS : " & DNS1 &"
    "
  114. objDocument.Writeln " Tertiary DNS : " & DNS2 &"
    "
  115. objDocument.Writeln " Primary WINS : " & wins1 &"
    "
  116. objDocument.Writeln " Secondary WINS : " & WINS2 &"

    "
  117. end if
  118. next
  119. objDocument.Writeln "Script Finished

    "
Te despliega en una ventana lo siguiente
Computer Information For: ES
Serial :
Make : Dell Inc.Model : OptiPlex
Capacity of C: -
Space on C:
Name :NETWORK\
Incorrect Password Attempts : 0
Adapter Details For...Intel(R) 82566DM-2 Gigabit Network ConnectionIP Address :
Server :
Domain Name :
MAC Address :
DNS
DNS : Tertiary DNS : Primary WINS : Secondary WINS : Script Finished