1、建立ShowVersion.vbs，放置在组策略计算机－启动中
. ~. ~/ ^* H9 W4 P* G
0 R; ~( F7 q4 Z/ X7 }Dim ip4 R- @, q( T. k8 X
Dim Mac
0 ?4 l- R: y6 V2 O2 |& i& z) BstrComputer = "."2 O* J5 L% j* s" |! j* R* q# G
Set objWMIService = GetObject("winmgmts\" & strComputer & "\root\cimv2")$ {$ w1 N9 D0 \, N! w
Set IPConfigSet = objWMIService.ExecQuery _
' l E- N$ ^' U- b ("Select IPAddress,MacAddress from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
4 Z4 D% c7 m' J/ HFor Each IPConfig in IPConfigSet7 _6 j, s* W- m( ~
If Not IsNull(IPConfig.IPAddress) Then
* M% v( P& M5 O Y+ \; h" e {7 p For i=LBound(IPConfig.IPAddress) to UBound(IPConfig.IPAddress)
5 y4 m, v, |3 |! T, L' V ip = IPConfig.IPAddress(i)
* }, M, P4 u4 @: v* }% ^ Mac = IPConfig.MacAddress
4 i# m# {/ A# K Next
6 j& A$ Y: F8 Q9 J( {' j$ ~& A4 y2 v End If
/ V; D# b6 m6 c: KNext
* J) F$ f. b4 D/ S4 K+ O1 P
2 i) e: a; q* T% E3 m4 J+ ]Const ForWriting = 8 ( S; L8 M% n! K4 i
Set lei2=WScript.CreateObject("WScript.Network")
& k) I, u, P3 P, t: m$ aCN=lei2.computername. G" y& _' _) q; S9 H, x1 J
" A, R0 }6 I1 k5 p5 S
const HKEY_LOCAL_MACHINE = &H80000002
' U1 J5 J# E4 } B4 Y8 ?' w K; ZstrComputer = "."
! p7 G, s7 R% X$ Q( ]& {Set StdOut = WScript.StdOut
5 U* M6 Q6 k% r* L: h6 FSet oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_
3 _0 R7 I& J9 [. j$ e' X" ?strComputer & "\root\default:StdRegProv")% s' \* `/ {. b* P6 a
strKeyPath = "SOFTWARE\Microsoft\Windows NT\CurrentVersion"
$ x7 _- j% x" E5 A1 ^1 W4 x% O! {strValueName = "BuildLab"% Y' w2 F7 ?1 A$ V
strValue = "( "&CN&" )"
! L g; U* z) D" OoReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue) L: z- W7 _+ r4 b* |
strValueName = "DWORD Value Name"
, h% K0 m" w) U) m/ T- Q! n. |dwValue = 82
# k9 Y5 k4 T7 QoReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue
! k' J" j# h3 O: N
" C+ t- I+ ^9 u, r
& K& R# h; A3 t- s dSet oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_ 1 {" M+ d3 {# O* ?4 B/ b6 t
strComputer & "\root\default:StdRegProv")6 R+ J' O$ o% v5 C6 F9 k
strKeyPath = "SOFTWARE\Microsoft\Windows NT\CurrentVersion"+ g" j/ s$ P5 D- L0 R
strValueName = "CSDVersion"' b+ N: m& y1 @: W
strValue = ip & " ) ( "& Mac2 g) X' Z" r8 ^0 [. ?2 h
oReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue- s; [% \6 v# k* q/ D
strValueName = "DWORD Value Name"7 K' {2 u9 I, k7 ?$ r4 b# U n
dwValue = 82
1 d4 F6 b, J% @" ?7 w. I: ?oReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue
$ t' A5 |7 h8 g; z- H% }) ~
! c6 m3 \: E8 M9 W: Q9 d3 n+ _& |8 l2、建立DisplayVersion.bat，放置在组策略用户－登录中，如果有2k的客户端，请使用网络共享中的reg命令2 I; n4 z) I- B* t! `

4 V. v [9 T5 H8 @$ nreg add hkcu\Control" "anel\Desktop /v PaintDesktopVersion /t REG_DWORD /d 1 /f3 G+ J! I9 ~( l7 q& e

! M/ b, j3 H* r' x# t# W3、注意点：' h0 b: A0 P! {2 E# U. i- N7 h+ s- w
1、需要重新启动两次
1 h( y8 I! V: S! a" \+ L2 w' P 2、启动后在登录界面等待15秒以上，再登入; R- F! Z+ l8 W
* B7 ?% b8 ]- H6 r; O

- L: N5 ]2 F/ v# W以上是我在网上找的，可是我不知道这第二步具体怎么个意思！没理解，没明白！不知各位谁知道？给解释下！谢谢先！

用组策略统一部署Bginfo软件,所有电脑桌面上显示IP等信息！
/ k7 |$ \: q* a用组策略统一部署Bginfo软件 & G$ M! d2 S. ^

- y5 S& d# h# h7 T" Z在公司局域网使客户端技术支持人员，更快处理客户端问题，技术人员往往通常远程控制客户端来解决问题，但我们在电话里让普通用户告诉其ＩＰ地址，说了大半天时间有时候还不知道从哪里看IP；下面我们通过公司域环境环境中使用Bginfo软件，通过脚本和组策略来实现所面的系统信息；
# G B, Y4 ~; d; C: SBginfo是一款可以把有用的系统信息并能把这些有用文字显示在墙纸上，具体去http://www.microsoft.com/technet ... ilities/BgInfo.mspx 了解； ( A. j1 {) g# @) E8 X) [
, ?& B3 V/ P4 j* w" w2 e, J

- X. d* T9 ?) G0 y0 c% G1 k1 _! b1、 打开bgifo软件,里面有许多选项，大家根据自己的需要选取 ) z, p8 e- p7 z. k# }

* ?, F0 r. A. ]. o. J. w% Q1 U- `/ M- X6 V5 }# G% j5 u
- C1 v- _6 H' Z
2、 另存当前的配置文件”File”->”Save as” 这里以bginfo.bgi
J: u/ T5 Z! @4 x1 P- d/ O3、 建立一个bginfo.bat文件,内容如下:
1 z- w1 Y/ x+ D# B; M- j@echo off 6 c! S, w h: ~0 ~) V
Net use w: “局域网中共享目录“ 1 K! F; \( r. N; h/ j; D$ `
w:
- ]3 y" {5 ^, n; Nbginfo.exe /iqwbginfo.bgi /timer:0
4 t. L# M8 } X6 T9 ~4 o- Nnet use w: /del /y
% o$ y+ Y H/ m9 g4、 把bginfo.exe 、bginfo.bgi、bginfo.bat文件，拷贝到“局域网中共享目录“
. H/ M. n5 c% ~: J6 a, J( s- p5、 通过组策略管理器（GPMC），编辑或新建的一下组策略，在计算机配置中选择 windows设置，脚本（启动／关机），启动添加bfinfo.bat文件;
2 @3 q {/ L3 c: P
6 z* x3 c2 X A4 \! [+ m$ v/ I2 z' r# O
6、组策略的“用户配置”——桌面 Active desktop启用（Active desktopt和Active desktop墙纸）,其中 Active desktop墙纸的名称（%systemtoor%\bginfo.bmp）
' u, G8 q4 a7 F# l3 S/ |3 _+ j9 k& _! K/ _+ w( J

; H) s' g. D' m+ z5 X7 i最后运行 cmd 回车，gpupdate 或重启计算机看一下效果；' L3 ]# j- t2 o$ a. O
8 |" Z7 y& ?9 m* p5 y
, z& `" R$ Y, G: d. P) |8 Q y
这是找到的另外一种方法，这方法我立马就试验下一会来报告试验结果！ 高手们帮我解释下我上面的问题 OK否 ？

试验不成功 有错误弹出来了！ 贼郁闷！

引用:

原帖由 tian930 于 2008-1-4 14:13 发表
' E V6 ?- q9 `4 Q9 N7 ~试验不成功 有错误弹出来了！ 贼郁闷！

- d7 H% i; ~6 Y, u8 _& Dhttp://www.sharecenter.net/thread-191332-1-1.html
; ]. ?$ k) t! E" I用戶權限？

复制内容到剪贴板

代码:

Set objShell = CreateObject("Wscript.shell")
Set objFSO = CreateObject("scripting.filesystemobject")
If objFSO.FileExists("c:\windows\system32\bginfo.exe") = False Then
objFSO.CopyFile "\\服務器ip\config\bginfo.exe","c:\windows\system32\"
objFSO.CopyFile "\\服務器ip\config\bob.bgi","c:\windows\system32\"
objFSO.CopyFile "\\服務器ip\config\BGInfo.bmp","c:\windows\"
'WScript.Echo "Copy Finished!"
set ws=wscript.createobject("wscript.shell")
objShell.Run ("cacls.exe c:\windows\BGInfo.bmp /e /t /g users:F")
End If
objShell.RegWrite "HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\Bginfo","c:\windows\system32\bginfo.exe c:\windows\system32\bob.bgi /timer:0","REG_SZ"
objShell.Run "bginfo.exe c:\windows\system32\bob.bgi /timer:0"
WScript.Quit

失败了..