|
 |
ขอ 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 05
|
