четверг, 25 июля 2013 г.

vbs. Запуск msi + ярлык на рабочий стол. Ставим Graphviz.


Тонкость только в том, что в сети 2 типа клиентских операционных систем.

Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "msiexec.exe /I graphviz-2.30.1.msi /passive /qn"

sOSType = Trim(WshShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\CurrentVersion"))
If sOSType = "5.1" Then
strDesktop = WshShell.SpecialFolders("AllUsersDesktop")
Set oMyShortCut= WshShell.CreateShortcut(strDesktop & "\graphviz.lnk")
oMyShortCut.TargetPath = "C:\Program Files\Graphviz2.30\bin\gvedit.exe"
oMyShortCut.WorkingDirectory = "C:\program Files\Graphviz2.30\bin"
oMyShortCut.Description = "[GraphViz]"
oMyShortCut.Save
ELSE
strDesktop = WshShell.SpecialFolders("AllUsersDesktop")
Set oMyShortCut= WshShell.CreateShortcut(strDesktop & "\graphviz.lnk")
oMyShortCut.TargetPath = "C:\program Files (x86)\Graphviz2.30\bin\gvedit.exe"
oMyShortCut.WorkingDirectory = "C:\program Files (x86)\Graphviz2.30\bin"
oMyShortCut.Description = "[GraphViz]"
oMyShortCut.Save
End IF

Комментариев нет:

Отправить комментарий