在PowerScript中使用WSH

最新推荐文章于 2020-08-28 15:41:19 发布

原创最新推荐文章于 2020-08-28 15:41:19 发布 · 960 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#integer #scripting #string #domain #windows #shell

PowerBuilder 专栏收录该内容

21 篇文章

订阅专栏

本文介绍如何通过PowerBuilder(PB)调用Windows Script Host(WSH)的脚本功能，实现获取网络信息及调用系统应用。示例代码展示了连接WSH对象，并利用其网络功能获取计算机名、用户域等信息，以及使用shell功能打开记事本。

WSH(Windows Scripting Host)作為一種簡單的動態腳本作業方式,為一些簡單的問題處理提供了很好的支持,其能實現的很多功能
在PB中都沒有,那我們是否可以通過PB來使用這些WSH的腳本呢?經過測試是可行的.
如下腳本即可使用WSH的網絡功能.
integer li_rc
OleObject ole_wsh
ole_wsh = CREATE OleObject
li_rc = ole_wsh.ConnectToNewObject ( "WScript.Network" )
IF li_rc = 0 THEN
MessageBox ("Domain", string( ole_wsh.UserDomain ))
MessageBox ("User", string( ole_wsh.UserName ))
MessageBox ("Computer", string( ole_wsh.ComputerName ))
END IF

如下腳本即可使用WSH的shell功能.
integer li_rcOleObject ole_wshole_wsh = CREATE OleObjectli_rc =
ole_wsh.ConnectToNewObject ( "WScript.Shell" )ole_wsh.Run
("Notepad")ole_wsh.AppActivate("Untitled - Notepad")Sleep
(500)ole_wsh.SendKeys (''Hello from PB")