Visual Basic 6.0 - Permission Denied - Runtime error 70

[Andicioz 0]

Hello, i am a newbie in Visual Basic Programming,

I am creating a Removal Tool for PerfectNav, i am using the Windows Script Host Object Model Reference, and i need to delete some registery entry's. I programmed it all like they say on serveral sites, but when i run it it says, Runtime-Error 70, Permission Denied.

 

What do i need to do now?

 

Andicioz

[Andicioz 0]

I am just trying to delete some registry entry's trought a visual basic program, and i am using the Windows Script Host Object Model Reference, so the code looks like this:

 

Private Sub cmdRemoveReg_Click()

 

Dim objReg As New WshShell

Dim strKey As String

 

objReg.RegDelete "HKEY_CLASSES_ROOT\BHO.PerfectNavBHO\"

objReg.RegDelete "HKEY_CLASSES_ROOT\BHO.PerfectNavBHO.1"

objReg.RegDelete "HKEY_CLASSES_ROOT\CLSID\{00D6A7E7-4A97-456f-848A-3B75BF7554D7}"

objReg.RegDelete "HKEY_CLASSES_ROOT\Interface\{8B8F6968-2F24-41E3-B653-E9613226F14D}"

objReg.RegDelete "HKEY_CLASSES_ROOT\TypeLib\{DE289BFA-737B-4ABB-A4EC-F8753551B875}"

objReg.RegDelete "HKEY_CURRENT_USER\Software\Microsoft\Search Assistant\ACMru\5603"

objReg.RegDelete "HKEY_LOCAL_MACHINE\SOFTWARE\Classes\BHO.PerfectNavBHO"

objReg.RegDelete "HKEY_LOCAL_MACHINE\SOFTWARE\Classes\BHO.PerfectNavBHO.1"

objReg.RegDelete "HKEY_LOCAL_MACHINE\SOFTWARE\Classes\CLSID\{00D6A7E7-4A97-456f-848A-3B75BF7554D7}"

objReg.RegDelete "HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Interface\{8B8F6968-2F24-41E3-B653-E9613226F14D}"

objReg.RegDelete "HKEY_LOCAL_MACHINE\SOFTWARE\Classes\TypeLib\{DE289BFA-737B-4ABB-A4EC-F8753551B875}"

objReg.RegDelete "HKEY_LOCAL_MACHINE\SOFTWARE\PerfectNav"

objReg.RegDelete "HKEY_USERS\S-1-5-21-1202660629-1425521274-839522115-1004\Software\Microsoft\Search Assistant\ACMru\5603"

 

Set objReg = Nothing

Load frmSucces

frmSucces.Show

End Sub

 

I already read a article on the Microsoft website --- something with the MTS Explorer.... How the hell do i start MTS Explorer?

i Must disable MTS Debugging but how...?

[Andicioz 0]

Okok, it still doesn't work.

I checked the NTFS Rights, and i have full control over the registry. It still does not work; i saw in the registery editor that there is another account where the full control is not checked. I tried to check it but it automaticly unchecked it. Any idea's?

[Spectre630 0]

I assume you're logged on as an administrator?

 

Also, does your code work to remove other registry keys? Like, if you were to make a fake key and try to remove it, does it work? If not, perhaps those functions you're using just don't like you; in which case, you can use the API calls to do it.. you'd just need to import them into your VB program.

[Andicioz 0]

Yes, i tried a fake key and that was removable.

^^ i suggest that i use API Calls^^

 

Now what i dont know to use it or so....