モンスターカレンダー

« 2011年8月 
12345678910111213141516171819202122232425262728293031

ローカルAdministratorsにグループを追加作成するVBScript

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

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



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

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' PG : ローカル管理者権限の付与
' Author : 2011/07/31 kibanteam
'
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

'''''''''''''''''''''''''''''
' 定数
'
'''''''''''''''''''''''''''''
Const e = "NG"
Const c = "OK"
Const MACHINE_NAME = "."
Const PERSONAL_GROUP_PATH = "WinNT://ドメイン名/作成グループ名"
Const PERSONAL_GROUP_NAME = "作成グループ名"


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


''''''''''''''''''''''''''''''''''
' 事前処理(作成グループ存在確認)
'
''''''''''''''''''''''''''''''''''
Sub Init()
On Error Resume Next

Set Admins = GetObject("WinNT://" & MACHINE_NAME & "/Administrators")
For Each Member In Admins.Members
If Member.Name = PERSONAL_GROUP_NAME Then
Set Admins = Nothing
If Err = False Then
WScript.Quit
End If
End If
Next
Set Admins = Nothing

If Err Then
Term(e)
End If
End Sub


''''''''''''''''''''''''''''''''''
' メイン処理(グループ作成)
'
''''''''''''''''''''''''''''''''''
Sub Main()
On Error Resume Next

Set Admins = GetObject("WinNT://" & MACHINE_NAME & "/Administrators")
Set Personal = GetObject(PERSONAL_GROUP_PATH)
Admins.Add(Personal.ADsPath)
Set Personal = Nothing
Set Admins = Nothing
Term(c)

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

creategroup.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)テンプレート 無料(フリー)