Script for naming wim file

[pungdoft]

I found this script for naming wimfiles during ztibackup but I cant get it to run. Get lots of errors, even after removing all the "'s. Can someone help me?

 

—script begin—

set env = CreateObject(“Microsoft.SMS.TSEnvironment”)

Set ProgressUI = CreateObject(“Microsoft.SMS.TsProgressUI”)

ProgressUI.CloseProgressDialog

BackupFile = InputBox(“Name of wim file”)

env(“BackupFile”) = BackupFile

—script end—