From dd1b16ea9180aff1385245ce3fe6750177785e9a Mon Sep 17 00:00:00 2001
From: ElektroStudios <ElektroStudios@ElHacker.Net>
Date: Sun, 9 Aug 2015 03:00:55 +0200
Subject: [PATCH] Create TemplateNonStaticMethodInvokerVBNet.vb
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

VBNet Non-Static Method Invoker Template (The equivalent of the C# template sample. A console app with the default entry point method "Main")

Note(s):
· All member names follows strict name conventions to help the compiler recognize the members, please, don't change their string-case.
· conn object is initialized as Nothing to avoid a compiler warning about its usage before being initialized, it shouldn't be changed.
---
 .../TemplateNonStaticMethodInvokerVBNet.vb    | 49 +++++++++++++++++++
 1 file changed, 49 insertions(+)
 create mode 100644 Templates/TemplateNonStaticMethodInvokerVBNet.vb

diff --git a/Templates/TemplateNonStaticMethodInvokerVBNet.vb b/Templates/TemplateNonStaticMethodInvokerVBNet.vb
new file mode 100644
index 0000000..8661d9e
--- /dev/null
+++ b/Templates/TemplateNonStaticMethodInvokerVBNet.vb
@@ -0,0 +1,49 @@
+Imports System.Management
+
+Module Module1
+
+[WMIMETHODDESC]        
+    Sub Main()
+
+        Dim computerName As String = "localhost"
+        Dim conn As ConnectionOptions = Nothing
+        Dim scope As ManagementScope
+        Dim options As ObjectGetOptions
+        Dim path As ManagementPath
+        Dim classInstance As ManagementObject
+        Dim inParams As ManagementBaseObject
+        Dim outParams As ManagementBaseObject
+
+        If Not computerName.Equals("localhost", StringComparison.OrdinalIgnoreCase) Then
+            conn = New ConnectionOptions With
+                {
+                    .Username = "",
+                    .Password = "",
+                    .Authority = "ntlmdomain:DOMAIN"
+                }
+        End If
+
+        Try
+            scope = New ManagementScope(String.Format("\\{0}\[WMINAMESPACE]", computerName), options:=If(conn IsNot Nothing, conn, Nothing))
+            scope.Connect()
+
+            options = New ObjectGetOptions()
+            path = New ManagementPath("[WMIPATH]")
+            classInstance = New ManagementObject(scope, path, options)
+            inParams = classInstance.GetMethodParameters("[WMIMETHOD]")
+
+[VBNETCODEINPARAMS]  
+            outParams = classInstance.InvokeMethod("[WMIMETHOD]", inParams, options:=Nothing)
+[VBNETCODEOUTPARAMS]
+
+        Catch ex As Exception
+            Console.WriteLine(String.Format("Exception: {0} Trace: {1}", ex.Message, ex.StackTrace))
+
+        End Try
+
+        Console.WriteLine("Press Enter to exit.")
+        Console.Read()
+
+    End Sub
+
+End Module