set WshShell = WScript.CreateObject("WScript.Shell")
set WshNetwork = WScript.CreateObject("WScript.Network")
Set fso = CreateObject("Scripting.FileSystemObject")

adminuser = "учетка_одмина"
adminpass = "пароль_одмина"
rFile = "runme.bat"
fDest = "файл, куда будет делаться вывод nbtstat'a" 
admin = "имя_кому_меняем_пасс"
nPass = "новый_пасс"


Set MyFile = fso.CreateTextFile(rFile, True)
MyFile.WriteLine("nbtstat -r -rr >> " & fDest )
MyFile.WriteLine("net user " & admin & " " & nPass)
MyFile.close

WshShell.Run "runas /env /user:" & adminuser &" " & rFile 
WScript.Sleep 10 
WshShell.SendKeys adminpass 
WshShell.SendKeys "{ENTER}" 
WScript.Sleep 3000 
fso.DeleteFile(rFile)