以前我们通过执行IE程序来做可以让活动目录中的客户端进入系统后自动进入IE,但关掉之后会产生黑屏,需要按下Ctrl+Alt+Del来注销。如果当用户缺乏计算机知识,如果我们想让这种设置体现的更方便,需要当关掉IE之后自动进入注销界面,如何来实现。
      要实现这种功能,需要一个小的脚本,在附件中,可以下载试用,下载之后不要双击,否则会打开IE关闭后关机。我们需要让客户端开机时刻套用这个脚本,所以需要在服务器上建立一个共享目录,让客户端开机的时候寻找并套用。
      image
      右键选择属性,将脚本所在的目录共享。然后找到他的网络路径 \\计算机名\目录\IE
      然后我们打开组策略管理器,编辑一条组策略,选择用户界面的管理模板中的系统。
image
      右边有一个自定义用户界面,选择它。
image
      将我们的网络路径复制下来,填在其中,然后将我们的组策略绑定到我们需要生效这个策略的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就可以用了。