[Iska]

gen0m.rsw, пробуйте:

читать дальше »

Код:

Option Explicit

Dim objDrive
Dim strPath


With WScript.CreateObject("Scripting.FileSystemObject")
	For Each objDrive In .Drives
		If objDrive.DriveType = 2 Then
			strPath = .BuildPath(objDrive.RootFolder.Path, "RSWP\REGEDIT\RegWorkshop\RegWorkshop.exe")
			
			If .FileExists(strPath) Then
				With WScript.CreateObject("WScript.Shell")
					With .CreateShortcut(WScript.CreateObject("Shell.Application").NameSpace("shell:AppData").Self.Path & "\Microsoft\Internet Explorer\Quick Launch\RegWorkshop.lnk")
						.TargetPath       = strPath
						.IconLocation     = strPath & ", 0"
						.WorkingDirectory = "%SystemRoot%\system32"
						
						.Save
					End With
				End With
				
				Exit For
			End If
		End If
	Next
End With

WScript.Quit 0