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
