以前我们通过执行IE程序来做可以让活动目录中的客户端进入系统后自动进入IE，但关掉之后会产生黑屏，需要按下Ctrl+Alt+Del来注销。如果当用户缺乏计算机知识，如果我们想让这种设置体现的更方便，需要当关掉IE之后自动进入注销界面，如何来实现。

      要实现这种功能，需要一个小的脚本，在附件中，可以下载试用，下载之后不要双击，否则会打开IE关闭后关机。我们需要让客户端开机时刻套用这个脚本，所以需要在服务器上建立一个共享目录，让客户端开机的时候寻找并套用。
      p_w_picpath
      右键选择属性，将脚本所在的目录共享。然后找到他的网络路径 \\计算机名\目录\IE
      然后我们打开组策略管理器，编辑一条组策略，选择用户界面的管理模板中的系统。
p_w_picpath
      右边有一个自定义用户界面，选择它。
p_w_picpath
      将我们的网络路径复制下来，填在其中，然后将我们的组策略绑定到我们需要生效这个策略的OU，设置就完成了。
      这样我们就实现了使客户端进入系统自动进入IE，退出则注销。
 
strApDirrctory = "C:\Program Files\Internet Explorer\"
strApFileName = "iexplore.exe"
strComputer = "."
Set objService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
UserName = ""
Set objCol = objService.ExecQuery("SELECT * FROM Win32_ComputerSystem")
For Each obj in objCol
   UserName = obj.UserName
Next
Set objProcess = GetObject("winmgmts:\\" & strComputer & "\root\cimv2:Win32_Process")
errResult = objProcess.Create(strApDirrctory & strApFileName, strApDirrctory, null, intPosID)
Set colProcesses = objService.ExecNotificationQuery _
    ("SELECT * FROM __InstanceDeletionEvent WITHIN 1 WHERE TargetInstance ISA 'Win32_Process'")
Do While True
    Set objProcess = colProcesses.NextEvent
    Set objCol = objService.ExecQuery("SELECT * FROM Win32_Process WHERE Name='" & strApFileName & "'")
    Count = 0
    For Each obj in objCol
        obj.GetOwner strNameOfUser, strUserDomain
   If UserName = strUserDomain & "\" & strNameOfUser Then Count = Count + 1
    Next
    If Count = 0 Then Exit Do
Loop

Set objCol = objService.InstancesOf("Win32_OperatingSystem")
For Each obj In objCol
   obj.Win32Shutdown 0, 0
Next
以上是脚本，保存后后缀改成VBS就可以用了。