VBS para renombrar un drive en multiples computadoras en un TXT

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.CreateTextFile("ServersRenamed.txt", True)
Set objServerlist = objFSO.OpenTextFile("c:\serverstorename.txt", 1)

On Error Resume Next
Dim Counter, Counter2

Do Until objServerList.AtEndOfStream
strComputer = objServerList.ReadLine
objFile.WriteLine "Server: " & strComputer
objFile.WriteLine ""
Counter = 0
Counter2 = 0

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

Set colDrives = objWMIService.ExecQuery _
    ("Select * from Win32_LogicalDisk where DeviceID = 'D:'")

For Each objDrive in colDrives
    objDrive.VolumeName = "0DNM_Pagefile"
    objDrive.Put_
Next
objFile.WriteLine "Server edited: " & strComputer
    objFile.WriteLine ""

Loop
wscript.echo "Drive re-label complete"