Show Posts
This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
00E0FE70 00000000 |ExtStyle = 0
00E0FE74 00408014 |Class = "SysLink"
00E0FE78 0040CEFC |WindowName = "Visit the BCX Basic website <A HREF="https://www.BcxBasicCoders.com">click here</A>"
00E0FE7C 56000000 |Style = WS_CHILD|WS_CLIPSIBLINGS|WS_CLIPCHILDREN|WS_VISIBLE
00E0FE80 00000014 |X = 14 (20.)
00E0FE84 00000014 |Y = 14 (20.)
00E0FE88 00000258 |Width = 258 (600.)
00E0FE8C 00000064 |Height = 64 (100.)
00E0FE90 000803F8 |hParent = 000803F8 ('Windows SysLink Demonstration',class='Windows SysLink Demonstration')
00E0FE94 0000270F |hMenu = 0000270F
00E0FE98 00400000 |hInst = 00400000
00E0FE9C 00000000 \lParam = NULLLastErr
ERROR_CANNOT_FIND_WND_CLASS (0000057F)
' VBScript to display command line of a specific process using Win32_Process class
Option Explicit
' Specify the process name here (e.g., "notepad.exe")
Dim processName
processName = "chrome.exe"
' Create WMI object to access system information
Dim objWMIService, colProcessList, objProcess
Dim strQuery
' Set the WMI query to get processes with the specified name
strQuery = "SELECT * FROM Win32_Process WHERE Name = '" & processName & "'"
' Connect to WMI service
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
' Execute the query and get the collection of processes
Set colProcessList = objWMIService.ExecQuery(strQuery)
' Check if any processes were found
If colProcessList.Count = 0 Then
WScript.Echo "No processes found with the name: " & processName
Else
' Loop through each process and display its command line
For Each objProcess In colProcessList
WScript.Echo "Process ID: " & objProcess.ProcessID
WScript.Echo "Command Line: " & objProcess.CommandLine
WScript.Echo "-------------------------"
Next
End If
' Cleanup
Set objWMIService = Nothing
Set colProcessList = Nothing
cscript cmdline.vbs
Sql$ = "select CommandLine from win32_process where name=" + Cmd$
SET wmi = GetObject("winmgmts:")
SET result = wmi.ExecQuery(Sql$)
FOR EACH instance IN result
PRINT instance
NEXTD:\BCX\bed\test.c(1353): error #2051: Cast from 'OBJECT (aka struct _OBJECT)' to 'double' is invalid.
D:\BCX\bed\test.c(1353): error #2141: Type error in argument 2 to 'printf'; 'void' is invalid.
Sql$ = "select * from win32_process where name=" + Cmd$
SET wmi = GetObject("winmgmts:")
SET result = wmi.ExecQuery(Sql$)
FOR EACH instance IN result
PRINT instance.CommandLine
NEXT
orSql$ = "select CommandLine from win32_process where name=" + Cmd$
SET wmi = GetObject("winmgmts:")
SET result = wmi.ExecQuery(Sql$)
FOR EACH instance IN result
PRINT instance
NEXT
REM BCXSTRSIZE = 2048
DIM AS STRING BinData
DIM AS STRING MyStr, MyStr2
DIM AS DWORD binSize = BCXSTRSIZE
DIM AS DWORD MyStr2size = BCXSTRSIZE
MyStr = "This is a test."
CryptBinaryToString((CONST unsigned char*)MyStr, LEN (MyStr), _
CRYPT_STRING_BASE64, (char*)BinData, &binSize)
PRINT "String MyStr converted to base64 = ", BinData
CryptStringToBinary(BinData, 0, CRYPT_STRING_BASE64, (unsigned char *)&MyStr2, _
&MyStr2size, 0, 0)
PRINT "Base64 data BinData converted to string = ",MyStr2
String MyStr converted to base64 = VGhpcyBpcyBhIHRlc3Qu
Base64 data BinData converted to string = This is a test.