How to reboot a remote computer

strComputer = "<computername>"
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate,(Shutdown)}!\\" & _       strComputer & "\root\cimv2")

Set colOperatingSystems = objWMIService.ExecQuery _("Select * from Win32_OperatingSystem")

For Each objOperatingSystem in colOperatingSystems
    objOperatingSystem.Reboot()
Next

How to copy file using Vbscript

 Const OverwriteExisting = TRUE

Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.CopyFile "C:\Source\Filename.txt" , "D:\destination\", OverwriteExisting

How to set user password in Active Direcotyr(AD)

Set objUser = GetObject("LDAP://cn=cn,ou=ou,dc=dc,dc=com")
objUser.SetPassword "password"

How to find column name in all objects in a specific Database

SELECT * FROM INFORMATION_SCHEMA.[COLUMNS] c
WHERE c.COLUMN_NAME ='@COLUMN-NAME'

See who is connected to SQL Database

SELECT SPID,STATUS,PROGRAM_NAME,LOGINAME=RTRIM(LOGINAME),
HOSTNAME,CMD
FROM  MASTER.DBO.SYSPROCESSES
WHERE DB_NAME(DBID) = '<DATABASE NAME>' 
AND DBID != 0

How to get Local Machine Groups using WMI in VB.NET

Dim search As New ManagementObjectSearcher("SELECT * FROM Win32_Group Where LocalAccount = True")
For Each info In search.Get()
 Dim objGroup = GetObject("WinNT://./" & info("Name").ToString &  ",group")
  For Each objMember In objGroup.Members
     Dim info As ManagementObject
     Msgbox(info("Name").ToString)
     Msgbox(objMember.Name) 
  Next 
Next

How to Get List of Softwares installed on a machine

Dim search As New ManagementObjectSearcher("SELECT * FROM Win32Reg_AddRemovePrograms")
Dim info As ManagementObject 
For Each info In search.Get()  
  Msgbox(info("InstallDate"))
  Msgbox(info("DisplayName").ToString)  
  Msgbox(info("Publisher").ToString)
Next

How to start Windows Service on Remote Computer using VB.NET

Dim co As ConnectionOptions = New ConnectionOptions()
'CREDENTIALS
With co
 .Username = "username" 
 .Password = "password"
End With
Dim strComputer As String = "computername"
Dim scope As New System.Management.ManagementScope
scope=New System.Management.ManagementScope("\\" & strComputer & "\root\cimv2", co)
'CONNECT TO THE BOX
scope.Connect()
Dim query As ObjectQuery = New ObjectQuery("Select * from Win32_Service Where Name ='SERVICENAME' ")
Dim searcher As ManagementObjectSearcher = New ManagementObjectSearcher(scope, query)
Dim observer As ManagementOperationObserver = New ManagementOperationObserver()
Dim queryCollection As ManagementObjectCollection=searcher.Get()Dim m As ManagementObject
Dim args As Object
'START THE SERVICE

For Each m In queryCollection
 m.InvokeMethod("StartService", args)
Next

WMI Script to get BIOS details

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery( _
"SELECT * FROM Win32_BIOS",,48)
For Each objItem in colItems
  Msgbox "Win32_BIOS instance"
   If isNull(objItem.BIOSVersion) Then
     Msgbox "BIOSVersion: "
   Else
     Msgbox "BIOSVersion: " & Join(objItem.BIOSVersion, ",")
   End If
  Msgbox "Caption: " & objItem.Caption
  Msgbox "Description: " & objItem.Description
  Msgbox "InstallDate: " & objItem.InstallDate
  Msgbox "Manufacturer: " & objItem.Manufacturer
  Msgbox "Name: " & objItem.Name
Next

How to display Enabled Network Adapter and their IP Address in .NET using WMI

Imports System.Management

Dim search As New ManagementObjectSearcher("SELECT * FROM Win32_NetworkAdapterConfiguration Where IPEnabled=True")
Dim info As ManagementObject
Dim strIPAddress As String = Nothing
For Each info In search.Get     
If Not (info("IPAddress")) Is Nothing Then
       Dim i As Integer
       With GrdView
         .Rows.Add()
         i = GrdView.Rows.Count - 1
         Rows(i).Cells(1).Value = info("Description").ToString
       End With


'GET THE IP ADDRESS FOR SPECIFIC NETWORK ADAPTER
Dim sql As String = "SELECT * FROM Win32_NetworkAdapterConfiguration Where IPEnabled=True
And Description='" & info("Description").ToString & "'"
  Dim searchIP As New ManagementObjectSearcher(sql)
  Dim infoIP As ManagementObject
  For Each infoIP In searchIP.Get
    strIPAddress = Join(infoIP("IPAddress"), ",")
    strIPAddress = Mid(strIPAddress, 1, InStr(strIPAddress, ",") - 1)
    GrdView.Rows(i).Cells(2).Value = strIPAddress
  Next
End If
Next