hey Jerry here is you script just rename compaq1 with your server name:
On Error Resume Next
strComputer = "compaq1"
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2"

Set colItems = objWMIService.ExecQuery("Select * from Win32_UserAccount",,48)
count = 0
countUnlock = 0
For Each objItem in colItems
if objItem.Lockout=True then
count = count + 1
'Wscript.Echo "Description: " & objItem.Description
'Wscript.Echo "Disabled: " & objItem.Disabled
'Wscript.Echo "FullName: " & objItem.FullName
'Wscript.Echo "Lockout: " & objItem.Lockout
'Wscript.Echo "Name: " & objItem.Name
'Wscript.Echo "PasswordChangeable: " & objItem.PasswordChangeable
'Wscript.Echo "PasswordExpires: " & objItem.PasswordExpires
'Wscript.Echo "PasswordRequired: " & objItem.PasswordRequired
'Wscript.Echo "-----------------------------------------------------------"
response = msgbox("Unlock: " & objItem.Name,[vbOkCancel])
if response = vbOK then
Set UsrObj = GetObject("WinNT://dagama.co.za/" & objItem.Name)
If UsrObj.IsAccountLocked = TRUE Then
UsrObj.IsAccountLocked = FALSE
UsrObj.SetInfo
countUnlock = countUnlock + 1
End If
end if
end if
Next
msgbox "Locked: "& count & " Unlocked: "& countUnlock