Admin Passwords

Within our client estate, there are a number of types of machines and a number of admin passwords that go with them

I need to put an agent on each of these machines but first i need to make all the admin passwords the same or add our domain group to the local administrators on that machine.

In order to do that I need to know what the admin password is for that specific machine

So a series of attempts with various different passwords and users names are required.

so something like this maybe

dim admin1 as string
dim pass1 as string
dim admin2 as string
dim pass2 as string
dim admin3 as string
dim pass3 as string
dim admin4 as string
dim pass4 as string


call Shell("psexec \192.168.0.1 -u + admin1 + -p + pass1")
if error = 1 then



call Shell("psexec \192.168.0.1 -u + admin2 + -p + pass2")

else

end if

end

Is this the best way to approach this? - Am confused? - Thank you