Prev: VB WMI script syntax
Next: objUser.SetPassword "object dose not support this property or method" error
From: SunRace on 3 Feb 2006 10:35
Hello,

I am Domain Administrator for our domain. I am trying to delete one user's
profile folder using following code.

Dim objFSO
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.DeleteFolder("C:\Documents and Settings\Test1.Test1")

When I run the vbscript I get following error.

Script: pathname\111.vbs
Line: 5
Char: 1
Error: Permission denied
Code: 800A0046
Source: Microsoft VBScript runtime error

Now when I try to delete the same folder using windows GUI I can delete the
folder without any error. If I create a similar name folder in the same path
I am able to delete the same using this same script. Now this is strange as I
am domain administrator and I can delete the profile folder without using
vbscript why can't I delete the same folder using vbscript?

Please help.....

From: SunRace on 3 Feb 2006 14:14
Hmmm...I just came to know that by default permission is denied to delete
profiles folders using vbs. I found a workaround but that?s not full
proof...any one please give me solution for this....

Work around...

Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.DeleteFolder("C:\Documents and Settings\Test1.Test1")

Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "Explorer /select,C:\Documents and Settings\Test1.Test1"
wscript.sleep 5000
wshShell.SendKeys "%F,D"
wscript.sleep 5000
wshShell.SendKeys "{ENTER}"
wshShell.SendKeys "{ENTER}"
wshShell.SendKeys "{ENTER}"
wshShell.SendKeys "{ENTER}"
wshShell.SendKeys "{ENTER}"
wshShell.SendKeys "{ENTER}"
wshShell.SendKeys "{ENTER}"
wshShell.SendKeys "{ENTER}"
wshShell.SendKeys "{ENTER}"
wshShell.SendKeys "{ENTER}"

"SunRace" wrote:

> Hello,
>
> I am Domain Administrator for our domain. I am trying to delete one user's
> profile folder using following code.
>
> Dim objFSO
> Set objFSO = CreateObject("Scripting.FileSystemObject")
> objFSO.DeleteFolder("C:\Documents and Settings\Test1.Test1")
>
> When I run the vbscript I get following error.
>
> Script: pathname\111.vbs
> Line: 5
> Char: 1
> Error: Permission denied
> Code: 800A0046
> Source: Microsoft VBScript runtime error
>
> Now when I try to delete the same folder using windows GUI I can delete the
> folder without any error. If I create a similar name folder in the same path
> I am able to delete the same using this same script. Now this is strange as I
> am domain administrator and I can delete the profile folder without using
> vbscript why can't I delete the same folder using vbscript?
>
> Please help.....
>
From: JHP on 3 Feb 2006 15:24
Have you thought about using the delprof.exe utility?

http://www.microsoft.com/downloads/details.aspx?FamilyID=901A9B95-6063-4462-8150-360394E98E1E&displaylang=en

It deletes all (inactive) profiles on a computer - quiet mode or prompt -
you can also set which profiles to delete based on inactive days...

"SunRace" <SunRace(a)discussions.microsoft.com> wrote in message
news:261DB484-A8FD-4611-BD41-1AC8F61A8D56(a)microsoft.com...
> Hello,
>
> I am Domain Administrator for our domain. I am trying to delete one user's
> profile folder using following code.
>
> Dim objFSO
> Set objFSO = CreateObject("Scripting.FileSystemObject")
> objFSO.DeleteFolder("C:\Documents and Settings\Test1.Test1")
>
> When I run the vbscript I get following error.
>
> Script: pathname\111.vbs
> Line: 5
> Char: 1
> Error: Permission denied
> Code: 800A0046
> Source: Microsoft VBScript runtime error
>
> Now when I try to delete the same folder using windows GUI I can delete
> the
> folder without any error. If I create a similar name folder in the same
> path
> I am able to delete the same using this same script. Now this is strange
> as I
> am domain administrator and I can delete the profile folder without using
> vbscript why can't I delete the same folder using vbscript?
>
> Please help.....
>


From: SunRace on 3 Feb 2006 16:11
Hello,

Yes I did think of using it but my requirement is slightly different. I am
using a logic based on deleted users. If the user is deleted then only his
profile shall get deleted or else it can remain as long as the user does not
get deleted. This is like that because we are in a very high employee
attrition industry where in users leave within days also. This is the script
which I have worked up....

==========================================
Function IsAccountDisabled( strDomain, strAccount )
Dim objUser
Dim fso
Dim tf
Dim strTXT

Set objUser = GetObject("WinNT://" & strDomain & "/" & strAccount &
",user")
IsAccountDisabled = objUser.AccountDisabled
End Function

'List User Profiles

On Error Resume Next

Const HKEY_LOCAL_MACHINE = &H80000002

strComputer = "."

Set objRegistry=GetObject("winmgmts:\\" & _
strComputer & "\root\default:StdRegProv")

strKeyPath = "SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProfileList"
objRegistry.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrSubkeys

For Each objSubkey In arrSubkeys
strValueName = "ProfileImagePath"
strSubPath = strKeyPath & "\" & objSubkey
objRegistry.GetExpandedStringValue
HKEY_LOCAL_MACHINE,strSubPath,strValueName,strValue

strName = mid(strValue, instrrev(strValue, "\") + 1)
if ucase(strName)<>"LOCALSERVICE" then
if ucase(strName)<>"NETWORKSERVICE" then
if ucase(strName)<>"SYSTEMPROFILE" then

'Check Account Status

Dim strUser, strDomain, objComputer, objRegistry
Dim fso, objFSO
Dim tf
Dim strTXT
Set objComputer = CreateObject("Shell.LocalMachine")
strUsr = strName
strUser = strName
strDom = "corp.domain.com"
Set fso = CreateObject("Scripting.FileSystemObject")
strTXT = Replace(CStr(Date),"/","-") & "_"
strTXT = strTXT & Replace(CStr(Time),":","-")
Set tf = fso.CreateTextFile("\\networkshare\" & objComputer.MachineName &
".txt", True)
If( IsAccountDisabled( strDom, strUsr ) = -2147022675 ) Then

Set objComputer = GetObject("WinNT://" & strComputer & ",computer")
objComputer.Delete "user", strUser

strComputer = "."

Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_
strComputer & "\root\default:StdRegProv")

strKeyPath = "SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProfileList\" &
objSubkey

oReg.DeleteKey HKEY_LOCAL_MACHINE, strKeyPath

Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.DeleteFolder("C:\Documents and Settings\" & strName)

Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "Explorer /select,C:\Documents and Settings\" & strName
wscript.sleep 5000
wshShell.SendKeys "%F,D"
wscript.sleep 5000
wshShell.SendKeys "{ENTER}"
wshShell.SendKeys "{ENTER}"
wshShell.SendKeys "{ENTER}"
wshShell.SendKeys "{ENTER}"
wshShell.SendKeys "{ENTER}"
wshShell.SendKeys "{ENTER}"
wshShell.SendKeys "{ENTER}"
wshShell.SendKeys "{ENTER}"
wshShell.SendKeys "{ENTER}"
wshShell.SendKeys "{ENTER}"

tf.WriteLine (strUsr) + " user does not exist - Profile Deleted."
Else
tf.WriteLine (strUsr) + " user Exists."
End If

END IF
END IF
END IF
Next

============================================================

"JHP" <goawayspam(a)GFY.com> wrote in message
news:%23LKb$%23PKGHA.964(a)tk2msftngp13.phx.gbl...
> Have you thought about using the delprof.exe utility?
>
> http://www.microsoft.com/downloads/details.aspx?FamilyID=901A9B95-6063-4462-8150-360394E98E1E&displaylang=en
>
> It deletes all (inactive) profiles on a computer - quiet mode or prompt -
> you can also set which profiles to delete based on inactive days...
>
> "SunRace" <SunRace(a)discussions.microsoft.com> wrote in message
> news:261DB484-A8FD-4611-BD41-1AC8F61A8D56(a)microsoft.com...
>> Hello,
>>
>> I am Domain Administrator for our domain. I am trying to delete one
>> user's
>> profile folder using following code.
>>
>> Dim objFSO
>> Set objFSO = CreateObject("Scripting.FileSystemObject")
>> objFSO.DeleteFolder("C:\Documents and Settings\Test1.Test1")
>>
>> When I run the vbscript I get following error.
>>
>> Script: pathname\111.vbs
>> Line: 5
>> Char: 1
>> Error: Permission denied
>> Code: 800A0046
>> Source: Microsoft VBScript runtime error
>>
>> Now when I try to delete the same folder using windows GUI I can delete
>> the
>> folder without any error. If I create a similar name folder in the same
>> path
>> I am able to delete the same using this same script. Now this is strange
>> as I
>> am domain administrator and I can delete the profile folder without using
>> vbscript why can't I delete the same folder using vbscript?
>>
>> Please help.....
>>
>
>


From: JHP on 3 Feb 2006 16:18
This worked for me (as long as nothing is locked/used within the directory):

Option Explicit

Dim strFolder, objShell, objWMIService, objFolders, rtnFolder, rtnCode
Const WindowStyle = 0
Const WaitOnReturn = True

strFolder = """C:\Documents and Settings\administrator(a)xxxxxxxx.com"""
Set objShell = WScript.CreateObject("WScript.Shell")
objShell.Run "CMD /c RMDIR /s /q " & strFolder, WindowStyle, WaitOnReturn
Set objShell = Nothing

"SunRace" <sunracesuraj(a)rediffmail.com> wrote in message
news:eSKfwZQKGHA.208(a)tk2msftngp13.phx.gbl...
> Hello,
>
> Yes I did think of using it but my requirement is slightly different. I am
> using a logic based on deleted users. If the user is deleted then only his
> profile shall get deleted or else it can remain as long as the user does
> not get deleted. This is like that because we are in a very high employee
> attrition industry where in users leave within days also. This is the
> script which I have worked up....
>
> ==========================================
> Function IsAccountDisabled( strDomain, strAccount )
> Dim objUser
> Dim fso
> Dim tf
> Dim strTXT
>
> Set objUser = GetObject("WinNT://" & strDomain & "/" & strAccount &
> ",user")
> IsAccountDisabled = objUser.AccountDisabled
> End Function
>
> 'List User Profiles
>
> On Error Resume Next
>
> Const HKEY_LOCAL_MACHINE = &H80000002
>
> strComputer = "."
>
> Set objRegistry=GetObject("winmgmts:\\" & _
> strComputer & "\root\default:StdRegProv")
>
> strKeyPath = "SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProfileList"
> objRegistry.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrSubkeys
>
> For Each objSubkey In arrSubkeys
> strValueName = "ProfileImagePath"
> strSubPath = strKeyPath & "\" & objSubkey
> objRegistry.GetExpandedStringValue
> HKEY_LOCAL_MACHINE,strSubPath,strValueName,strValue
>
> strName = mid(strValue, instrrev(strValue, "\") + 1)
> if ucase(strName)<>"LOCALSERVICE" then
> if ucase(strName)<>"NETWORKSERVICE" then
> if ucase(strName)<>"SYSTEMPROFILE" then
>
> 'Check Account Status
>
> Dim strUser, strDomain, objComputer, objRegistry
> Dim fso, objFSO
> Dim tf
> Dim strTXT
> Set objComputer = CreateObject("Shell.LocalMachine")
> strUsr = strName
> strUser = strName
> strDom = "corp.domain.com"
> Set fso = CreateObject("Scripting.FileSystemObject")
> strTXT = Replace(CStr(Date),"/","-") & "_"
> strTXT = strTXT & Replace(CStr(Time),":","-")
> Set tf = fso.CreateTextFile("\\networkshare\" & objComputer.MachineName &
> ".txt", True)
> If( IsAccountDisabled( strDom, strUsr ) = -2147022675 ) Then
>
> Set objComputer = GetObject("WinNT://" & strComputer & ",computer")
> objComputer.Delete "user", strUser
>
> strComputer = "."
>
> Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_
> strComputer & "\root\default:StdRegProv")
>
> strKeyPath = "SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProfileList\" &
> objSubkey
>
> oReg.DeleteKey HKEY_LOCAL_MACHINE, strKeyPath
>
> Set objFSO = CreateObject("Scripting.FileSystemObject")
> objFSO.DeleteFolder("C:\Documents and Settings\" & strName)
>
> Set WshShell = WScript.CreateObject("WScript.Shell")
> WshShell.Run "Explorer /select,C:\Documents and Settings\" & strName
> wscript.sleep 5000
> wshShell.SendKeys "%F,D"
> wscript.sleep 5000
> wshShell.SendKeys "{ENTER}"
> wshShell.SendKeys "{ENTER}"
> wshShell.SendKeys "{ENTER}"
> wshShell.SendKeys "{ENTER}"
> wshShell.SendKeys "{ENTER}"
> wshShell.SendKeys "{ENTER}"
> wshShell.SendKeys "{ENTER}"
> wshShell.SendKeys "{ENTER}"
> wshShell.SendKeys "{ENTER}"
> wshShell.SendKeys "{ENTER}"
>
> tf.WriteLine (strUsr) + " user does not exist - Profile Deleted."
> Else
> tf.WriteLine (strUsr) + " user Exists."
> End If
>
> END IF
> END IF
> END IF
> Next
>
> ============================================================
>
> "JHP" <goawayspam(a)GFY.com> wrote in message
> news:%23LKb$%23PKGHA.964(a)tk2msftngp13.phx.gbl...
>> Have you thought about using the delprof.exe utility?
>>
>> http://www.microsoft.com/downloads/details.aspx?FamilyID=901A9B95-6063-4462-8150-360394E98E1E&displaylang=en
>>
>> It deletes all (inactive) profiles on a computer - quiet mode or prompt -
>> you can also set which profiles to delete based on inactive days...
>>
>> "SunRace" <SunRace(a)discussions.microsoft.com> wrote in message
>> news:261DB484-A8FD-4611-BD41-1AC8F61A8D56(a)microsoft.com...
>>> Hello,
>>>
>>> I am Domain Administrator for our domain. I am trying to delete one
>>> user's
>>> profile folder using following code.
>>>
>>> Dim objFSO
>>> Set objFSO = CreateObject("Scripting.FileSystemObject")
>>> objFSO.DeleteFolder("C:\Documents and Settings\Test1.Test1")
>>>
>>> When I run the vbscript I get following error.
>>>
>>> Script: pathname\111.vbs
>>> Line: 5
>>> Char: 1
>>> Error: Permission denied
>>> Code: 800A0046
>>> Source: Microsoft VBScript runtime error
>>>
>>> Now when I try to delete the same folder using windows GUI I can delete
>>> the
>>> folder without any error. If I create a similar name folder in the same
>>> path
>>> I am able to delete the same using this same script. Now this is strange
>>> as I
>>> am domain administrator and I can delete the profile folder without
>>> using
>>> vbscript why can't I delete the same folder using vbscript?
>>>
>>> Please help.....
>>>
>>
>>
>
>


 |  Next  |  Last
Pages: 1 2
Prev: VB WMI script syntax
Next: objUser.SetPassword "object dose not support this property or method" error