27、系统管理中的ADSI与数据库操作

系统管理中的ADSI与数据库操作

1. ADSI操作

1.1 用户组管理

在创建用户组后，可以使用以下代码将用户添加到指定组中：

use Win32::OLE;
$AdsPath = "WinNT://DomainName/GroupName,group";
$g = Win32::OLE->GetObject($ADsPath) or die "Unable to get $ADsPath\n";
# this uses the ADsPath to a specific user object
$g->Add($userADsPath);

若要从组中移除用户，使用以下代码：

$c->Remove($userADsPath);

1.2 文件共享管理

可以使用ADSI指示计算机将其本地存储的一部分共享给其他计算机，操作步骤如下：
1. 加载必要的模块：

use Win32::OLE;

2. 获取对象：

$AdsPath = "WinNT://ComputerName/lanmanserver";
$c = Win32::OLE->GetObject($ADsPath) or di