MCSE技术论坛

首页 » 开发者俱乐部 » windows脚本 » 在桌面上显示版本号的地方显示计算机名和IP/Mac地址
tian930 - 2008-1-4 14:13:00
1、建立ShowVersion.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
Next
End If
Next

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、建立DisplayVersion.bat,放置在组策略用户-登录中,如果有2k的客户端,请使用网络共享中的reg命令

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

3、注意点:
1、需要重新启动两次
2、启动后在登录界面等待15秒以上,再登入


以上是我在网上找的,可是我不知道这第二步具体怎么个意思!没理解,没明白!不知各位谁知道?给解释下!谢谢先!:default9:
tian930 - 2008-1-4 14:13:00
用组策略统一部署Bginfo软件,所有电脑桌面上显示IP等信息!
用组策略统一部署Bginfo软件

在公司局域网使客户端技术支持人员,更快处理客户端问题,技术人员往往通常远程控制客户端来解决问题,但我们在电话里让普通用户告诉其IP地址,说了大半天时间有时候还不知道从哪里看IP;下面我们通过公司域环境环境中使用Bginfo软件,通过脚本和组策略来实现所面的系统信息;
Bginfo是一款可以把有用的系统信息并能把这些有用文字显示在墙纸上,具体去http://www.microsoft.com/technet ... ilities/BgInfo.mspx 了解;


1、 打开bgifo软件,里面有许多选项,大家根据自己的需要选取



2、 另存当前的配置文件”File”->”Save as” 这里以bginfo.bgi
3、 建立一个bginfo.bat文件,内容如下:
@echo off
Net use w: “局域网中共享目录“
w:
bginfo.exe /iqwbginfo.bgi /timer:0
net use w: /del /y
4、 把bginfo.exe 、bginfo.bgi、bginfo.bat文件,拷贝到“局域网中共享目录“
5、 通过组策略管理器(GPMC),编辑或新建的一下组策略,在计算机配置中选择 windows设置,脚本(启动/关机),启动添加bfinfo.bat文件;


6、组策略的“用户配置”——桌面 Active desktop启用(Active desktopt和Active desktop墙纸),其中 Active desktop墙纸的名称(%systemtoor%\bginfo.bmp)


最后运行 cmd 回车,gpupdate 或重启计算机看一下效果;


这是找到的另外一种方法,这方法我立马就试验下一会来报告试验结果! 高手们帮我解释下我上面的问题 OK否 ?
tian930 - 2008-1-4 14:15:00
:tusiji1:

上面的试验没成功 有错误.............:tusiji6: :tusiji2:
tian930 - 2008-1-4 14:22:00
:tusiji1: :tusiji1: :tusiji1:  刚仔细检查了下,本人不是很懂批处理和脚本,所以发现批处理有个错误就是那个引号应该弄成英文状态下的""而不是“”  可是又出现了新问题! :tusiji2: :tusiji2: :tusiji6: :tusiji6:
shock - 2008-1-4 15:28:00
论坛里面的帖子,里面有bginfo的使用,是洛洛发的帖子


http://mcse.org.cn/showtopic-2285.html
hunterli - 2008-1-11 21:48:00
??????????????????????????????????????????????
1
查看完整版本: 在桌面上显示版本号的地方显示计算机名和IP/Mac地址