level 1
南斗极光
楼主
因为需要大批量根据计算机名后2位，自动修改计算机当前用户名，
通过百度上网找了某个程序的介绍，
具体如下：
Dim $str=@ComputerName;获取机器名
Dim $var="ks"&StringRight($str,2);取变量var为ks+机器名后两位
$var=inputbox("用户名修改为","把当前用户名修改为：",@UserName)；输入新修改的用户名
BlockInput(1);禁止用户按键盘、鼠标
Run("%windir%\system32\mmc.exe %windir%\system32\compmgmt.msc",@TempDir);调用计算机管理程序
WinWait("计算机管理")；等待计算机管理窗口激活
send("{Down 4}")；模拟键盘向下操作4次
send("{Right}")；模拟键盘向右操作1次
。。。。
send($var)；模拟键盘输入新修改的用户名
。。。。
WinClose("计算面管理");关闭计算机管理程序
BlockInput(0);恢复用户按键盘、鼠标
现有问题请教：
1、因为不懂autoit，请问有没有好心人帮忙把该程序补全并修改下错误使它能正确运行？
2、$var=inputbox("用户名修改为","把当前用户名修改为：",@UserName)<-------这句话是否有错？即然上一行var已经定义了，为什么还要我们手动输入呢？
2011年01月11日 03点01分
1
通过百度上网找了某个程序的介绍，
具体如下：
Dim $str=@ComputerName;获取机器名
Dim $var="ks"&StringRight($str,2);取变量var为ks+机器名后两位
$var=inputbox("用户名修改为","把当前用户名修改为：",@UserName)；输入新修改的用户名
BlockInput(1);禁止用户按键盘、鼠标
Run("%windir%\system32\mmc.exe %windir%\system32\compmgmt.msc",@TempDir);调用计算机管理程序
WinWait("计算机管理")；等待计算机管理窗口激活
send("{Down 4}")；模拟键盘向下操作4次
send("{Right}")；模拟键盘向右操作1次
。。。。
send($var)；模拟键盘输入新修改的用户名
。。。。
WinClose("计算面管理");关闭计算机管理程序
BlockInput(0);恢复用户按键盘、鼠标
现有问题请教：
1、因为不懂autoit，请问有没有好心人帮忙把该程序补全并修改下错误使它能正确运行？
2、$var=inputbox("用户名修改为","把当前用户名修改为：",@UserName)<-------这句话是否有错？即然上一行var已经定义了，为什么还要我们手动输入呢？
