VBS замена локальных паролей.

Set objArgs=Wscript.Aruments

 If Wscript.Arguments.Count=1 Then

If Strcomp(ucase(objArgs(0), UCase("-Domain"))=0 Then

mode 1

EndIf

If Strcomp(ucase(objArgs(0), UCase("-Group"))=0 Then

mode 2

EndIf

If Strcomp(ucase(objArgs(0), UCase("-PC"))=0 Then

mode 3

EndIf

Else

mode 0

EndIf