ActiveDirectory ã®ãƒ¦ãƒ¼ã‚¶ãƒãƒƒã‚¯ã‚¢ã‚¦ãƒˆè§£é™¤ã‚¹ã‚¯ãƒªãƒ—ト（VBS）ActiveDirectoryã§ã‚¢ã‚«ã‚¦ãƒ³ãƒˆãƒãƒƒã‚¯ãŒã‹ã‹ã£ãŸãƒ¦ãƒ¼ã‚¶ã®ãƒãƒƒã‚¯è§£é™¤ã‚’ã™ã‚‹ã‚¹ã‚¯ãƒªãƒ—トã§ã™ã€‚ ドメインã®ç®¡ç†è€…権é™ãŒãªã„ã¨å‹•ã‹ãªã„ã‹ã‚‚ã—ã‚Œã¾ã›ã‚“。 ' ActiveDirectoryドメインå Const DOMAIN_NAME = "ADã®ãƒ‰ãƒ¡ã‚¤ãƒ³å" ' ãƒãƒƒã‚¯ã‚¢ã‚¦ãƒˆè§£é™¤ãƒ¡ã‚¤ãƒ³ Function unlock_account(strAccount) Dim tmpRet Dim objUser Dim strDomain On Error Resume Next Set objUser = GetObject("WinNT://" & DOMAIN_NAME & "/" & strAccount & ",user") If Len(Err.Description) > 0 Then tmpRet = "Error:1:" & Err.Description Else If obj
VBScriptã§ActiveDirectyã®ãƒ¦ãƒ¼ã‚¶ç®¡ç†ã‚’自動化ã™ã‚‹ - masahirorã®æ°—ã¾ã¾è¨˜éŒ²ç°¿
)
パスワードã®æœ‰åŠ¹æœŸé™ã¯ã„ã¤ã¾ã§ã§ã™ã‹?
「VBScript 㧠ADSI を使用㗠Active Directory 上ã®ãƒ¦ãƒ¼ã‚¶ã®æ‰€å±žã™ã‚‹ã‚°ãƒ«ãƒ¼ãƒ—ã®ä¸€è¦§ã®å–å¾—ã‚’è¡Œã†æ–¹æ³•ã€‚ãŸã ã— 5000 件以上ã‹ã¤ãƒ—ライマリ グループもå–ã‚ŠãŸã„ï¼ã€
Active Directoryã®ãƒ¦ãƒ¼ã‚¶ãƒ¼ãŒæ‰€å±žã™ã‚‹ã‚°ãƒ«ãƒ¼ãƒ—ã‚’ã€è‡ªå‹•çš„ã«ãƒ†ã‚スト形å¼ã§æŠ½å‡ºã™ã‚‹æ–¹æ³•ã‚’æ•™ãˆã¦ãã ã•ã„。…
ADã®ãƒ¦ãƒ¼ã‚¶åã‹ã‚‰æ‰€å±žã™ã‚‹ã‚°ãƒ«ãƒ¼ãƒ—ã®ä¸€è¦§ã‚’å–å¾—ã™ã‚‹
{{#tags}}- {{label}}
{{/tags}}