29/01/2007, 11:43
|
| | | Fecha de Ingreso: noviembre-2003
Mensajes: 383
Antigüedad: 20 años, 6 meses Puntos: 2 | |
| Concatenar cadenas con VBScript
Tengo el siguiente código en un fichero Adartadores.vbs
...
...
Set NetworkAdapterS = objWMI.ExecQuery( "SELECT * FROM Win32_NetworkAdapter WHERE NetConnectionID LIKE '%Conexión de área local%'")
For Each NetworkAdapter in NetworkAdapterS
cadena = "SystemName " + NetworkAdapter.SystemName + chr(13)
cadena = cadena + "Index: " + NetworkAdapter.Index + chr(13)
cadena = cadena + "AdapterType: " + NetworkAdapter.AdapterType + chr(13)
WScript.echo cadena
...
...
El problema es que si NetworkAdapter.SystemName, ...Index o ...AdapterType es nulo al llegar a WScript.echo me da error.
Podría poner IF Not IsNull ... en cada uno de los NetwordAdapter... pero sería muy engorroso.
¿Como puedo concatenarlos y en el caso de que alguno sea nulo me lo concatene como cadena vacia ( " " )?
Gracias. |