Probé desde la consola del ms-dos con este comando y mandándolo a un archivo de texto
ipconfig | FINDSTR "Dirección IPv4" > segred.txt
El comando depeden si el SO esta en ingle o en español, por que también se tendría que poner ipv4 address
Para que posteriormente leerlo con auto it y con Switch, dependiendo el case, se copie en el escritorio un archivo, es decir, en cada case, metemos un rango de segmento
Al generarse el archivo con la ip se trae otra información que esta metiendo ruido, ya que no lee la información correcta, esto es lo que genera dentro del archivo
Direcci¢n IPv4. . . . . . . . . . . . . . : 140.140.161.103
También adicional, para copiar el archivo al escritorio, dependo mucho de que si es Windows XP o Windows 7 ya que las variables de entorno cambian, y asi como en espano o ingle, ya que en XP, se tendría que poner \ desktop para el ingle y en español queda \escritorio
Este es el codigo
Código: Seleccionar todo
$file1=FileOpen ("c:\temp_sol\segred.txt",0)
$ip = FileRead($file1)
FileClose ($file1)
Switch $ip
Case $ip >"140.140.161.0" And $ip <"140.140.161.255" ;San Nicolas
FileCopy ("C:\temp_sol\4-short\Shortcut to ScanSolSnn800.exe.lnk","%ALLUSERSPROFILE%\DESKTOP",1)
Case $ip >"140.140.214.0" And $ip <"140.140.214.255"; Reynosa
FileCopy ("C:\temp_sol\4-short\Shortcut to ScanSolREY800.exe.lnk","%ALLUSERSPROFILE%\DESKTOP",1)
Case $ip >"140.140.30.0" And $ip <"140.140.30.255" ; Escobedo y Planta
FileCopy ("C:\temp_sol\4-short\Shortcut to ScanSolPRE800.exe.lnk","%ALLUSERSPROFILE%\DESKTOP",1)
Case Else
MsgBox (0,$ip,"No se reconoce el segmento",5)
EndSwitch