On Error Resume Next 
iaPass = «..bL@nK P/ssw0rd!!»
Sub Error_(i)
 s = Err.Number
 WScript.echo «Error « & s & « « & Err.Description
 if i<>0 Then Err.Clear	
End Sub
Set Args = WScript.Arguments
Sub chPass(host)
 On Error Resume Next 
 strComputer = host
 Set objUser = GetObject(«WinNT://» & strComputer & «/Administrator»)
 objUser.SetPassword iaPass
 objUser.SetInfo
 If Err.Number<>0 Then
 s = Err.Number
 WScript.echo host & « — Error « & s & « « & Err.Description
 Err.Clear
 End If
End Sub
Sub ReadHostFile(filename)
 Dim fso, f
 On Error Resume Next 
 Set fso = CreateObject(«Scripting.FileSystemObject»)
 Wscript.Echo «Read hosts file»
 Set f = fso.OpenTextFile(filename, 1, False)
 if Err.Number<>0 then
 	call Error_(0)
	else
	while not f.atEndOfStream
		s = f.ReadLine
		Call chPass(s, iaMaxSize, iaClear)
		Err.Clear
	wend
 	f.Close
 end if 
End Sub
For i = 0 To Args.count — 1
	If Args(i) = «-f» Then	
		iaComputers = Args(i+1) 
	Else If Args(i) = «-p» Then 
		iaPass = Args(i+1)
	Else If Args(i) = «-h» Then 
		iaHost = Args(i+1)
	End If
	End If
	End If
Next
If Err=0 Then
If iaHost<>»» Then
	Call chPass(iaHost)
	If Err.Number<>0 Then
		 call Error_()
	End If
	Else
	Call ReadHostFile(iaComputers)
End If
End If
if Err <> 0 Then
 Wscript.Echo «» 
 Wscript.Echo «lapass [-f filename] [-h hostname] [-p] password» 
 Wscript.Echo «» 
 Wscript.Echo «-f get host?s list from file» 
 Wscript.Echo «-h change password for one host» 
 Wscript.Echo «-p don?t clear logfiles» 
 Wscript.Echo «» 
End If