我的意思是Dim $gname $rname
$gnames = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion","RegisteredOrganization")
$rnames = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion","RegisteredOwner")
$gname = InputBox("修改","公司名,可以留空,当前是:"&$gnames,"公司")
$rname = InputBox("修改","用户名,不可留空,当前是:"&$rnames,"用户")
Select
Case $rname = ""
MsgBox(0,"修改","用户不能为空")
EndSelect
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion","RegisteredOrganization","REG_SZ",$gname)
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion","RegisteredOwner","REG_SZ",$rname)
MsgBox(0,"修改","修改成功")
|