用VB对局域网服务器用户及主目录的设置.pdfVIP

第l0卷第3．9t 辽宁师专学报 V01．10No．3 2008年 9月 JournalofLiaoningTeachersCollege Sep．2008 【学术研究】 用 VB对局域网服务器用户及主 目录的设置 马秋英 (锦州师专 ，辽宁 锦州 121000) 摘 要 ：在 网络服务器 的应用管理 中，经常要对用户及用户 的宿主 目录权 限进行设置．权 限分配不仅复 杂，而且在多用户状态下是一个非常烦琐的工作．给出一种在VisualBasic中利用网络操作系统管理命令进行 集成环境下的批量设置方法 ． 关键词 ：用户组 ；宿主 目录；权 限分配 ；CACLS 中图分类号 ：TP312VB 文献标识码 ：A 文章编号 ：1008—5688(2008)03—0024—03 在网络服务器的应用管理中，经常要添加删除用户、设置每个用户的宿主 目录，同时还要经常地对用 户与相应的宿主目录的权限进行相关的设置 ，尤其是用户使用权限的分配，在实际管理中不仅复杂，而且 多用户状态下还是一个非常烦琐的工作过程 ．利用 VisualBasic编程技术，设计出一个操作方法 比较简单 的程序 ．相关人员据此作简单的变更，就可设计出适合 自己环境需求的应用程序 ，给从事计算机服务器管 理和应用程序开发的同业者提供一定 的借鉴． 1 程序采用的技术手段 在本程序中，先用 VB程序构造 “用户名”字符串，然后创建批处理文件 ，文件内容代码 由程序 自动 添写，最后由VB调用批文件完成设置．在批文件 中的命令如 “NetUse”和 “Cacls”等取 自网络操作系 统 的网络管理命令 ，其用法可参考 “网络管理命令”一类的资料…． 2 程序的实现 2．1 程序买现步骤 (1)新建一个标准工程，创建一个新窗体 ，添加一个驱动器控件及其它多个控件 ． (2)控件属性设 置：C0mmand2和 Command3的Enabled设置为 “False”，其它均采用默认属性 ．(3)操作说 明： “用户名 头字符串”是指多个用户名中的共有字符 ，如：ST0001、ST0002、……中 “ST”就是头字符，不输入时 用户名为0001、0002……； “用户数量”为0时是建立单个用户 ； “用户隶属组名”不指定时，当前用户 隶属 User组，否则隶属于 User和指定的组 ；宿主 目录的根文件夹名必须指定 ． 2．2 示例代 码 Private Declare Function GetVolumelnformationLib Commandl—Click ()生成用户 kernel32 Alias GetVolumelnformationA一 IfVal(Trim (Text2．Text))= 0Then (ByVa[ 1pRootPathName As String， ByVal errl：MsgBox (用户数量必须要大于 0，vbOKOnly， 错误信息 )：ExitSubEndIfOpen CUser．batForOutput lpVolumeNameBufferAsString，ByValnVolumeNameSize— As# 1 创 建 批 处 理 文 件 “CUser．bat” IfTrim As Long， lpVolumeSerialNumber As Long， (Text3．Text) Then lpMaximumComponentLengthAsLong，lpFileSystemFlags— Print#1，Netlocalgroup T