【发布时间】:2015-11-01 23:28:53
【问题描述】:
我想在 foxpro 中制作一个程序,您可以在其中在文本框中输入名称,它会自动在命令提示符下添加用户。所以 netuser ( name ) 和一个按钮 (add user ) 问候
克里斯
【问题讨论】:
标签: foxpro
我想在 foxpro 中制作一个程序,您可以在其中在文本框中输入名称,它会自动在命令提示符下添加用户。所以 netuser ( name ) 和一个按钮 (add user ) 问候
克里斯
【问题讨论】:
标签: foxpro
* Does the initial setting for foxpro
*
set echo off
set talk off
set step off
set date british
set century on
set intensity off
set delimiter on
set delimiter to '[]'
set scoreboard off
set menu off
set safety off
set deleted on
set escape on
set device to screen
set color to
set exclusive on
set status on
set bell off
clear all
clear program
clear
*
** define a variable to store user name to be created
muser_name = space(20)
@ 12, 22 say 'Enter User Name ' get muser_name
read
if !empty(muser_name)
* this command adds a new user to the computer
run net user &muser_name /add
endif
wait
clear
clear program
return
**
* end of program
这将为您的计算机创建一个新用户,无需任何密码。
【讨论】:
我认为您应该关注 Powershell 而不是 Visual Foxpro。 如果您使用的是 Foxpro 2.6(不是 Visual 版本),您可以使用 Accept 命令:
DO WHILE .t.
ACCEPT "Enter username:" to mUser
IF len(trim(mUser)) = 0
exit
ENDIF
run net user &mUser /add
ENDDO
【讨论】: