![]() ![]() This was copied to the Windows directory and permissions granted so that users could write to it. Then, I included the INI File from the Windows directory in my deployment script. To resolve those issues, I installed to a different location (e.g., C:\Products) and made that writable to non-administrator users. The application also wants to write to protected areas of the registry at each launch. This is because it writes to a KGOleSrv.INI file in the Windows directory and to various settings files inside the Program Files directory. This application doesn't run smoothly on Windows 7 64-bit. If isnull(matchingProcs) Or IsEmpty(matchingProcs) Then Set matchingProcs(UBound(matchingProcs)) = thisProc ReDim Preserve matchingProcs(UBound(matchingProcs)+1) If IsNull(matchingProcs(0)) Or IsEmpty(matchingProcs(0)) Then ![]() ' Restructure the collection as an array, to make it easier to "SELECT * FROM Win32_Process WHERE Name='" & processName & "'",48) Set procsFound = objWMIService.ExecQuery( _ Set objWMIService = GetObject("winmgmts:\\.\root\CIMV2") Public Function GetMatchingProcessObjs(processName)ĭim objWMIService, procsFound, matchingProcs(), thisProc If InStr(1,thisProc.CommandLine,"KaleidaGraph")>0 Then (It's taken from my standard deployment script and may reference objects which aren't created here, so some tinkering may be necessary.) Dim dllProcs, thisProcĭllProcs = GetMatchingProcessObjs("rundll32.exe") ![]() Here is the script I used to kill the PDF and readme opening prompts after silent installation of KaleidaGraph. ![]()
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |