利用GPO和VBS删除客户机遗留的用户配置文件

事情的起因：使用AD管理用户登录客户机，但用户不可避免忘记大小写区分，导致偶尔会出现配置文件冲突，不能从域上Update。

解决方法：利用GPO将删除用户配置文件的VBS推到客户机上，开机执行。在用户登录前就清除干净用户配置文件，为了避免误删，将留一份备份。

vbs：

Set objfso=CreateObject("Scripting.FileSystemObject")
'读取CreateObject函数
Set colfolders=objfso.GetFolder("C:\Documents and Settings\")
'获取指定文件夹内文件夹内容
For Each objfolder In colfolders.SubFolders
Select Case objfolder.Name
'根据文件夹名排除Case，将指定的文件夹排除。
Case "All Users","LocalService","Default User","NetworkService","Administrator"
Case Else
strlmtime=objfolder.DateLastModified
'提出修改时间。
If Replace(LCase(objfolder.Name),"(bakp)","")=LCase(objfolder.Name) Then '检查文件夹是否备份文件夹
If Replace(LCase(objfolder.Name),"ahgc","")<>LCase(objfolder.Name) Then '检查文件夹是否需要删除
If objfso.FolderExists(objfolder.Path&"(bakp)") Then '检查文件夹路径是否存在
objfso.DeleteFolder objfolder.Path&"(bakp)",True '删除已经存在文件夹过去的备份，避免稍后重命名冲突
End if
objfolder.Name=objfolder.Name&"(bakp)" '重命名文件夹，这相当于备份

End If 
End If
If DateDiff("d",Now,strlmtime)<-10 Then '检查修改时间是否超过10天
objfso.DeleteFolder objfolder.Path,True '如果超过，就删除该文件夹（该删除设定是除了排除Case外的所有文件夹）
End If 

End Select
Next