腳本獲取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}')