vbscript - vbscriptを使用して、Windows 7 64ビットにインストールされたプリンターの名前を変更します

Question

プリンター名を動的に変更したい.. VBSCRIPTを使用して32ビットでこれを行いました

Windows 7でこれを行う方法

Const strFolder = "C:\MEDALL_PRINT_SERVICE\"

 Dim oFSO

 Set oFSO = CreateObject("Scripting.FileSystemObject")

 If Not oFSO.FolderExists(strFolder) Then
 oFSO.CreateFolder strFolder
 End If

 strComputer = "."
 Set objWMIService = GetObject("winmgmts:" _
 & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colPrinters =  objWMIService.ExecQuery _
("Select * from Win32_Printer Where DeviceID = 'PDFCreator'")

For Each objPrinter in colPrinters
objPrinter.RenamePrinter("MEDALL PRINT SERVICE")
Next

Set colPrinters = objWMIService.ExecQuery _
("Select * From Win32_Printer Where DeviceID = 'MEDALL PRINT SERVICE' ")

For Each objPrinter in colPrinters
objPrinter.ShareName = "MEDALL PRINT SERVICE"
objPrinter.Put_
Next

これを行う方法... ？