Question

即时通讯使用此脚本创建用户...我希望它将shell设置为类似“c：\ app \ myapp.exe”的内容，并且仅适用于该用户..希望有人可以填写空白我。谢谢..对于Windows 7

Set WshShell = WScript.CreateObject("WScript.Shell")

If WScript.Arguments.length = 0 Then

Set ObjShell = CreateObject("Shell.Application")
ObjShell.ShellExecute "wscript.exe", """" & _
WScript.ScriptFullName & """" &_
 " RunAsAdministrator", , "runas", 1

else

strComputer = "PC2"
Set colAccounts = GetObject("WinNT://" & strComputer & "")
Set objUser = colAccounts.Create("user", "Admin2")
objUser.SetPassword "test"
objUser.SetInfo
msgbox "done"

end if

Answer 1

如果我正确理解this article，您需要设置：

[HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\IniFileMapping\system.ini\boot]
"Shell"="USR:Software\Microsoft\Windows NT\CurrentVersion\Winlogon"

然后在用户注册表配置单元中Shell的{{1}}值中指定用户特定的shell（存储在用户配置文件中的Software\Microsoft\Windows NT\CurrentVersion\WinLogon中，您需要ntuser.dat 3}}能够修改它）。如果你想用VBScript做，你必须使用这样的东西：

Set sh = CreateObject("WScript.Shell")
sh.Run "reg load HKU\temp C:\Users\username\ntuser.dat", 0, True

完成后卸载配置单元：

sh.Run "reg unload HKU\temp", 0, True

使用VBSCRIPT创建具有自定义shell的用户

1 个答案: