Äú²»ÄܸüÐÂÍÑ»úÎļþ¹²Ïí²»ÔÚ Windows Server 2008 R2 ÖлòÔÚ Windows 7 ÖеĹÜÀíȨÏÞµÄÇé¿öÏÂÍÑ»úÎļþ¿Í»§¶Ë¸ßËÙ»º´æÖеÄÄ¿±êλÖÃ

'
' THIS CODE AND INFORMATION IS PROVIDED "AS IS" WITHOUT WARRANTY OF
' ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING BUT NOT LIMITED TO
' THE IMPLIED WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A
' PARTICULAR PURPOSE.
'
' Copyright (c) Microsoft Corporation. All rights reserved.
'
'
' Usage: CscRename.vbs /OldItemPath:<path> /NewItemPath:<path> [/Machine:value] [/User:value] [/Password:value]
'
' 
' Demonstrates how to rename an item in the Ofline Files cache.
'
'   OldItemPath - UNC path of the current path to be renamed.
'
'   NewItemPath - UNC path of the new path to replace the old path.
'
'   If NewItemPath already exists, the operation is not performed.
'   This operation simply schedules a rename to be performed on the next restart
'   of the system.
'
const cComputerName = "LocalHost"
const cWMINamespace = "root\cimv2"
const cWMIClass     = "Win32_OfflineFilesCache"
Const wbemFlagReturnImmediately = &h10

nRenameItemExFailureCount = 0
nRenameItemFailureCount = 0

'
' Process commandline arguments
'
strOldItemPath = WScript.Arguments.Named("OldItemPath")'
if Len(strOldItemPath) = 0 Then
	Wscript.Echo "OldItemPath parameter required"
	Err.Raise 449  ' "argument not optional" error
End if

strNewItemPath = WScript.Arguments.Named("NewItemPath")
if Len(strNewItemPath) = 0 Then
	Wscript.Echo "NewItemPath parameter required"
	Err.Raise 449  ' "argument not optional" error
End if

strComputerName = WScript.Arguments.Named("Machine")
If Len(strComputerName) = 0 Then strComputerName = cComputerName

strUserID = WScript.Arguments.Named("User")
If Len(strUserID) = 0 Then strUserID = ""

strPassword = WScript.Arguments.Named("Password")
If Len(strPassword) = 0 Then strPassword = ""

set objWMILocator = WScript.CreateObject("WbemScripting.SWbemLocator")

Set objWMIServices = objWMILocator.ConnectServer(strComputerName, _
cWMINameSpace, _
strUserID, _
strPassword)

'
' Note that Win32_OfflineFilesCache is a singleton.  
'

strTempOldItemPath = Replace(strOldItemPath,"\","\\") 

Set objWMIService = GetObject("winmgmts:\\" & cComputerName & "\root\CIMV2")
Set objCache = objWMIServices.Get("Win32_OfflineFilesCache=@")

'
'Find the path of the item to be renamed in the cache
'   
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_OfflineFilesItem WHERE ItemPath ='" &strTempOldItemPath&"'", "WQL", _
					wbemFlagReturnImmediately + wbemFlagForwardOnly)

For Each objItem In colItems

	'
	'If folder is pinned we need to rename all the directory items underneath this
	' 
	If (objItem.PinInfo.Pinned = True) Then
		'
		'Find all the directories underneath the folder in the cache
		'            
		Set childItems = objWMIService.ExecQuery("SELECT * FROM Win32_OfflineFilesItem  WHERE ParentItemPath = '" &strTempOldItemPath&"'", "WQL", _
							  wbemFlagForwardOnly + wbemFlagReturnImmediately )

		For Each childItem In childItems

			strOldPath = childItem.ItemPath
			'
			'Item to be renamed in the cache
			' 
			strTempNewItemPath = strNewItemPath & "\" & childItem.ItemName

			On Error Resume Next
                        '
			' Note that while we pass "False" for the bReplace parameter, that 
			' parameter is ignored.  Existing destinations are never replaced, regardless
			' of what we pass for the 3rd parameter.
			'
			objCache.RenameItemEx strOldPath, strTempNewItemPath, False
			hr = Hex(Err.Number)
			If Err.Number <> 0 Then
				WScript.Echo "RenameItem Failed with error:" &hr
                                WScript.Echo "While renaming:" & strOldPath & " to:" &strTempNewItemPath
				Err.Clear
				nRenameItemExFailureCount = nRenameItemExFailureCount + 1
				On Error Resume Next
				'
				'We got the error in renaming this may happen due to item in use, try to renaname after reboot
				' 
				objCache.RenameItem strOldPath, strNewItemPath, False
				hr = Hex(Err.Number)
				If Err.Number <> 0 Then
					WScript.Echo "RenameItem Failed with error:" &hr
					WScript.Echo " While renaming:" & strOldPath & " to:" &strTempNewItemPath
					Err.Clear
					nRenameItemFailureCount = nRenameItemFailureCount + 1
				Else
					WScript.Echo "item rename scheduled.  A restart of the system is necessary to apply the change."
				End If
			Else 
					WScript.Echo "Renamed:" &strOldPath & " to:" &strTempNewItemPath & " SUCCESSFULLY"
						 
			End If
		Next
	Else
		'
		'Find all the directory items underneath the folder in the cache
		'
		Set childItems = objWMIService.ExecQuery("SELECT * FROM Win32_OfflineFilesItem  WHERE ParentItemPath = '" &strTempOldItemPath&"'", "WQL", _
							  wbemFlagForwardOnly + wbemFlagReturnImmediately  )

		For Each childItem In childItems

			'
			'If this item is pinned and a directory, rename it
			'
			If (childItem.PinInfo.Pinned = True) Then
				strOldPath = childItem.ItemPath
				strTempNewItemPath = strNewItemPath & "\" &childItem.ItemName
				On Error Resume Next
				' Note that while we pass "False" for the bReplace parameter, that 
				' parameter is ignored.  Existing destinations are never replaced, regardless
				' of what we pass for the 3rd parameter.
				'
				objCache.RenameItemEx strOldPath, strTempNewItemPath, False
				hr = Hex(Err.Number)
				If Err.Number <> 0 Then
                                        On Error Resume Next
					
					WScript.Echo "RenameItemEx Failed with error:" &hr
                                        WScript.Echo "While renaming:" & strOldPath & " to:" &strTempNewItemPath
					Err.Clear
					nRenameItemExFailureCount = nRenameItemExFailureCount + 1
					On Error Resume Next
					'
					'We got the error in renaming this may happen due to item in use, try to renaname after reboot
					'
					objCache.RenameItem strOldPath, strTempNewItemPath, False
					hr = Hex(Err.Number)
					If Err.Number <> 0 Then
                                                On Error Resume Next
						WScript.Echo "RenameItem Failed with error:" &hr
						WScript.Echo "While renaming:" & strOldPath & " to:" &strTempNewItemPath
						Err.Clear
						nRenameItemFailureCount = nRenameItemExFailureCount + 1
					Else
						WScript.Echo "item rename scheduled.  A restart of the system is necessary to apply the change."
					End If

				Else 
					WScript.Echo "Renamed:" &strOldPath & " to:" &strTempNewItemPath & " SUCCESSFULLY"
				End If  
			End If
		Next
	End If
        If (nRenameItemExFailureCount > 0 & (nRenameItemExFailureCount  - nRenameItemFailureCount) > 0) Then 
		WScript.Echo "item rename scheduled.  A restart of the system is necessary to apply the change."
	ElseIf  (nRenameItemExFailureCount = 0)  Then
		WScript.Echo "Items Renamed SUCCESSFULLY"
        Else 
		WScript.Echo "ItemsRenamed FAILED"
	End If
Next

'
' THIS CODE AND INFORMATION IS PROVIDED "AS IS" WITHOUT WARRANTY OF
' ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING BUT NOT LIMITED TO
' THE IMPLIED WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A
' PARTICULAR PURPOSE.
'
' Copyright (c) Microsoft Corporation. All rights reserved.
'
'
' Usage: CscRenameItemEx.vbs /OldItemPath:<path> /NewItemPath:<path> [/Machine:value] [/User:value] [/Password:value]
'
' 
' Demonstrates how to rename an item in the Ofline Files cache.
'
'   OldItemPath - UNC path of the current path to be renamed.
'
'   NewItemPath - UNC path of the new path to replace the old path.
'
'   If NewItemPath already exists, the operation is not performed.
'   If OldItemPath is currently in use,this operation simply schedules
'   a rename to be performed on the next restart.
'
'
On Error Resume Next
const cComputerName = "LocalHost"
const cWMINamespace = "root\cimv2"
const cWMIClass     = "Win32_OfflineFilesCache"

'
' Process commandline arguments
'
strOldItemPath = WScript.Arguments.Named("OldItemPath")'
if Len(strOldItemPath) = 0 Then
    Wscript.Echo "OldItemPath parameter required"
    Err.Raise 449  ' "argument not optional" error
End if

strNewItemPath = WScript.Arguments.Named("NewItemPath")'
if Len(strNewItemPath) = 0 Then
    Wscript.Echo "NewItemPath parameter required"
    Err.Raise 449  ' "argument not optional" error
End if

strComputerName = WScript.Arguments.Named("Machine")
If Len(strComputerName) = 0 Then strComputerName = cComputerName

strUserID = WScript.Arguments.Named("User")
If Len(strUserID) = 0 Then strUserID = ""

strPassword = WScript.Arguments.Named("Password")
If Len(strPassword) = 0 Then strPassword = ""

set objWMILocator = WScript.CreateObject("WbemScripting.SWbemLocator")

Set objWMIServices = objWMILocator.ConnectServer(strComputerName, _
                                                 cWMINameSpace, _
                                                 strUserID, _
                                                 strPassword)

'
' Note that Win32_OfflineFilesCache is a singleton.  
'
' Also note that while we pass "False" for the bReplace parameter, that 
' parameter is ignored.  Existing destinations are never replaced, regardless
' of what we pass for the 3rd parameter.
'
Set objCache = objWMIServices.Get("Win32_OfflineFilesCache=@")
objCache.RenameItemEx strOldItemPath, strNewItemPath, False
If Err.Number <> 0 Then
	WScript.Echo " RenameItemEx Failed:" &Err.Description
	Err.Clear
	On Error Resume Next
	objCache.RenameItem strOldItemPath, strNewItemPath, False
	If Err.Number <> 0 Then
		WScript.Echo "RenameItem Failed:" &Err.Description
		Err.Clear
	Else 
		WScript.Echo "item rename scheduled.  A restart of the system is necessary to apply the change."
        End If

Else
	WScript.Echo "item renamed."
End If