I would like to create a local user without permit remote connection,
any1 got an idea ?
Here is a sample which creates my user under w2003 srv:
Dim AD As System.DirectoryServices.DirectoryEntry = New
System.DirectoryServices.DirectoryEntry("WinNT://" +
Environment.MachineName + ",computer")
Dim NewUser As System.DirectoryServices.DirectoryEntry
If LocalUserExists(username) Then
NewUser = AD.Children.Find(username)
Else
NewUser = AD.Children.Add(username, "user")
NewUser.Invoke("SetPassword", New Object() {password})
NewUser.Invoke("Put", New Object() {"Description",
description})
NewUser.CommitChanges()
End If
NewUser.CommitChanges()
|