＋设为首页 ＋添加到收藏夹
如果我取的对方IP，怎么通过IP取得对方计算机名。同一局域网内。
运行 CMD .
输入： nbtstat -a 192.168.1.N (对方IP地址)
关注学习中!
NBTStat
NBTStat实用程序用于提供关于关于NetBIOS的统计数据。运用NetBIOS，你可以查看本地计算机或远程计算机上的NetBIOS名字表格。
常用选项：
nbtstat -n——显示寄存在本地的名字和服务程序。
nbtstat -c——本命令用于显示NetBIOS名字高速缓存的内容。NetBIOS名字高速缓存用于寸放与本计算机最近进行通信的其他计算机的NetBIOS名字和IP地址对。
nbtstat -r——本命令用于清除和重新加载NetBIOS名字高速缓存。
nbtstat -a IP——通过IP显示另一台计算机的物理地址和名字列表，你所显示的内容就像对方计算机自己运行nbtstat -n一样。
nbtstat -s IP——显示实用其IP地址的另一台计算机的NetBIOS连接表。
关于取本地计算机的IP地址及计算机名的看法
大体步骤：
1：先创建一个窗体。
2：将一个label1，一个按扭 bitbtn1,bittn2 放入窗体。
3：对BITBTN1 的onCLICK 事件编程。
编程如下：
.......
var
tp:ttcpclient;
strname,straddr:string;
begin
tp:=ttcpclient.create(self);
tp.close;
tp.open;
strname:=tp.LocalHostName;
straddr:=tp.LocalHostAddr;
label1.caption:=strname+ IP: +straddr;
tp.close;
end;
bitbtn2 的onclick 事件如下:
.....
begin
close;
end;
如上程序，运行后，单击bitbtn1 按扭， label1 将显示出本地计算机的 IP地址 和计算机名。
<%
function htmlencode(str)
dim result
dim l
if isNULL(str) then
htmlencode=""
exit function
end if
l=len(str)
result=""
dim i
for i = 1 to l
select case mid(str,i,1)
case "<"
result=result+"<"
case ">"
result=result+">"
case chr(34)
result=result+""""
case "&"
result=result+"&"
case else
result=result+mid(str,i,1)
end select
next
htmlencode=result
end function
on error resume next
ip="192.168.1.198" 对方IP
ip_txt_path=Server.mappath("ip")&"\" 存放计算机名的目录
ip_txt_name="ip.txt" 存放计算机名的文件
read_ip=ip_txt_path&ip_txt_name
ip_command="nbtstat -a "&ip&" >> "&ip_txt_path&ip_txt_name 执行命令
response.write ip_txt_path&"<br>"
response.write ip_txt_name&"<br>"
response.write ip_command&"<br>"
response.write read_ip&"<br>"
Set WshShell = server.CreateObject("Wscript.Shell")
IsSuccess = WshShell.Run (ip_command, 1, True)
if IsSuccess = 0 Then
Response.write " 命令成功执行！"
else
Response.write " 命令执行失败！权限不够或者该程序无法运行"
end if
if err.number <> 0 then
Response.Write "<p>错误号码：" & Err.number
Response.Write "<p>原因：" & Err.description
Response.Write "<p>错误来源：" & Err.Source
end if
Set fs =CreateObject("Scripting.FileSystemObject")
Set thisfile = fs.OpenTextFile(read_ip, 1, False) 读文件路径.
counter=0
do while not thisfile.atendofstream
counter=counter+1
thisline=htmlencode(thisfile.readline)
response.write thisline&"<br>"
loop
thisfile.Close
set fs=nothing
%>
哦哦，学习。。
用控件
mark
关注
up
对方可以屏蔽的吧？？？
mark he
mark
用vbs在客户端使用WshShell调用
ipconfig -all 得到结果用xmlhttp post服务器端
这种方法好处就是可以绕过对方防火墙,因为现在的防火墙连ping都不会让你ping,更何况使用nbtstat访问NetBIOS,这种危险操作了
学习
ip跟计算机名有不可分割的联系？
