[Developer]

create windows user account,(New Version 1.1) mail me load bhary.dll or the whole project from author Nirmalbhary state punjab(india),student of mata gujri college fatehgarh sahib.Msc(it).

Author: nirmalbhary
Date Submitted: 6/7/2007
Category: Windows Operations
Compatibility: VB 6

Declarations

PHP Code:

'add ref to bhary
'if u like it mail me plz


Code

PHP Code:

Private Sub Command1_Click()
Set accnt = CreateObject("bhary.Adonis")
Set g_oUserList = CreateObject("Shell.Users")
Dim oldpwrd, newpswrd As String
oldpwrd = Text2.Text
newpswrd = Text1.Text
Call accnt.ChangePwd(g_oUserList, oldpwrd, "")
End Sub

Private Sub Command2_Click()
Set accnt = CreateObject("bhary.Adonis")
Dim accType As Integer
Set g_oUserList = CreateObject("Shell.Users")
If Text3.Text = Empty Then
MsgBox "Enter any Account Name"
Text3.SetFocus
Exit Sub
End If
Frame1.Visible = True
If Option1.Value = True Then
accType = 0
ElseIf Option2.Value = True Then
accType = 1
Else
accType = 3
End If
Call accnt.createAccount(g_oUserList, Text3.Text, accType)
End Sub