Kod:
Private Sub Command1_Click() If "" & Combo1.Text & "" = "" Then MsgBox "Kullanıcı Seciniz.", 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

__________________