Private Sub Command1_Click()

If "" & Combo1.Text & "" = "" Then
MsgBox "Kullanıcı Seçiniz.", vbCritical, "Kullanıcı Şifresi Değiştir"
GoTo 10
End If

Set objUser = GetObject("WinNT://./" & Combo1.Text & ", user")
objUser.SetPassword Text2.Text
objUser.SetInfo
MsgBox "Şifre Başarı ile Değiştirildi ", vbCritical, "Kullanıcı Şifresi Değiştir"
10
End Sub


Private Sub Form_Load()
Set objNetwork = CreateObject("Wscript.Network")
Set colAccounts = GetObject("WinNT://" & objNetwork.ComputerName & "")
colAccounts.Filter = Array("user")
For Each objUser In colAccounts
Combo1.AddItem (objUser.Name)
Next
End Sub