该代码能在dreamweaver2004中运行就行了。HTML或者PHP的都可以。所唯的属性就是要有你机子的IP地址，浏览器等.
热心网友
其实也可以用j 自动显示对方的浏览器版本:2。然后是机器属性,用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。