[Iska]

Чуть глы́́бже:

Код:

Option Explicit

Dim objFolderPrograms
Dim strFolder

With WScript.CreateObject("Scripting.FileSystemObject")
	Set objFolderPrograms = WScript.CreateObject("Shell.Application").NameSpace("shell:Programs")
	
	If Not objFolderPrograms Is Nothing Then
		strFolder = .BuildPath(objFolderPrograms.self.Path, "System Tools")
		
		If .FolderExists(strFolder) Then
			.DeleteFolder strFolder, True
		Else
			WScript.Echo "Can't find folder [" & strFolder & "]."
			WScript.Quit 2
		End If
	Else
		WScript.Echo "Can't determine explorer alias [shell:Programs]."
		WScript.Quit 1
	End If
	
	Set objFolderPrograms = Nothing
End With

WScript.Quit 0