該代碼能在dreamweaver2004中運(yùn)行就行了。HTML或者PHP的都可以。所唯的屬性就是要有你機(jī)子的IP地址，瀏覽器等.

熱心網(wǎng)友

其實(shí)也可以用j 自動顯示對方的瀏覽器版本:2。然后是機(jī)器屬性,用WSHOptionExplicitDimWSHShellDimsNic,sManDimGatewayDimIPAddressDimSubnetMaskDimiDimsTcpipRegKeyDimbIsDHCPSetWSHShell=CreateObject("WScript。Shell")sNic=WSHShell。RegRead("HKLM\SOFTWARE\Microsoft\WindowsNT\CurrentVersion\NetworkCards\1\ServiceName")IfsTcpipRegKey"Microsoft"AndErr。Number=0ThensTcpipRegKey="HKLM\SYSTEM\CurrentControlSet\Services\"&sNic&"\Parameters\Tcpip\"bIsDHCP=WSHShell。RegRead(sTcpipRegKey&"EnableDHCP")IfbIsDHCPThenGateway=WSHShell。RegRead(sTcpipRegKey&"DhcpDefaultGateway")IPAddress=WSHShell。RegRead(sTcpipRegKey&"DhcpIPAddress")SubnetMask=WSHShell。RegRead(sTcpipRegKey&"DhcpSubnetMask")MsgBox("DefaultGateway:"&Gateway(0)&Chr(10)&Chr(13)&"IPAddress:"&IPAddress&Chr(10)&Chr(13)&"SubnetMask:"&SubnetMask)ElseGateway=WSHShell。RegRead(sTcpipRegKey&"DefaultGateway")IPAddress=WSHShell。RegRead(sTcpipRegKey&"IPAddress")SubnetMask=WSHShell。RegRead(sTcpipRegKey&"SubnetMask")Fori=0toUbound(IPAddress)-1MsgBox("DefaultGateway:"&Gateway(0)&Chr(10)&Chr(13)&"IPAddress:"&IPAddress(i)&Chr(10)&Chr(13)&"SubnetMask:"&SubnetMask(i))NextEndIfEndIf。