Obtener IP del Equipo
Publicado: 19 Ago 2012, 15:16
Necesito que a través de un script, se obtenga la IP del equipo de donde se esté ejecutando, que este valor se almacene en una variable, para que posteriormente se compare y dependiendo el caso copie un archivo en el escritorio.
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
Gracis por la ayuda
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