Página 1 de 1

Obtener IP del Equipo

Publicado: 19 Ago 2012, 15:16
por joshuamx
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

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
Gracis por la ayuda

Re: Obtener IP del Equipo

Publicado: 19 Ago 2012, 16:00
por joshuamx
Bueno, ya me respondí yo solo, pero si a alguien le sirve, con la macro @IPAddress1 para obtener la IP, y con la macro,@DesktopDirCommonDir, para la ruta del escritorio, la cuales están disponibles en AutoIT
Saludos