Set MyShell = CreateObject("Wscript.Shell")
Set MyFiles = CreateObject("Scripting.FileSystemObject")
i=myshell.run ("regedit /e c:\lanman.reg HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Network\LanMan",0,TRUE)
Set datei = MyFiles.OpenTextFile("c:\lanman.reg")

Do until datei.AtEndOfStream
	zeile=ucase(datei.readline)
	i=instr(zeile,"LANMAN\")
	if i>0 then 
		freigabe=mid(zeile,i+7)
		freigabe=replace(freigabe,"]","")
	end if
	n=instr(zeile, "PATH")
	if n>0 then
		pfad=replace(zeile,chr(34),"")
		pfad=replace(pfad,"PATH=","")
		pfad=replace(pfad,"\\","\")
		x=myshell.popup ("Katalog=" & pfad & chr(13) & "Nazwa udziału=" & freigabe,,"Zakończyć udostępnienie?",3)
		if x=2 then exit do
		if x=6 then 
			regkey="HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Network\LanMan\" & freigabe & "\"
			myshell.regdelete regkey
		end if
	end if
Loop 

datei.close
Set over = myfiles.GetFile("c:\lanman.reg")
over.delete