建立 Windows 使用者

2008-03-24

建立 Windows 使用者

如何建立 Windows 使用者

Dim objUser As Object

' Environ("COMPUTERNAME") 取得電腦名稱

Set objUser = GetObject("WinNT://" & Environ("COMPUTERNAME")).Create("USER", "使用者名稱")

objUser.SetPassword "使用者密碼"

objUser.SetInfo

MsgBox "使用者建立完成 !!"