Chinaunix首页 | 论坛 | 博客
  • 博客访问: 2076199
  • 博文数量: 519
  • 博客积分: 10070
  • 博客等级: 上将
  • 技术积分: 3985
  • 用 户 组: 普通用户
  • 注册时间: 2006-05-29 14:05
个人简介

只问耕耘

文章分类

全部博文(519)

文章存档

2016年(1)

2013年(5)

2011年(46)

2010年(220)

2009年(51)

2008年(39)

2007年(141)

2006年(16)

我的朋友

分类:

2008-12-01 11:19:51

proc SetprimaryAdminId { user } {
 puts "SetprimaryAdminId"
 global AdminConfig
 set userR [$AdminConfig list UserRegistry]
 set security [$AdminConfig list Security]
 foreach ur $userR {
  if { [regexp "LDAP" $ur] } {
   set ldap $ur
   break
  }
 }
        set LDAPPrimaryID [list primaryAdminId $user]
 set ldapAttrs [list $LDAPPrimaryID]
 $AdminConfig modify $ldap $ldapAttrs

 set enableSec [list enabled true]
 set enableAppSec [list appEnabled true]
 set enforceJ2S [list enforceJava2Security false]
 set activeUR [list activeUserRegistry $ldap]
 set secAttrs [list $enableSec $enableAppSec $enforceJ2S $activeUR]
 $AdminConfig modify $security $secAttrs
 puts [$AdminConfig show $security]
 $AdminConfig save
 puts "Done configuring primaryAdminId"
}
SetprimaryAdminId "Administrator"
阅读(940) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~