How to remove registry

[OrionCookies]

It might be easy for you folks but I can't figure it out.

here is my code:
'=========================================================

const regkey = "c:\winnt\i3\source\Wireless80211_NAIDesktopFW-WXP-L-P-001\AironetCB21AGCisco"

Dim Shell
Set Shell = CreateObject("WScript.Shell")
'===========================================
'Main script
'=========================================
deletekey

'======================================
Sub DeleteKey
Dim Value_Of_Key : Value_Of_Key = shell.regread("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\DevicePath")

On Error Resume Next
shell.regdelete value_Of_Key & regkey, "REG_EXPAND_SZ"
end sub

'=========================================================

under device path in registry contain following string

%SystemRoot%\inf;%SystemDrive%\drivers\lan;%SystemDrive%\drivers\lan\d510;%SystemDrive%\Sysprep\Drivers\NIC\Broadcom\SP24461\WinXp;%SystemDrive%\Sysprep\Drivers\NIC\Intel\SP24562;c:\winnt\i3\source\Wireless80211_NAIDesktopFW-WXP-L-P-001\AironetCB21AGCisco


All I want to remove last string....;c:\winnt\i3\source\Wireless80211_NAIDesktopFW-WXP-L-P-001\AironetCB21AGCisco


thanks in advace

 

[PHV]

Sub DeleteKey
Const theKey = "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\DevicePath"
Dim Value_Of_Key
Value_Of_Key = Shell.RegRead(theKey)
Shell.RegWrite theKey, Replace(Value_Of_Key, ";" & regkey, 1, -1, 1), "REG_EXPAND_SZ"
End Sub

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[OrionCookies]

thanks for your(PHV (MIS)) quick reply,
when i ran this, i get invalid procedure call or argument:'Replace'

 

[PHV]

Sorry for the typo:
Shell.RegWrite theKey, Replace(Value_Of_Key, ";" & regkey, "", 1, -1, 1), "REG_EXPAND_SZ"

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[OrionCookies]

Thanks PHV, this do it..

Again, thanks for you quick respond...