Addextender("WWWNT34I.DLL")
Addextender("wwipg34i.DLL")

:TOP
PasswordFormat=`WWWDLGED,6.1`

PasswordCaption=`Network password change by Chuck Arconi`
PasswordX=066
PasswordY=078
PasswordWidth=146
PasswordHeight=200
PasswordNumControls=014
PasswordProcedure=`DEFAULT`
PasswordFont=`DEFAULT`
PasswordTextColor=`DEFAULT`
PasswordBackground=`DEFAULT,DEFAULT`
PasswordConfig=0

Password001=`065,077,060,012,EDITBOX,newagain,"new again",DEFAULT,1,DEFAULT,DEFAULT,DEFAULT,DEFAULT`
Password002=`065,061,060,012,EDITBOX,new,"new",DEFAULT,2,DEFAULT,DEFAULT,DEFAULT,DEFAULT`
Password003=`041,155,058,012,PUSHBUTTON,DEFAULT,"Change Password",1,3,32,"Microsoft Sans Serif|5632|70|34","255|0|0",DEFAULT`
Password004=`041,177,058,012,PUSHBUTTON,DEFAULT,"Exit",2,4,DEFAULT,DEFAULT,DEFAULT,DEFAULT`
Password005=`033,025,078,012,STATICTEXT,DEFAULT,"Reset Local User Passwords",DEFAULT,5,DEFAULT,DEFAULT,DEFAULT,DEFAULT`
Password006=`005,005,040,012,STATICTEXT,DEFAULT,"YourDomain",DEFAULT,6,DEFAULT,DEFAULT,DEFAULT,DEFAULT`
Password007=`065,045,060,012,EDITBOX,User,"User ID",DEFAULT,7,DEFAULT,DEFAULT,DEFAULT,DEFAULT`
Password008=`041,047,020,012,STATICTEXT,DEFAULT,"User ID",DEFAULT,8,DEFAULT,DEFAULT,DEFAULT,DEFAULT`
Password009=`025,063,036,012,STATICTEXT,DEFAULT,"New Password",DEFAULT,9,DEFAULT,DEFAULT,DEFAULT,DEFAULT`
Password010=`009,079,052,012,STATICTEXT,DEFAULT,"New Password again",DEFAULT,10,DEFAULT,DEFAULT,DEFAULT,DEFAULT`
Password011=`017,105,110,008,STATICTEXT,DEFAULT,"List of computers must be on the root of C:\",DEFAULT,11,DEFAULT,DEFAULT,DEFAULT,DEFAULT`
Password012=`017,115,100,008,STATICTEXT,DEFAULT,"The file must be named 'computers.txt'.",DEFAULT,12,DEFAULT,DEFAULT,DEFAULT,DEFAULT`
Password013=`041,129,058,012,PUSHBUTTON,DEFAULT,"Example list",3,13,DEFAULT,DEFAULT,DEFAULT,DEFAULT`
Password014=`009,097,124,048,GROUPBOX,DEFAULT,DEFAULT,DEFAULT,14,DEFAULT,DEFAULT,DEFAULT,DEFAULT`

ButtonPushed=Dialog("Password")



If ButtonPushed==2 Then Exit
If ButtonPushed==3
RunWait("notepad","examplelist.exp")
goto TOP
endif
If ButtonPushed==1
test=AskYesNo("Really Big Change", "You are about to change the a local account password on every system in the computers.txt file. Are you sure you want to go ahead with this?")
if test==@NO then exit
endif

If new != newagain
Message("Mismatch","Passwords do not match")
goto TOP
Endif

H="c:\computers.txt"
log=Fileopen("c:\cslogon.txt","APPEND")
old = FileOpen(H, "READ")
while @TRUE
x = FileRead(old)
If x == "*EOF*" Then EXIT
host=strcat(x,".YourDomain.com")
tst=ipPing (host,5)
If tst==@TRUE
errormode(@OFF)
boxopen("password change","changing pasword for: %x%" )
x=strcat("\\",x)
wntChgPswd(x,user,"*UNKNOWN*",new)
Filewrite("%log%","%x% changed password")
else
Filewrite("%log%","%x% not online")
endif
endwhile
ErrorMOde(@ON)
Exit