モンスターカレンダー

« 2011年8月 
12345678910111213141516171819202122232425262728293031

ローカルAdministratorsからグループ・ユーザーを削除するVBScript

| Windows
このエントリーをはてなブックマークに追加

興味のある方は少ないと思いますが、ローカルAdministratorsからグループ・ユーザーを削除するVBScriptを作成したので、備忘録として記事にしておきます。



ActiveDirectoryのグループポリシーの機能で、複数端末に一括設定する時などに使用出来ると思います。
以下がScriptの内容です。

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' PG : 不要なグループの削除
' Author : 2011/08/15 kibanteam
'
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

'''''''''''''''''''''''''''''
' 定数
'
'''''''''''''''''''''''''''''
Const e = "NG"
Const c = "OK"
Const MACHINE_NAME = "."
Const GROUP_PATH = "Administrators"
Const LOCAL_ADMIN = "Administrator"
Const DOMAIN_ADMINS = "Domain Admins" '必要に応じて変更
Const DOMAIN_PERSONALUSERS = "PersonalUsers" '必要に応じて変更


'''''''''''''''''''''''''''''
' 変数
'
'''''''''''''''''''''''''''''
Private GroupMember(3)


'''''''''''''''''''''''''''''
' 処理
'
'''''''''''''''''''''''''''''
Main()


'''''''''''''''''''''''''''''
' メイン処理
'
'''''''''''''''''''''''''''''
Sub Main()
On Error Resume Next

GroupMember(0) = LOCAL_ADMIN
GroupMember(1) = DOMAIN_ADMINS
GroupMember(2) = DOMAIN_PERSONALUSERS

Set Admins = GetObject("WinNT://" & MACHINE_NAME & "/Administrators")
For Each Member In Admins.Members
flg = 0
For i = 0 To UBound(GroupMember)
If Member.Name = GroupMember(i) Then
flg = 1
End If
Next

If flg = 0 Then
Admins.Remove(Member.ADsPath)
Else
flg = 0
End If
Next

Term(c)
Set Admins = Nothing

If Err Then
Term(e)
End If
End Sub


''''''''''''''''''''''''''''''''''
' 事後処理
'
''''''''''''''''''''''''''''''''''
Sub Term(ByVal flg)
On Error Resume Next

Set objNetWork = WScript.CreateObject("WScript.Network")
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CreateTextFile fso.BuildPath(fso.GetParentFolderName(WScript.ScriptFullName), flg & "_" & objNetWork.ComputerName & "_" & objNetWork.UserName & ".txt")
Set objNetWork = Nothing
Set fso = Nothing
WScript.Quit
End Sub

deletegroup-vbscript.zip



この記事がお役に立てましたら応援をお願いします^^
このエントリーをはてなブックマークに追加

関連記事

  1. ローカルAdministratorsにグループを追加作成するVBScript
  2. ActiveDirectoryのユーザー情報を取得するVBScript
  3. IE9インストール後の不具合
  4. 共有フォルダへのアクセスを確認する方法
  5. Excel2007の表からHTMLテーブルタグを簡単生成する方法
  6. EXCELでメール送信
  7. IE9の速度を計測してみた
  8. IE9をインストールしてみた
  9. LAN内のWindowsPCのフォルダ・ファイルを操作する
  10. Windowsコマンドをテキストにリダイレクト
  11. FC2ブログに自動ログインして投稿するスクリプト
  12. WinsowsでDNSサーバーのIPアドレスを調べるコマンド
  13. Windowsでホストまでのルートを調べるコマンド
  14. WindowsでIPアドレス・ホスト名を取得するコマンド
  15. Windowsでシンボリックリンク

コメントする






MT42BlogBetaInner

ブログ管理人:Tama


管理人のTamaです

メールフォーム
メールフォーム

おきてがみ


トップページーリンク

おすすめレンタルサーバー

★初期費用半額+最大2ケ月無料キャンペーン中!
おすすめレンタルサーバー! ミニバード

おすすめテンプレート

★MT・WP用SEOテンプレート!
クールでかっこいいMT&WordPressテーマ

ブログパーツ

MovableType(MT)テンプレート 無料(フリー)