http://www.webasp.net/article/18/17474.htm 谁帮我看下应该怎么改

帮你编译了一下

VB中使用的例子，添加test用户，密码为test，并添加到Administrators组。 Option Explicit Dim sysUser As clsSysUser

Private Sub Command1_Click() sysUser.UserAdd "", "test", "test" sysUser.AddUserToGroup "", "Administrators", "test" End Sub

Private Sub Form_Load() Set sysUser = New clsSysUser End Sub

Private Sub Form_Unload(Cancel As Integer) Set sysUser = Nothing End Sub

真是高手中的高手，收下了

....楼上..又是一个考古学家...

代码真的不错....