87,993
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
qiushuiwuhen 2002-04-29
- 打赏
- 举报
<object id=winsock1 classid=clsid:248DD896-BB45-11CF-9ABC-0080C7E7B78D onerror=alert("没有这个控件")></object>
<script>
alert(winsock1.localHostName)
alert(winsock1.localIP)
</script>
<script>
alert(winsock1.localHostName)
alert(winsock1.localIP)
</script>
saucer 2002-04-28
- 打赏
- 举报
如果你的ActiveX安全设置比较低的话，试试
<script language="vbscript">
TempFileName="c:\temp\Tempfile.txt"
TempBatchFileName="c:\temp\Tempfile.bat"
Const ForReading = 1, ForWriting = 2, ForAppending = 3
set oFileSystem = CreateObject("Scripting.FileSystemObject")
Set oFile = oFileSystem.CreateTextFile(TempBatchFileName, True)
oFile.WriteLine "cd\" & chr(13) & chr(10) & "ipconfig /all > " & TempFileName
oFile.Close
set oFile=nothing
set oShell=CreateObject("WScript.Shell")
iReturnValue=oShell.run(TempBatchFileName,1,true)
set oFile = oFileSystem.OpenTextFile(TempFileName, ForReading)
sIPString=oFile.ReadAll
msgbox sIPString
oFile.Close
set oFile=nothing
oFileSystem.DeleteFile TempBatchFileName,true
oFileSystem.DeleteFile TempFileName,true
set oFileSystem=nothing
set oShell = nothing
</script>
<script language="vbscript">
TempFileName="c:\temp\Tempfile.txt"
TempBatchFileName="c:\temp\Tempfile.bat"
Const ForReading = 1, ForWriting = 2, ForAppending = 3
set oFileSystem = CreateObject("Scripting.FileSystemObject")
Set oFile = oFileSystem.CreateTextFile(TempBatchFileName, True)
oFile.WriteLine "cd\" & chr(13) & chr(10) & "ipconfig /all > " & TempFileName
oFile.Close
set oFile=nothing
set oShell=CreateObject("WScript.Shell")
iReturnValue=oShell.run(TempBatchFileName,1,true)
set oFile = oFileSystem.OpenTextFile(TempFileName, ForReading)
sIPString=oFile.ReadAll
msgbox sIPString
oFile.Close
set oFile=nothing
oFileSystem.DeleteFile TempBatchFileName,true
oFileSystem.DeleteFile TempFileName,true
set oFileSystem=nothing
set oShell = nothing
</script>
孟子E章 2002-04-28
- 打赏
- 举报
NN4 (and NN3 I think but I haven't checked the code with it) allows
that by calling into Java:
var localhost = java.net.InetAddress.getLocalHost();
var hostname = localhost.getHostName();
var hostIP = localhost.getHostAddress();
alert('You are visiting from host ' + hostname
+ ' with ip address ' + hostIP);
The only way with IE to use Java is an applet but the above code
(transcribed into Java) run in an applet is reported to return
localhost
for the hostname respectively
127.0.0.1
for the ip address.
So all you can do for IE (and Opera and NN6) is to use server side
assists meaning a cgi script or php script dynmically returning the
REMOTE_ADDR cgi variable. I have set up such an assists at
http://www.csdn.net/jshelper/ipAddress.php
which returns a statement of the form
var ipAddress = '123.123.123.123;
so that a script can then access the variable
ipAddress
to read the value e.g.
<HTML>
<HEAD>
<SCRIPT SRC="http://www.csdn.net/jshelper/ipAddress.php">
</SCRIPT>
</HEAD>
<BODY>
<SCRIPT>
document.write(ipAddress)
</SCRIPT>
</BODY>
</HTML>
that by calling into Java:
var localhost = java.net.InetAddress.getLocalHost();
var hostname = localhost.getHostName();
var hostIP = localhost.getHostAddress();
alert('You are visiting from host ' + hostname
+ ' with ip address ' + hostIP);
The only way with IE to use Java is an applet but the above code
(transcribed into Java) run in an applet is reported to return
localhost
for the hostname respectively
127.0.0.1
for the ip address.
So all you can do for IE (and Opera and NN6) is to use server side
assists meaning a cgi script or php script dynmically returning the
REMOTE_ADDR cgi variable. I have set up such an assists at
http://www.csdn.net/jshelper/ipAddress.php
which returns a statement of the form
var ipAddress = '123.123.123.123;
so that a script can then access the variable
ipAddress
to read the value e.g.
<HTML>
<HEAD>
<SCRIPT SRC="http://www.csdn.net/jshelper/ipAddress.php">
</SCRIPT>
</HEAD>
<BODY>
<SCRIPT>
document.write(ipAddress)
</SCRIPT>
</BODY>
</HTML>
genuis 2002-04-28
- 打赏
- 举报
同上
孟子E章 2002-04-28
- 打赏
- 举报
IE不能实现，NS可以用java实现
