Private Sub CommandButton1_Click ()
intRow = 2
Do
If Cells (intRow, 1).Value = "" Then
Exit Do
End If
strComputer = Cells (intRow, 1).Value
On Error Resume Next
Set objUser = GetObject («WinNT://» & strComputer & «/Administrator,User»)
If Err.Number 0 Then
Cells (intRow, 3).Value = «No»
Cells (intRow, 4).Value = Err.Description
intRow = intRow + 1
End If
strNewPassword = Cells (intRow, 2).Value
objUser.SetPassword strNewPassword
objUser.SetInfo
If Err.Number 0 Then
Cells (intRow, 3).Value = «No»
Cells (intRow, 4).Value = Err.Description
Err.Clear
Else
Cells (intRow, 3).Value = «Yes»
Cells (intRow, 4).Value = ""
End If
intRow = intRow + 1
Loop
End Sub