在2003下正常 2000下出错 请教

Question

Function AddUser(Username, Password)
On Error Resume Next
Dim Computer, ComputerObj, NewUser
Computer = "LocalHost"
'执行创建帐号命令
Set ComputerObj = GetObject("WinNT://" & Computer)
Set NewUser = ComputerObj.Create("User", Username)
NewUser.setinfo
If Err.Number <> 0 Then
AddUser = Err.Description
Exit Function
End If
'进行帐号设置
NewUser.SetPassword (Password)   '帐号密码
NewUser.FullName = Username   '帐号全名
NewUser.Description = "该帐号为虚拟主机站点帐号--由PowerHost创建"    '帐号说明
NewUser.UserFlags = &H10000   '&H20000(使用者下次登入时须变更密码) &H0040(使用者不得变更密码) &H10000(密码永久正确) &H0002(帐户暂时停用)
NewUser.setinfo
If Err.Number <> 0 Then
AddUser = "8009"
Else
AddUser = "8000"
End If
Set ComputerObj = Nothing
End Function
Err.Description 出来是  未指定的错误

Answer 1

看看MSDN里面的WMI部分可能是2000的WMI和2003的有些差异