[решено] Скрипт автоматической настройки сети

Комсомолец · Конфигурация компьютера

Уже разобралдся. вот способ:

Код:

      objIE.Document.Body.InnerHTML=objIE.Document.Body.InnerHTML&"<br>"&"7.2. Установка прочих ярлыков..."

Dim objWshShell
Dim strFolderName
Dim strFullFolderName
Dim strFullFileName4Copy
Set objFSO      = WScript.CreateObject("Scripting.FileSystemObject")
Set objWshShell = WScript.CreateObject("WScript.Shell")
strFolderName        = "Сервисы Kmsnet"
strFullFolderName = objFSO.BuildPath(objWshShell.SpecialFolders("Desktop"), strFolderName)
If Not objFSO.FolderExists(strFullFolderName) Then
    objFSO.CreateFolder strFullFolderName
End If

      Set Shortcut=WSHShell.CreateShortcut(strFullFolderName&"\Файловый сервер.lnk")