|
|
ขอ Source Code VB เขียนใช้งาน PowerShell หน่อยครับ |
|
|
|
|
|
|
|
เขียน powershell script ไว้ใน filename.ps1
แล้วเขียน vbscript เรียกใช้ filename.ps1
Code (VBScript)
Dim obj
Set obj = CreateObject("WScript.Shell")
obj.CurrentDirectory = "C:\executepath"
obj.Run "powershell.exe -noexit filepath.ps1", 0, false
Set obj = Nothing
|
|
|
|
|
Date :
2023-11-22 13:59:20 |
By :
Chaidhanan |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
ทดสอบก่อน script มีปํญหาหรือเปล่า
เปิด powershell
พิมพ์ filename.ps1 ดู error
obj.Run "powershell.exe -noexit filepath.ps1", 0, false
แก้เป็น
obj.Run "powershell.exe -noexit filepath.ps1", 1, false
0 คือ headless ไม่แสดง
1 คือ normal แสดง
powershell อาจจะต่าง version
|
|
|
|
|
Date :
2023-11-23 18:09:34 |
By :
Chaidhanan |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Load balance : Server 00
|