Qu? v? không th? c?p nh?t v? trí m?c tiêu c?a di?n ðàn các t?p tin chia s? trong b? nh? cache phía khách hàng di?n ðàn t?p tin mà không có s? cho phép qu?n tr? trong Windows Server 2...

'
' 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