VB脚本普及-各类有用的管理脚本(之一)
1. 重启PC，reboot.vb
8 a& m3 L9 |, H$ u$ L8 p============================
2 ^0 h* W S2 RDim strComputer / O8 I# \# h' Z
Dim WshNetwork
' O1 r+ V9 }, [+ ^' r/ J# W- |Set WshNetwork = WScript.CreateObject("WScript.Network")
8 ` U! r1 N( z1 lstrComputer = WshNetwork.ComputerName
) o) \3 A5 r' Z5 ZSet objWMIService = GetObject("winmgmts:" _
' b0 S% l9 g: T% F; H& "{impersonationLevel=impersonate,(Shutdown)}!\\" & strComputer & "\root\cimv2")
7 ^" C: i* H3 i- x, SSet colOperatingSystems = objWMIService.ExecQuery _
5 Z+ E- b, M) h4 ]4 T("Select * from Win32_OperatingSystem")
7 T' {: [' o2 Z u. R: j& YFor Each objOperatingSystem in colOperatingSystems2 d5 o! P; F E
ObjOperatingSystem.Reboot()
& P6 d3 [/ B2 oNext$ u! ^% V, z# b4 B8 M' M
===============================! `% h6 j7 I0 x) A( V
! ~8 D4 G' c9 C7 a( I! E, O( t6 J$ v# Z) F/ A+ R
2.重命名本机管理员密码 reset.vbs
; m& y' X3 h) e" J===============================
: K8 @/ ?; g* i5 S- \- hDim strComputer . l5 j& L9 {; ~0 j
Dim WshNetwork
8 B6 v% ^0 x ?# m3 FSet WshNetwork = WScript.CreateObject("WScript.Network")5 |, D$ f9 F0 Z" ]7 o% @3 w4 T- k& x+ }
strComputer = WshNetwork.ComputerName
9 `1 ]' \9 o' hSet objUser = GetObject("WinNT://" & strComputer & "/Administrator, user")' s' V4 ^& x& N' M
objUser.SetPassword "123456". Z6 [; Q; ?; N* R# p
objUser.SetInfo
0 m* n$ v- ?( c$ J$ h================================
Y% y; W' j) D
2 l+ P; s' f5 O. e$ Y' ^5 T
' \ {7 I5 S- U+ q/ v; j& W; C9 K3.禁用本机guest用户( ~. p( i* i" c
================================
6 k6 e( ~' o( G- U H! y9 B' aDim strComputer
3 C- J, R6 `* ]! w$ e. h# nDim WshNetwork
4 M" K# `, m# ZSet WshNetwork = WScript.CreateObject("WScript.Network")
" U( B/ R N& W3 ]strComputer = WshNetwork.ComputerName
0 r( u% y9 Z( A0 qSet objUser = GetObject("WinNT://" & strComputer & "/Guest")
* o) w& q4 ?% B0 |objUser.AccountDisabled = True) q- c; m- F* x8 r8 A
objUser.SetInfo3 _# }# E0 S1 b6 L' V9 o. n4 u
================================
* M$ H0 l0 n3 p" y- r+ `( W* Z$ s- J6 {# ^
4.将当前登录的域用户加入本机power user组
/ X+ Y5 Y+ M T5 n, Z================================! @9 |4 _! z. c' e* r: ?
Dim objNetwork. {9 d( l# ~# |; A& i4 \; v- }7 o
Dim sLogonUserName; `+ |: p/ U, G. z0 O2 @9 X0 p& E
Dim objGroup" h6 o0 w/ \1 A* _ r! B
Set objNetwork = CreateObject("Wscript.Network")
1 ]# b2 x/ t6 e+ v1 N( P, \strComputer = objNetwork.ComputerName4 Q* |3 Q$ D V
sLogonUserName = objNetwork.UserName3 s' J# Y! O/ S) } P# @" C. D7 f' O
Set objGroup = GetObject("WinNT://" + strComputer + "/Power Users,Group")
( ]3 n) n: U+ W7 m* [+ mobjGroup.Add "WinNT://abc.com/"&sLogonUserName&""5 X# Y; f. ]* H6 c% Q' G6 L$ I ^
7 Y7 b* V& O' q. P2 F1 x0 m[ 本帖最后由 xhejun 于 2007-4-20 17:23 编辑 ]
