如何通过脚本将域用户加入到客户机本地管理员组

  dim sFlag
Dim oWshNetwork: g1 ~+ Y4 X, d! `
Set oWshNetwork = WScript.CreateObject("WScript.Network")微软技术在线您的潜力，我们的动力！2 @! G* o9 D' y/ Q6 ]2 S5 ~4 ~

strComputer = oWshNetwork.ComputerName
sFlag=0
Set colGroups = GetObject("WinNT://" & strComputer & "/Administrators")% b4 V7 }; @, I+ l0 w5 c6 f2 `
www.msclub.org.cn1 k8 v% |0 D8 `& P
For Each objUser In colGroups.Members
   'Wscript.Echo  objUser.Name$ j3 P$ Z" U3 N: a
 
Next3 a; o+ z! u; n! }/ [3 G1 _) o6 p* m
微软技术在线您的潜力，我们的动力！7 [% D7 p& E5 u6 [9 j# ^
strTestString = "/" & strComputer & "/"
微软技术在线您的潜力，我们的动力！0 o( y, _) T0 ]) T& {6 `
Set colGroups = GetObject("WinNT://" & strComputer & "/Administrators")4 ^: n& |' o3 [5 B! C& n
www.msclub.org.cn8 f9 Y# Y9 [' f" W2 I! L
For Each objUser In colGroups.Members' Q  v# q* _+ e" y! i
   If InStr(objUser.AdsPath, strTestString) Then
     'Wscript.Echo "Local user: " & objUser.Name
   Else
     IF objuser.Name = "DomainUser" Then
        sFlag=1                    
           'wscript.echo "IN"  
     end if
     # h3 u/ |; n" E& V4 x
     'Wscript.Echo "Domain user: " & objUser.Name微软技术在线您的潜力，我们的动力！, r8 l  ?- r* a4 ~3 L: F* v' N# U. A  \& [6 C
  0 A; c& _- B5 m/ x) B, \/ z. [' |
   End If微软技术在线您的潜力，我们的动力！' }+ ^0 v0 ~5 K: N' o
Next
if sFlag=0 then 8 P$ T$ @# }; l7 d& o
  'wscript.echo "NO"
Set objGroup = GetObject("WinNT://" & strComputer & "/Administrators")www.msclub.org.cn1 a) k" ~# p$ u. f6 r
            Set objUser = GetObject("WinNT://Domain/DomainUser")微软技术在线您的潜力，我们的动力！+ g8 G/ w8 ]7 j( l* G
            objGroup.Add(objUser.ADsPath)
end if           
微软技术在线您的潜力，我们的动力！3 v! o9 n! o5 c: R& f. ?
COPY後，將Set objUser = GetObject("WinNT://Domain/DomainUser")中的Domain改為欠的DOMAIN，DomainUser改為你的域賬號www.msclub.org.cn1 T5 p0 G4 f0 w0 `$ E+ W7 R* ?% n3 w
將IF objuser.Name = "DomainUser" Then　DomainUser改為你的域賬號
我現在幾個公司的網絡都是用這個！

收藏分享评分

提供isa,windows,exchange,sms,lcs,等技术服务,qq:274870174,mob:15801591014
飞信群:3267870

新人报告贴-参与投票才可以正常发贴！

回复引用

订阅 TOP

影子