asacyra
29-12-2019, 20:28
Написал скрипт. Есть варианты его доработать? Укажите на мои недостатки написания кода
'копирую файлы с сервера
Set oShell= CreateObject("WScript.Shell")
oShell.run "cmd.exe /C mkdir ""c:\Program Files (x86)\Tander\invgm"" "
oShell.run "cmd.exe /C copy ""\\server\whs\update\1.exe"" ""c:\Program Files (x86)\MySoft"" "
oShell.run "cmd.exe /C copy ""\\server\whs\update\2.exe"" ""c:\Program Files (x86)\MySoft"" "
oShell.run "cmd.exe /C copy ""\\server\whs\update\start.ini"" ""c:\Program Files (x86)\MySoft"" "
'Создаю ярлык на общем рабочем столе
set oShell = WScript.CreateObject ("WScript.Shell")
set WshShell = WScript.CreateObject ("WScript.Shell")
DesktopPath = oShell.SpecialFolders("AllUsersDesktop")
set oShellLink = oShell.CreateShortcut(DeskTopPath & "\MySoft.lnk" )
oShellLink.TargetPath = "C:\Program Files (x86)\MySoft\1.exe"
oShellLink.Arguments = "start.ini" '
oShellLink.WindowStyle = 1
oShellLink.WorkingDirectory = "C:\Program Files (x86)\MySoft\"
oShellLink.IconLocation = WshShell.ExpandEnvironmentStrings("c:\Program Files (x86)\MySoft\2.exe") & ", 0"
oShellLink.Save
'Создаю ярлык папке MySoft
set WshShell = WScript.CreateObject("WScript.Shell" )
set oShellLink = WshShell.CreateShortcut("c:\Program Files (x86)\MySoft\MySoft.lnk" )
oShellLink.TargetPath = "C:\Program Files (x86)\MySoft\1.exe"
oShellLink.Arguments = "start.ini"
oShellLink.WindowStyle = 1
oShellLink.Description = "Shortcut Script"
oShellLink.WorkingDirectory = "C:\Program Files (x86)\MySoft"
oShellLink.Save
'Запускаю ПО для докачки файлов
oShell.Run("""c:\Program Files (x86)\MySoft\MySoft.lnk""" )
'копирую файлы с сервера
Set oShell= CreateObject("WScript.Shell")
oShell.run "cmd.exe /C mkdir ""c:\Program Files (x86)\Tander\invgm"" "
oShell.run "cmd.exe /C copy ""\\server\whs\update\1.exe"" ""c:\Program Files (x86)\MySoft"" "
oShell.run "cmd.exe /C copy ""\\server\whs\update\2.exe"" ""c:\Program Files (x86)\MySoft"" "
oShell.run "cmd.exe /C copy ""\\server\whs\update\start.ini"" ""c:\Program Files (x86)\MySoft"" "
'Создаю ярлык на общем рабочем столе
set oShell = WScript.CreateObject ("WScript.Shell")
set WshShell = WScript.CreateObject ("WScript.Shell")
DesktopPath = oShell.SpecialFolders("AllUsersDesktop")
set oShellLink = oShell.CreateShortcut(DeskTopPath & "\MySoft.lnk" )
oShellLink.TargetPath = "C:\Program Files (x86)\MySoft\1.exe"
oShellLink.Arguments = "start.ini" '
oShellLink.WindowStyle = 1
oShellLink.WorkingDirectory = "C:\Program Files (x86)\MySoft\"
oShellLink.IconLocation = WshShell.ExpandEnvironmentStrings("c:\Program Files (x86)\MySoft\2.exe") & ", 0"
oShellLink.Save
'Создаю ярлык папке MySoft
set WshShell = WScript.CreateObject("WScript.Shell" )
set oShellLink = WshShell.CreateShortcut("c:\Program Files (x86)\MySoft\MySoft.lnk" )
oShellLink.TargetPath = "C:\Program Files (x86)\MySoft\1.exe"
oShellLink.Arguments = "start.ini"
oShellLink.WindowStyle = 1
oShellLink.Description = "Shortcut Script"
oShellLink.WorkingDirectory = "C:\Program Files (x86)\MySoft"
oShellLink.Save
'Запускаю ПО для докачки файлов
oShell.Run("""c:\Program Files (x86)\MySoft\MySoft.lnk""" )