VBscriptについてのメモ

最近よくVBscriptを使って、システム管理用のスクリプトを書いています。ここにメモをしておきます。

①文字列、ログをファイルに出力。
　　　　Set objFso = CreateObject("Scripting.FileSystemObject")
　　'読み取り専用でファイルを開く
　　　　Set objFile = objFso.OpenTextFile("c:\test.txt",1)
　　'上書きモードで開く
　　　　Set objFile = objFso.OpenTextFile("c:\test.txt",2)
　　'追加モードで開く（ファイルが存在しない場合は、新規作成[true]）
　　　　Set obfFile = objFso.OpenTextFile("c:\test.txt",8,true)

　　※ログを残すときに、追加モードが一番使われる。

②LDAPを使って、ADオブジェクトや属性を操作
　　'ユーザーオブジェクトの属性を取得する
　　　　Set objUser = CreateObject("LDAP://CN=testuser,OU=testOU,DC=test,DC=local")
　　　　objUser.Get([AttributeName])
　　　　Wscript.Echo objUser.distinguishName
　　　　Wscript.Echo objUser.displayname
　　　　......

　　'アカウントの作成
　　　　Set objOU = CreateObject("LDAP://OU=testOU,DC=test,DC=local")
　　　　Set objUser = objOU.Create("User","CN=testUser")
　　　　objUser.Put "sAMAccountName", "yechangyao"
　　　　objUser.SetInfo

　　'属性の設定、変更
　　　　Set objUser = CreateObject("LDAP://CN=testuser,OU=testOU,DC=test,DC=local")
　　　　objUser.Put "displayName", "ye changyao"
　　　　objUser.Put "mail","cye@test.co.jp"
　　　　objUser.Put "userPrincipalName", "cye@test.local"
　　　　objUser.SetInfo

　　'ユーザーパスワードの設定
　　　　objUser.SetPassword "Password!"

　　'ユーザーアカウントの無効化
　　　　objUser.AccountDisabled = TRUE

　　'"DC=test,DC=local"のような文字列を取得
　　　　Set objRootDSE = GetObject("LDAP://RootDSE")
　　　　Wscript.Echo objRootDSE.get("defaultNamingContext")

VBscript リファレンス　MSDN

ADSI LDAP Provider　MSDN
　　　　
　　

この記事がお役にたちましたらシェアをお願いします:)

• ツイート
•