[Iska]

angel_lyucifer, потому что это пакетный файл — гибрид из пакетного файла, вызова JScript-интерпретатора и VBScript-кода.

Сохраняете его как «Name.cmd» и вызываете, например:

Код:

E:\Песочница\0336\0005.cmd

В результате получаете на Рабочем столе ярлык «file.lnk», указывающий на «file.exe», находящийся рядом с пакетным файлом — т.е.: «E:\Песочница\0336\file.exe».

Одним словом, крайне неудачный выбор.

[angel_lyucifer]

Одним словом, крайне неудачный выбор. »

Проблема такая, у меня есть файл Vlp.exe у него может быть любая директория, но мне нужно создать ярлык скриптом, этот скрипт будет лежать рядом с файлом...

[angel_lyucifer]

Iska »

Всё понял, спасибо...

[Iska]

у меня есть файл Vlp.exe у него может быть любая директория, но мне нужно создать ярлык скриптом, этот скрипт будет лежать рядом с файлом... »

Так:

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

Код:

Option Explicit

Dim strFileName

Dim objFSO
Dim strPath2File
Dim objFile


strFileName = "Vlp.exe"

Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")

strPath2File = objFSO.BuildPath(objFSO.GetParentFolderName(WScript.ScriptFullName), strFileName)

If objFSO.FileExists(strPath2File) Then
	Set objFile = objFSO.GetFile(strPath2File)
	
	With WScript.CreateObject("WScript.Shell")
		With .CreateShortcut(objFSO.BuildPath(.SpecialFolders.Item("Desktop"), objFSO.GetBaseName(strFileName) & ".lnk"))
			.TargetPath       = objFile.Path
			.WorkingDirectory = objFile.ParentFolder.Path
			
			.Save
		End With
	End With
	
	Set objFile = Nothing
Else
	WScript.Echo "File [" & strPath2File & "] not found near this script."
	WScript.Quit 1
End If

Set objFSO = Nothing

WScript.Quit 0

[angel_lyucifer]

Iska »

Скрипт, очень хорошей!
А как добавить описание для этого ярлыка?

[Iska]

Код:

	With WScript.CreateObject("WScript.Shell")
		With .CreateShortcut(objFSO.BuildPath(.SpecialFolders.Item("Desktop"), objFSO.GetBaseName(strFileName) & ".lnk"))
			.TargetPath       = objFile.Path
			.WorkingDirectory = objFile.ParentFolder.Path
			.Description      = "Это мой ярлык"
			
			.Save
		End With
	End With

[angel_lyucifer]

Большое спасибо, Iska!

[deminand]

а как выполнить его на удаленном компьютере для определенного пользователя. ПК в домене.

[Iska]

а как выполнить его на удаленном компьютере для определенного пользователя. ПК в домене. »

В составе LOGON-скрипта, например.