Peter M. Groen / knowledgetree

Authored by Charl Joseph Mert 2009-11-24 17:08:50 +0200

PT:1732247

Updated: Added dmsctl.vbs and dmsctl_install.bat

Committed by: Charl Joseph Mert

Showing 2 changed files with 28 additions and 0 deletions

dmsctl.vbs 0 → 100644

	1	+' This script should only be invoked for Vista and Windows 7
	2	+
	3	+'Detecting current OS
	4	+strComputer = "."
	5	+currOS = ""
	6	+doRunAs = false
	7	+
	8	+Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
	9	+Set colOperatingSystems = objWMIService.ExecQuery ("Select * from Win32_OperatingSystem")
	10	+
	11	+For Each objOperatingSystem in colOperatingSystems
	12	+ currOS = objOperatingSystem.Caption & " " & objOperatingSystem.Version
	13	+ currOS = trim(currOS)
	14	+Next
	15	+
	16	+If left(currOS, 19) = "Microsoft Windows 7" Then
	17	+ doRunAs = true
	18	+End If
	19	+
	20	+If doRunAs = true Then
	21	+ Set objShell = CreateObject("Shell.Application")
	22	+ Set objFolder = objShell.Namespace("C:\Program Files (x86)\Zend\ktdms\knowledgetree")
	23	+ Set objFolderItem = objFolder.ParseName("dmsctl_install.bat")
	24	+ objFolderItem.InvokeVerb "runas"
	25	+End If
0	26	\ No newline at end of file
...	...

dmsctl_install.bat 0 → 100644

	1	+rem KnowledgeTree UAC Run installer as Administrator for Windows 7 and Vista
	2	+@echo off
	3	+call dmsctl.bat install
0	4	\ No newline at end of file
...	...