Access Denied Error

I dont have any webservices on that server. Iam registering the dlls
through a vb script that calls a batch file.

contents of batch file
-------------------------------
regsvr32 First.dll
regsvr32 Second.dll

contents of vbscript
----------------------------

LogMessage "Registering" & SourcePath & strDllName & " in COM+"
ExecuteCommand("register_dll.bat")

LogMessage logs to a text file.
ExecuteCommand executes the given command.


Sub LogMessage(strMsg)
dim fso, ts, strLogMsgOut, i, strScreenMsgOut, pos, logFile

logFile = CCNum & ".log"

pos = instr(1, strMsg, ": ")
if pos > 0 then
strScreenMsgOut = right(strMsg, len(strMsg) - pos - 1)
else
strScreenMsgOut = strMsg
end if

wscript.echo strScreenMsgOut

strLogMsgOut = PadLeft(Month(now), 2, "0") & "/" & PadLeft(day(now),
2, "0") & " " & PadLeft(hour(now), 2, "0") & ":" & PadLeft(minute(now),
2, "0") & ":" & PadLeft(second(now), 2, "0") & "> "
strLogMsgOut = strLogMsgOut & strMsg

set fso = CreateObject("Scripting.FileSystemObject")
set ts = fso.OpenTextFile(logFile, 8, true)

ts.WriteLine (strLogMsgOut)
ts.close
End Sub

-------------------------------------------------------------

Function ExecuteCommand(cmd)
Dim WshShell, oExec
'LogMessage "About to exec: " & cmd
Set WshShell = CreateObject("WScript.Shell")

Set oExec = WshShell.Exec(cmd)

dim resultstring
Do While oExec.Status = 0
LogMessage oExec.STDOut.ReadAll
LogMessage oExec.STDErr.ReadAll
WScript.Sleep 100
Loop
'ExecuteCommand = oExec.STDOut.ReadAll
'LogMessage oExec.STDOut.ReadAll
LogMessage oExec.STDErr.ReadAll
WScript.Sleep 250
End Function

---------------------------------------------------------------------------------

Thanks
Raghu




Dave Patrick wrote:
> Probably by stopping your web services.
>
> --
>
> Regards,
>
> Dave Patrick ....Please no email replies - reply in newsgroup.
> Microsoft Certified Professional
> Microsoft MVP [Windows]
> http://www.microsoft.com/protect
>
> "jakk" wrote:
> <snip>
> | I could see that a process dllhost.exe is using this folder. I tried to
> | kill it but it says Access denied. Please let me know what can be done.
> | Thanks a lot for your help!!
> |
> | Raghu
> |

Use this tool to see what process is using dllhost.exe

http://www.sysinternals.com/Utilities/ProcessExplorer.html

--

Regards,

Dave Patrick ....Please no email replies - reply in newsgroup.
Microsoft Certified Professional
Microsoft MVP [Windows]
http://www.microsoft.com/protect

"jakk"wrote:
|I dont have any webservices on that server. Iam registering the dlls
| through a vb script that calls a batch file.
|
| contents of batch file
| -------------------------------
| regsvr32 First.dll
| regsvr32 Second.dll
|
| contents of vbscript
| ----------------------------
|
| LogMessage "Registering" & SourcePath & strDllName & " in COM+"
| ExecuteCommand("register_dll.bat")
|
| LogMessage logs to a text file.
| ExecuteCommand executes the given command.
|
|
| Sub LogMessage(strMsg)
| dim fso, ts, strLogMsgOut, i, strScreenMsgOut, pos, logFile
|
| logFile = CCNum & ".log"
|
| pos = instr(1, strMsg, ": ")
| if pos > 0 then
| strScreenMsgOut = right(strMsg, len(strMsg) - pos - 1)
| else
| strScreenMsgOut = strMsg
| end if
|
| wscript.echo strScreenMsgOut
|
| strLogMsgOut = PadLeft(Month(now), 2, "0") & "/" & PadLeft(day(now),
| 2, "0") & " " & PadLeft(hour(now), 2, "0") & ":" & PadLeft(minute(now),
| 2, "0") & ":" & PadLeft(second(now), 2, "0") & "> "
| strLogMsgOut = strLogMsgOut & strMsg
|
| set fso = CreateObject("Scripting.FileSystemObject")
| set ts = fso.OpenTextFile(logFile, 8, true)
|
| ts.WriteLine (strLogMsgOut)
| ts.close
| End Sub
|
| -------------------------------------------------------------
|
| Function ExecuteCommand(cmd)
| Dim WshShell, oExec
| 'LogMessage "About to exec: " & cmd
| Set WshShell = CreateObject("WScript.Shell")
|
| Set oExec = WshShell.Exec(cmd)
|
| dim resultstring
| Do While oExec.Status = 0
| LogMessage oExec.STDOut.ReadAll
| LogMessage oExec.STDErr.ReadAll
| WScript.Sleep 100
| Loop
| 'ExecuteCommand = oExec.STDOut.ReadAll
| 'LogMessage oExec.STDOut.ReadAll
| LogMessage oExec.STDErr.ReadAll
| WScript.Sleep 250
| End Function
|
| ---------------------------------------------------------------------------------
|
| Thanks
| Raghu

use unlocker (http://ccollomb.free.fr/unlocker/) this will not only show
what process is using that folder but also give option for u to release that
process & delete that folder

"jakk" <rjakkani.TakeThisOut@gmail.com> wrote in message
news:1139258913.119504.241120@g14g2000cwa.googlegroups.com...
> Hello All,
>
> Iam having a strange situation here. I have a dll in a folder that Iam
> regsitering using regsvr32 with vb script. After it gets registered
> successfully I will delete this folder using some other script that
> gets executed in some cases. But while deleting the folder it gives
> "Access Denied Error". I cannot delete that folder or change the name
> of it. Even after restarting the machine I cannot delete it. It says
> some process is using this dll and thats the reason why I cannot
> delete/rename the dll.
>
> I tried deleting the folder after unregistering using regever32 /u.
> This also didnt work.
>
> I could see that a process dllhost.exe is using this folder. I tried to
> kill it but it says Access denied. Please let me know what can be done.
> Thanks a lot for your help!!
>
> Raghu
>

use this tool to see which process is locking as well as to delete the
folder http://ccollomb.free.fr/unlocker/

T.Umesh
www.windowsworkshop.com

"jakk" <rjakkani.TakeThisOut@gmail.com> wrote in message
news:1139258913.119504.241120@g14g2000cwa.googlegroups.com...
> Hello All,
>
> Iam having a strange situation here. I have a dll in a folder that Iam
> regsitering using regsvr32 with vb script. After it gets registered
> successfully I will delete this folder using some other script that
> gets executed in some cases. But while deleting the folder it gives
> "Access Denied Error". I cannot delete that folder or change the name
> of it. Even after restarting the machine I cannot delete it. It says
> some process is using this dll and thats the reason why I cannot
> delete/rename the dll.
>
> I tried deleting the folder after unregistering using regever32 /u.
> This also didnt work.
>
> I could see that a process dllhost.exe is using this folder. I tried to
> kill it but it says Access denied. Please let me know what can be done.
> Thanks a lot for your help!!
>
> Raghu
>