create windows user account,(New Version 1.1) mail me [email protected], load bhary.dll or th

by nirmalbhary (1 Submission)
Category: Windows System Services
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Fri 6^th July 2007
Date Added: Mon 8^th February 2021
Rating: (1 Votes)

create windows user account,(New Version 1.1) mail me [email protected], load bhary.dll or the whole project from

API Declarations
'if u like it mail me plz

Rate create windows user account,(New Version 1.1) mail me [email protected], load bhary.dll or th



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

Download this snippet Add to My Saved Code

create windows user account,(New Version 1.1) mail me [email protected], load bhary.dll or th Comments

No comments have been posted about create windows user account,(New Version 1.1) mail me [email protected], load bhary.dll or th. Why not be the first to post a comment about create windows user account,(New Version 1.1) mail me [email protected], load bhary.dll or th.

create windows user account,(New Version 1.1) mail me [email protected], load bhary.dll or th

create windows user account,(New Version 1.1) mail me [email protected], load bhary.dll or th Comments

Post your comment

Difficulty