permission denied Microsoft VBScript runtime error '800a0046

Unable to execute a Wscript shell command to sort a file. Receive the message "permission denied Microsoft VBScript runtime error '800a0046" It worked in Windows 2000 server but not in 2003.

DIM sortLine, sortFile, server_shell, strTempFile
  set server_shell = server.CreateObject("Wscript.Shell")
  sortFile = DefPath & "XXXXrent" & replace(stmntDt,"/","") & ".txt"
   sortLine = "sort " & txtfile & " /O " & sortFile 
   strTempFile = "%comspec% /c " & sortLine
   server_shell.Run strTempFile, 0, True

Select allOpen in new window