IISã§ãƒ¦ãƒ¼ã‚¶ç®¡ç†'ï¼¡ï¼¤ï¼³ï¼©æƒ…å ±ã‚²ãƒƒãƒˆ Set objDomain = GetObject("WinNT://" & "サーãƒå") 'NT ãƒ¦ãƒ¼ã‚¶æƒ…å ±æ–°è¦è¿½åŠ Set objUser = objDomain.Create("User", "ユーザID") objUser.Description = "ãƒ¦ãƒ¼ã‚¶æƒ…å ±ã‚³ãƒ¡ãƒ³ãƒˆ" objUser.PasswordExpired = 0 objUser.FullName = "ユーザã®ãƒ•ãƒ«ãƒãƒ¼ãƒ " objUser.SetPassword("åˆæœŸãƒ‘スワード") '------------------------------ '無期é™ãƒ‘スワード指定 デフォルト有効期é™ã‚’使ã†ã¨ãã¯ã“ã®è¡Œã‚’ã¯ãšã™ objUser.UserFlags = &H10000 '------------------------------ objUser.SetInfo
WMIを使ã†ã‚¹ã‚¯ãƒªãƒ—トを簡å˜ã«ä½œæˆã™ã‚‹ ï¼ ï¼ IT
TechNet Script Center
{{#tags}}- {{label}}
{{/tags}}