View Replies (2)
Our App's call to WScript.Shell.Run() fails on new laptops, but fine on older laptops.
  1. New
  2. How-to
  3.  OLE
  4.  PowerScript (PS)
  5.  PowerBuilder
0 Votes
  1. Chris Fauvel
  2. PowerBuilder
  3. Monday, 30 June 2025 06:31 PM UTC

We recently got new laptops with Windows 11 Enterprise. These new laptops have been configured to take away Admin rights, however the issue is present on my new laptop which has admin rights.

 

The issue:

In several spots in our powerbuilder 11.5 app, we call various EXEs, that we have created in C#.net, using the WScript.Shell.Run command.
On our older laptops having windows 10 enterprise there is no problem. On the new laptops we get an error when we call the RUN method of the OleObject.

The error is not very helpful: "Error calling external object function run at line 47 in function wf_create_new_pdf_from_pages of object w_split_pdf."
The error is from the: "lole_WScript_Shell.Run(ls_run , 2, TRUE) // 2 = Minimized, TRUE = Wait For App to Finish" call

 

I am thinking that Windows 11 doesn't support Wscript.Shell anymore, or at least there is some disconnect between PB11.5 and Windows 11.

 

Can someone help me? Or should I just use the P-Script RUN command (as I have tried to do as a workaround - it does work BTW)? 

string ls_pages_from_sle, ls_pages_parm, ls_temp, ls_run, ls_drive, ls_dirpath, ls_filename, ls_parsed_pages[]
int li_page_sections, li_index, li_retval
OleObject lole_WScript_Shell

//clf 06/27/2025 new variables for testing
long ll_rtc

ii_temp_pdf_counter = ii_temp_pdf_counter + 1
is_temp_pdf_filename = is_pdf_temp_processing_folder + "\temp_" + String(ii_temp_pdf_counter) + ".pdf"

ls_run = '"' + is_split_exe_path + '" "' + is_local_pdf_filepath_original + '" "' + is_temp_pdf_filename + '" "' + is_all_pages_expanded + '"'

TRY
	lole_WScript_Shell = CREATE OleObject
			
	li_retval = lole_WScript_Shell.ConnectToNewObject("WScript.Shell")
	IF li_retval <> 0 THEN
		MessageBox("", "Unable to connect to OLE object WScript.Shell")
		IF gnv_app.of_get_log_pdf_activity() THEN
			SQLCA.usp_bto_executionlog_insert("PDF Activity", gnv_app.null__datetime, gnv_app.null__datetime, gnv_app.null__long, gnv_app.null__long, gnv_app.null__long, gnv_app.null__string , gnv_app.null__string, gnv_app.null__long, "User " + gnv_app.of_getuserid() + " was unable to connect to OLE object WScript.Shell")
		END IF
		li_retval = -1
	ELSE
		//clf 06/27/2025 comment for testing...when uncommented it throws an error on windows 11 laptop, but not on windows 10 laptop
		lole_WScript_Shell.Run(ls_run , 2, TRUE) // 2 = Minimized, TRUE = Wait For App to Finish
		
		ll_rtc = run(ls_run)		//clf 06/27/2025 this is my workaround from using the WScript.shell ..RUN command
		
		
		
		IF FileExists(is_temp_pdf_filename) THEN
			IF gnv_app.of_get_log_pdf_activity_verbose() THEN
				SQLCA.usp_bto_executionlog_insert("PDF Activity", gnv_app.null__datetime, gnv_app.null__datetime, gnv_app.null__long, gnv_app.null__long, gnv_app.null__long, gnv_app.null__string , gnv_app.null__string, gnv_app.null__long, "User " + gnv_app.of_getuserid() + " successfully created new PDF '" + is_temp_pdf_filename + "' from page range '" + ls_pages_from_sle + "'")
			END IF
			
			// Make an extra local copy of the temp PDF file so the original being open in the PDF viewer will not be an issue.
			is_temp_pdf_copy_filename = is_pdf_temp_processing_folder + "\temp_" + String(ii_temp_pdf_counter) + "_copy.pdf"
			lb_retval = CopyFileA(is_temp_pdf_filename, is_temp_pdf_copy_filename, lb_false) 
			IF lb_retval = FALSE THEN
				MessageBox("", "An error occurred duplicating local PDF.  Local: " + is_temp_pdf_filename + ",  Copy: " + is_temp_pdf_copy_filename)
				IF gnv_app.of_get_log_pdf_activity() THEN
					SQLCA.usp_bto_executionlog_insert("PDF Activity", gnv_app.null__datetime, gnv_app.null__datetime, gnv_app.null__long, gnv_app.null__long, gnv_app.null__long, gnv_app.null__string , gnv_app.null__string, gnv_app.null__long, "User " + gnv_app.of_getuserid() + " encountered an error copying local PDF.  Local: " + is_temp_pdf_filename + ",  Copy: " + is_temp_pdf_copy_filename)
				END IF
				RETURN -1
			ELSE
				IF NOT FileExists(is_temp_pdf_copy_filename) THEN
					IF gnv_app.of_get_log_pdf_activity() THEN
						SQLCA.usp_bto_executionlog_insert("PDF Activity", gnv_app.null__datetime, gnv_app.null__datetime, gnv_app.null__long, gnv_app.null__long, gnv_app.null__long, gnv_app.null__string , gnv_app.null__string, gnv_app.null__long, "User " + gnv_app.of_getuserid() + " FAILED to copy local PDF file.  Local: " + is_temp_pdf_filename + ",  Copy: " + is_temp_pdf_copy_filename)
					END IF
					RETURN -1
				ELSE
					IF gnv_app.of_get_log_pdf_activity_verbose() THEN
						SQLCA.usp_bto_executionlog_insert("PDF Activity", gnv_app.null__datetime, gnv_app.null__datetime, gnv_app.null__long, gnv_app.null__long, gnv_app.null__long, gnv_app.null__string , gnv_app.null__string, gnv_app.null__long, "User " + gnv_app.of_getuserid() + " successfully copied local PDF file.  Local: " + is_temp_pdf_filename + ",  Copy: " + is_temp_pdf_copy_filename)
					END IF			
				END IF	
			END IF			
			
			RETURN 1
		END IF
	END IF
CATCH (Throwable lth_exception)
	li_retval = -1

	
FINALLY
	DESTROY lole_WScript_Shell
END TRY
Crosstab datawindow PB 2019 MR2170 Compatibility Issue with Latest Windows 11 Up...
Responses (2)
  1. Likes
  2. Latest
  3. Oldest

Find Questions by Tag

.EXE .NET 6.0 .NET Assembly .NET Core 3.1 .NET Core Framework .NET DataStore .NET Std Framework 32-bit 64-bit ADO.NET AEM AI Algorithm Amazon AWS Android Apache API APK App Store App Store (Apple) Appeon Workspace Appeon Xcelerator Plug-in Architecture Array ASE Asynchronous Methods Authentication AutoBuild AutoCompiler Automated Testing Automation AutoScript Azure Barcode Base64 Batch BigData BLOB Branch & Merge Browser Bug Build Button C# C# Class Importer C# Editor C# Model generator Calendar Camera Certificate Chrome Citrix Class Client Client/Server Cloud Cluster Collection COM Command Line Compiler Compression Computed Field Configuration Controls Cookies Cordova Crash Cross-Platform Crosstab CSharpAssembly CSharpObject CSS CSV Cursor Data Database Database Driver Database Painter Database Profile Database Provider DataObject DataSource DataStore DataStore (C#) DataStore (PS) DataType DataWindow DATE DATETIME DB2 Debug Debugger Debugging Deployment Design DLL DO-WHILE Dockable Docker Documentation DOUBLE Download DPI DragDrop Edge Edit Style Editor Elevate Conference Email Embedded SQL Emulator Encoding Encryption Enhancement Request Entity Entity Framework ERP Error Event Event Handler Event Handling Excel Exception Export Expression External Functions F# Field File File Access Filter Firefox Firewall Font FOR-NEXT Foreground Format Function Garbage Collection GeoLocation Git Graph HANA Hash Header HTML/5 HTTP/S HTTPClient Icon IDE Identity IIS IMAPI Import InfoMaker Inheritance Installation Integer IntelliSense Interface Internet Internet Explorer iOS IPA iPad iPhone IWA J# Java JavaScript JBoss JDBC JOIN JSON JSONGenerator JSONParser Kestrel Label Lambda Large File LDAP Library License LINQ Linux OS Load Balancing Localization Localized PBVM Log In Log Out Logging LONG LONGLONG macOS MAPI Maps MDI Memory Memory Leak Menu Merge MessageBox Messagging Method Migration MIME TYPE Mobile Model ModelStore ModelStore (C#) MSOLEDBSQL Multi Threading MVC MySQL n-Tier Namespace NativePDF NVO OAuth ODATA ODBC Office Offline OLE OLEDB Online Open Source OpenAPI OpenSSL Oracle OrcaScript Other Outlook Output Package Parameter Patch PayPal PB Classic PB Native PB.NET PBC PBD PBDOM PBG PBJVM PBL PBNI PBORCA PBVM PBX PDF Performance Permission PFC Picture Pipeline Play Store (Google) Plugin Popup Port POST PostgreSQL PowerBuilder PowerBuilder (Appeon) PowerBuilder (SAP) PowerBuilder Compiler PowerBuilder Runtime PowerClient PowerScript (PS) PowerScript IDE PowerScript Migrator PowerServer PowerServer Mobile PowerServer Toolkit PowerServer Web PowerServerLabel Print Properties Proxy Publish PULL PUSH Query Regression Release Renew Resize Response REST Retrieve RibbonBar RibbonBar Builder RibbonView Rich Text Roadmap RPC Runtime Packager SaaS Scaffolding Script SDI SDK Security Server Service Session Single Sign-on Size SMTP SMTPClient SnapDevelop SOAP Solution Sort Source Code Speech Recognition SQL SQL Anywhere SQL Server SqlBuilder SqlExecutor SQLite SqlModelMapper Storage Stored Procedure Subscription SVN Swagger Syntax TabbedBar TabbedView Tablet TabPage Target TE Control Testing Text TFS Theme TIME Timer TLS/SSL Tomcat TortoiseGit TortoiseSVN Transaction Transparency Trial Trigger TRY-CATCH TX Control Type UI ULONG UltraLite Uninstall Unit Test Unit Testing UNIX OS Update Upgrade Upload URL User Center User Object UWP Validation VARCHAR Variable Versioning Visual Studio Visual Studio Code VM Voice Warning WCF Web API Web Extensions Web Service WebBrowser WebForms WebLogic WebSphere WildFly WinAPI Window Windows OS WinForms Wizard Workgroup Workspace WPF XCODE XHTML XML Zoom
✖

Helpful?

If a reply or comment is helpful for you, please don’t hesitate to click the Helpful button. This action is further confirmation of their invaluable contribution to the Appeon Community.