在桌面上显示当前的IP地址和电脑名称

每天上WINMAG社区看看现在似乎已经成了习惯，昨天在WINDOWS管理脚本区看到“mypeter”网友的“请问怎样在桌面上原来显示版本号的地方显示当前的IP地址和电脑名称呢？（基本解决）”的贴子！贴中介绍了他使用VBS与BAT脚本来实现了该功能，对此非常感兴趣，按照他的方法我经过调试在自已管理的域里也实现该功能，现将脚本公布如下，并对“mypeter”表示感谢！

1、请将下述代码存在VBS格式：

Dim ip

Dim Mac

strComputer = "."

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

Set IPConfigSet = objWMIService.ExecQuery _

("Select IPAddress,MacAddress 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)

ip = IPConfig.IPAddress(i)

Mac = IPConfig.MacAddress

End If

Const ForWriting = 8

Set lei2=WScript.CreateObject("WScript.Network")

CN=lei2.computername

const HKEY_LOCAL_MACHINE = &H80000002

strComputer = "."

Set StdOut = WScript.StdOut

Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_

strComputer & "\root\default:StdRegProv")

strKeyPath = "SOFTWARE\Microsoft\Windows NT\CurrentVersion"

strValueName = "BuildLab"

strValue = "( "&CN&" )"

oReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue

strValueName = "DWORD Value Name"

dwValue = 82

oReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue

Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_

strComputer & "\root\default:StdRegProv")

strKeyPath = "SOFTWARE\Microsoft\Windows NT\CurrentVersion"

strValueName = "CSDVersion"

strValue = ip & " ) ( "& Mac

oReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue

strValueName = "DWORD Value Name"

dwValue = 82

oReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue

2、请将下述代码存为BAT格式：

reg add hkcu\Control" "Panel\Desktop /v PaintDesktopVersion /t REG_DWORD /d 1 /f

3、注意点：

1、需要重新启动两次。

2、启动后在登录界面等待15秒以上，再登入。

3、在WIN2000中没有BAT中REG程序，而XP系统中有，如需要在2000域中使用请将REG程序COPY到一个共享目录中，并在BAT代码中加入REG的共享路径。

转载于:https://blog.51cto.com/xxjiangsir/386560

在桌面上显示当前的IP地址和电脑名称相关推荐

在桌面上显示当前的ip地址_如何在桌面上显示当前播放的歌曲的专辑封面
在桌面上显示当前的ip地址 Album art used to be an inseparable part of music, back when it came in record or CD f ...
用CMD命令查看局域网电脑IP地址，电脑名称及MAC地址
C:\Documents and Settings\Administrator>net view 服务器名称注释 ---------------------------- ...
cmd查看网络计算机名字,cmd通过ip地址查电脑名称怎样做
1.点击任务栏中的"开始"按钮,选择"所有程序",再选择"附件",再选择弹出菜单中的"记事本",打开记事本程序: 2. ...
电脑桌面便签小工具_可以直接在桌面上显示内容的便签软件电脑版
电脑上可以直接在桌面显示内容的便签小工具有很多,比如系统便笺,比如敬业签商务办公云便签,以上班族经常会使用的敬业签桌面工作小便签为例,在电脑桌面上编辑.显示便签内容的主要方法是: 1.点击便签程序顶部 ...
linux音乐播放桌面歌词,在优麒麟Ubuntu桌面上显示歌词
对于IT一族,边工作边听音乐是必不可少的,有时遇到好听的曲目或者不知道歌手在唱什么,显示歌词就显得非常必要了.既然在Windows平台上可以方便地做到,那么对于无所不能的Linux程序员自然也不在话下 ...
设置在桌面上不显示计算机,怎么在桌面上显示我的电脑我的电脑桌面不显示怎么办...
今天给大家带来怎么在桌面上显示我的电脑,我的电脑桌面不显示怎么办,让您轻松解决问题.大家习惯用windowsXP.windows7系统,刚用windows10在桌面上找不到我的电脑.网络邻居.控制面板 ...
linux C如何获取服务器节点上所有网口的ip地址
http://blog.csdn.net/weiyuefei/article/details/22198659 之前项目原因,需要获取当前服务器节点上所有网口的ip地址,但是当时由于时间比较紧,一直没 ...
hp laser103 属性没有配置项_哦？在hp打印机面板上就可以更改打印机ip地址
修改打印机IP的方法有很多但都没有直接从打印机控制面板上修改方便过瘾虽然有些机器不支持但是惠普大部分机器还是可以的今天我们就以 LaserJet M227 系列打印机为例 hp官方为大家介 ...
在linux桌面上显示图标
把应用程序的图标添加到桌面上左图显示了把应用程序的图标添加到桌面上的两种方法,哪种更好看? 想要把应用程序图标添加到桌面上,请先确保已设置了在桌面上显示图标,方法是:1.安装gnome-tweak- ...

在桌面上显示当前的IP地址和电脑名称

在桌面上显示当前的IP地址和电脑名称相关推荐

最新文章

热门文章