|
|
| == Onyx Registration Script == | | == Onyx Registration Script == |
| | | |
- | <nowiki> | + | <pre> |
| Dim oWSHShell | | Dim oWSHShell |
| Dim oWSHEnvironment | | Dim oWSHEnvironment |
|
|
| Dim RegItm1 | | Dim RegItm1 |
| Dim RegItm2 | | Dim RegItm2 |
| + | Dim CurApp |
| | | |
| Set oWSHShell = WScript.CreateObject("WScript.Shell") | | Set oWSHShell = WScript.CreateObject("WScript.Shell") |
|
|
| | | |
| For each Process in Processes | | For each Process in Processes |
- | 'WScript.Echo Process.Name | + | 'WScript.Echo Process.Name |
| + | 'WScript.Echo Process.ProcessId |
| Select Case LCase(Process.Name) | | Select Case LCase(Process.Name) |
| Case "postershop.exe" 'Onyx ProductionHouse | | Case "postershop.exe" 'Onyx ProductionHouse |
- | retCode = oWSHShell.Popup(Process.Name & " will Close in 30 seconds.", 30, "Onyx Registration Script", 4 + 16) | + | 'retCode = oWSHShell.Popup(Process.Name & " will Close in 30 seconds.", 30, "Onyx Registration Script", 4 + 16) |
- | Select Case retCode | + | 'Select Case retCode |
- | case 6, -1 | + | 'case 6, -1 |
- | Process.Terminate(0) 'Yes or timeout was chosen | + | 'Process.Terminate(0) 'Yes or timeout was chosen |
- | case 7 | + | 'case 7 |
- | WScript.quit(1) 'No was chosen | + | 'WScript.quit(1) 'No was chosen |
- | End Select | + | 'End Select |
| + | Process.Terminate(0) |
| End Select | | End Select |
| Next | | Next |
|
|
| If keyExists(RegItm1) = True Then oWSHShell.RegDelete RegItm1 | | If keyExists(RegItm1) = True Then oWSHShell.RegDelete RegItm1 |
| If keyExists(RegItm2) = True Then oWSHShell.RegDelete RegItm2 | | If keyExists(RegItm2) = True Then oWSHShell.RegDelete RegItm2 |
| + | WScript.Sleep 20000 'Wait 20 seconds. |
| + | |
| + | oWSHShell.Run """E:\Onyx Graphics\ProductionHouse\server\Postershop.exe""", 5, False |
| WScript.Sleep 30000 'Wait 30 seconds. | | WScript.Sleep 30000 'Wait 30 seconds. |
- | oWSHShell.Run """E:\Onyx Graphics\ProductionHouse\server\Postershop.exe""", 8, False | + | |
- | WScript.Sleep 30000 'Wait 30 seconds. | + | oWSHShell.AppActivate "Enter" |
| + | WScript.Sleep 5000 'Wait 5 seconds. |
| oWSHShell.SendKeys "{TAB}{ENTER}" 'Close the registration screen. | | oWSHShell.SendKeys "{TAB}{ENTER}" 'Close the registration screen. |
| + | |
| + | 'oWSHShell.Run "C:\DD\Scripts\close.register.onyx.vbs", 8, False |
| Else | | Else |
| MsgBox "Onyx is still running. Please close the application and attempt registration again.", vbCritical, "Onyx Registration Script" | | MsgBox "Onyx is still running. Please close the application and attempt registration again.", vbCritical, "Onyx Registration Script" |
|
|
| on error goto 0 | | on error goto 0 |
| end function | | end function |
Fatal error: Allowed memory size of 8388608 bytes exhausted (tried to allocate 35 bytes) in /www/ljackson.us/wiki/htdocs/includes/DifferenceEngine.php on line 1615