脚本获取ip地址

㈠ bat文件获取ip地址

通过bat文件获取ip地址的代码如下：
@echo off
set pcName=yourTestPCname
~~~~~~~~~~~~~~~~~(红色)
ping %pcName% -4
@echo -
for /f "tokens=2 delims=[" %%i in ('ping %pcName% -4^|findstr "%pcName%"') do set ip=%%i
set iptmp=%ip:~0,14%
set lastchar=%iptmp:~13,1%
IF /I "%lastchar%"=="]" (set iptmp=%ip:~0,13%)
@echo ==================ip:%iptmp%===============
@echo -
pause
bat文件：
bat文件是dos下的批处理文件。批处理文件是无格式的文本文件，它包含一条或多条命令。它的文件扩展名为 .bat 或 .cmd。在命令提示下键入批处理文件的名称，或者双击该批处理文件，系统就会调用cmd.exe按照该文件中各个命令出现的顺序来逐个运行它们。使用批处理文件（也被称为批处理程序或脚本），可以简化日常或重复性任务。

㈡ 我写了一个BAT脚本获取指定网卡的IP地址，但是一直不成功，求大佬帮我看看

@echo off & setlocal enabledelayedexpansion
for /f "tokens=4*" %%a in ('netsh interface show interface ^| findstr "已连接"') do set "ConName=%%~a"
echo 本机可上网网卡名称：%ConName%，回车直接输入默认可上网网卡名称
echo "以太网适配器 %ConName%"
set /p ConName=请输入可上网网卡名称：
for /f "tokens=1,2 delims=:" %%a in ('ipconfig') do (
if "%%a"=="以太网适配器 %ConName%" set "flag=1"
if "!flag!"=="1" (if "%%a"==" IPv4 地址 . . . . . . . . . . . . " set "ip=%%b")
)
echo IP=%ip%
pause

㈢ 如何在开机时，shell脚本自动获取ip

getIP:
[root@srv ~]# hostname -I|awk '{print $1}'
上述命令是获取本机上的第一个ip地址。
如果需要在开机是触发就将命令体追加到/etc/rc.local文件末尾。

㈣ js 怎么获取本地ip\

JavaScript是一门脚本语言，是不能操作文件，读取本地信息的，所以想要获取IP，还需要借助后端技术。方法如下：

㈤ 获取本机IP地址和物理地址脚本或批处理

新建记事本，在记事本里复制下面命令，然后保存为 获取IP地址.bat
@echo off
title 显示你的IP
color F9
ipconfig /all
@echo -
for /f "tokens=2 delims=:" %%i in ('ipconfig^|findstr "Address"') do set ip=%%i
@echo ==================[你的IP地址是:%ip%]===============
@echo -
ipconfig /all>本机ip地址.txt
Echo 请按任意键关闭窗口！信息已保存在【本机ip地址.txt】 &pause>NUL
for /f "tokens=2 delims=:" %i in ('ipconfig^|findstr "Address"') do echo

㈥ VBS脚本如何获取当前计算机的ip地址

如果你有Winsock控件的话，可以用下面的程序来得到：
Dim WS
Set WS=CreateObject("MSWinsock.Winsock")
MsgBox "Local IP=" & WS.LocalIP
弹出信息框中会显示本地IP。
而Winsock控件，可从通过安装VB6.0来获得。
///
代码如下
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set IPConfigSet = objWMIService.ExecQuery _
("Select IPAddress from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
For Each IPConfig in IPConfigSet
If Not IsNull(IPConfig.IPAddress) Then
For i=LBound(IPConfig.IPAddress) to UBound(IPConfig.IPAddress)
WScript.Echo IPConfig.IPAddress(i)
Next
End If
Next

㈦ 如何用perl获取ip续篇

接下来，下面这两个脚本将用另外一种方式获取已用ip地址。其一，是从数据库中读取表格，并且获得ip；其二是用nmao扫描ip段，并获取可用ip。两个脚本的第二部分的diff函数和上一篇博客中的diff函数一模一样，区别的只是读取文件的方式不一样。上文是直接从文件中读取，而这次是要获得文件。#! /usr/bin/perluse DBD::mysql; #使用perl数据库modeluse DBI;# MYSQL CONFIG VARIABLES $host = "localhost"; $database = "ocsweb"; $tablename = "networks"; $user = "root"; $pw = "password";my $datasource = "DBI:mysql:ocsweb:localhost";# # PERL MYSQL CONNECT()my $connect = DBI->connect($datasource, "root", "password") or die "Connection Error: $DBI::errstr\n";## # SELECT DB# $connect->selectdb($database);## # DEFINE A MySQL QUERYmy $query = "SELECT * FROM $tablename";my $data = $connect->prepare($query);$data->execute or die "SQL Error: $DBI::errstr\n";## # EXECUTE THE QUERY FUNCTION# $execute = $connect->query($myquery);my @networks;# print "@results\n"; while (@results = $data->fetchrow_array){ push(@networks, @results) }# foreach $line (@networks){# print "$line\n";# }my @biotek_occupied_ip_array;my @ncmm_occupied_ip_array;my @int_occupied_ip_array;my @ip_array = (1..254);# print "all ips: \n";# print "@ip_array\n";# my @results = $execute->fetchrow();foreach $line (@networks){# print "$line\n"; if ($line =~ /111\.111\.111\.(\d+)/ ) { my $octet4 = $1; push(@biotek_occupied_ip_array,$octet4); } elsif ($line =~ /111\.111\.111\.(\d+)/ ) { my $octet4 = $1; push(@ncmm_occupied_ip_array,$octet4); } elsif ($line =~ /192\.168\.8\.(\d+)/ ) { my $octet4 = $1; push(@int_occupied_ip_array,$octet4); }}@biotek_occupied_ip_array = sort {$a $b} @biotek_occupied_ip_array;print "biotek ocupied ips: \n";print "@biotek_occupied_ip_array\n";print "there are ".scalar(@biotek_occupied_ip_array)." hosts\n";@ncmm_occupied_ip_array = sort {$a $b} @ncmm_occupied_ip_array;print "ncmm ocupied ips: \n";print "@ncmm_occupied_ip_array\n";print "there are ".scalar(@ncmm_occupied_ip_array)." hosts\n";@int_occupied_ip_array = sort {$a $b} @int_occupied_ip_array;print "internal ocupied ips: \n";print "@int_occupied_ip_array\n";print "there are ".scalar(@int_occupied_ip_array)." hosts\n";my @biotek_available_ip_array = diff(\@ip_array,\@biotek_occupied_ip_array);my @ncmm_available_ip_array = diff(\@ip_array,\@ncmm_occupied_ip_array);my @int_available_ip_array = diff(\@ip_array,\@int_occupied_ip_array);sub diff{my ($array1,$array2) = @_;my @array3;%count = ();foreach $element (@$array1,@$array2){$count{$element}++;}foreach $element (keys %count){push @array3,$element if( $count{$element} == 1 );}return sort @array3;}print "biotek available ips: \n";@biotek_available_ip_array = sort {$a $b} @biotek_available_ip_array;print "@biotek_available_ip_array\n";print "ncmm available ips: \n";@ncmm_available_ip_array = sort {$a $b} @ncmm_available_ip_array;print "@ncmm_available_ip_array\n";print "internal available ips: \n";@int_available_ip_array = sort {$a $b} @int_available_ip_array;print "@int_available_ip_array\n";第二篇，从nmap中读取#! /usr/bin/perlsystem("nmap -v -sP 111.111.112.0/24 > biotek");system("nmap -v -sP 111.111.111.0/24 > ncmm");system("nmap -v -sP 192.168.8.0/24 > internal");my $file1 = "biotek";my $file2 = "ncmm";my $file3 = "internal";open (FILE1, $file1) or die ("can not read file!");open (FILE2, $file2) or die ("can not read file!");open (FILE3, $file3) or die ("can not read file!");# my $octet4;my @biotek_occupied_ip_array;my @ncmm_occupied_ip_array;my @int_occupied_ip_array;my @ip_array = (1..254);# print "all ips: \n";# print "@ip_array\n";while(my $line=){ if ($line =~ /(.*)uio\.no \(111\.111\111\.(\d+)\)/ ) { my $octet4 = $2; push(@biotek_occupied_ip_array,$octet4); }}while(my $line=){ if ($line =~ /(.*)uio\.no \(111\.111\.111\.(\d+)\)/ ) { my $octet4 = $2; push(@ncmm_occupied_ip_array,$octet4); }}while(my $line=){ if ($line =~ /(.*)192.168.8.(\d+)$/ ) { my $octet4 = $2; push(@int_occupied_ip_array,$octet4); }}@biotek_occupied_ip_array = sort {$a $b} @biotek_occupied_ip_array;print "biotek ocupied ips: \n";print "@biotek_occupied_ip_array\n";print "there are ".scalar(@biotek_occupied_ip_array)." hosts\n";@ncmm_occupied_ip_array = sort {$a $b} @ncmm_occupied_ip_array;print "ncmm ocupied ips: \n";print "@ncmm_occupied_ip_array\n";print "there are ".scalar(@ncmm_occupied_ip_array)." hosts\n";@int_occupied_ip_array = sort {$a $b} @int_occupied_ip_array;print "internal ocupied ips: \n";print "@int_occupied_ip_array\n";print "there are ".scalar(@int_occupied_ip_array)." hosts\n";my @biotek_available_ip_array = diff(\@ip_array,\@biotek_occupied_ip_array);my @ncmm_available_ip_array = diff(\@ip_array,\@ncmm_occupied_ip_array);my @int_available_ip_array = diff(\@ip_array,\@int_occupied_ip_array);sub diff{my ($array1,$array2) = @_;my @array3;%count = ();foreach $element (@$array1,@$array2){$count{$element}++;}foreach $element (keys %count){push @array3,$element if( $count{$element} == 1 );}return sort @array3;}print "biotek available ips: \n";@biotek_available_ip_array = sort {$a $b} @biotek_available_ip_array;print "@biotek_available_ip_array\n";print "ncmm available ips: \n";@ncmm_available_ip_array = sort {$a $b} @ncmm_available_ip_array;print "@ncmm_available_ip_array\n";print "internal available ips: \n";@int_available_ip_array = sort {$a $b} @int_available_ip_array;print "@int_available_ip_array\n";

㈧ 如何在perl脚本中获取IP地址，脚本该怎么写

可以考虑调用windows的外部命令获取ip地址，例如：
$s=`ipconfig`;
print
"|$s|";
字符串变量$s里面含有机器上所有的ip信息，可以通过正则表达式获取你需要的部分。

㈨ shell 脚本获得当前 ip地址

bin=$(ifconfig | awk -F'addr:|Bcast' '/Bcast/{print $2}')