Below is a sample code to read permissions from a share folder named “Share$” from a computer called “ABC-D-1234″.
=====================================================
Dim strComputer
Dim strShareName

strComputer = “ABC-D-1234″
strShareName = “Share$”
ViewSharePermission strComputer, strShareName

Sub ViewSharePermission(vComputer, vShareName)
    Dim objWMIService  
    Dim objFolderSecSetting
    Dim objSecDescriptor
    Dim intRetVal
    Dim arrDACL
    Dim objACE
    Dim objTrustee
 
    On Error Resume Next

    ‘// Get Security Descriptor  
    Set objWMIService = GetObject(“winmgmts:\\” & vComputer & “\root\cimv2″)
    If Err <> 0 Then
        Wscript.Echo “Connect to ” & vComputer & ” failed.”
        Err.Clear
        Exit Sub
    End If

    Set objFolderSecSetting = objWMIService.Get(”Win32_LogicalShareSecuritySetting.Name=’” & vShareName & “‘”)
    intRetVal = objFolderSecSetting.GetSecurityDescriptor(objSecDescriptor)

    If IsNull(objSecDescriptor.DACL) Then
        ‘// Note: A NULL DACL gives full access to everyone, which is a serious security risk
        CreateReport “Share Permission,” & vShareName & “,” & “Everyone” & “,” & “Full Control”
    Else
        arrDACL = objSecDescriptor.DACL ‘// Get DACL (an array of Win32_ACE objects)
        For Each objACE In arrDACL
     Set objTrustee = objACE.Trustee
            Wscript.Echo objTrustee.Name & “: ” & GetShareAccessMaskStr(objACE.AccessMask)
        Next 
    End If

    Set objFolderSecSetting = Nothing
    Set objWMIService = Nothing
End Sub

Function GetShareAccessMaskStr(vAccessMaskVal)
    Dim strTemp

    Select Case vAccessMaskVal
        Case 2032127:  strTemp = “Full Control”
        Case 1245631:  strTemp = “Change”
        Case 1179817:  strTemp = “Read”   
        Case Else: strTemp = “Access Mask ” & vAccessMaskVal
    End Select 
    GetShareAccessMaskStr = strTemp
End Function

Below is the example of source code to restart a ”SMS Agent Host” service from a computer called “ABC-D-1234″ 
===================================================== 
Dim strComputer
Dim strServiceName 

strComputer = ”ABC-D-1234″
strServiceName =  ”CcmExec”

 ’// Stop Service  
StartWin32Service strComputer, strServiceName, False

 ’// Pause to allow service to stop  
Wscript.Sleep 5000

 ’// Start Service  
StartWin32Service strComputer, strServiceName, True

Sub StartWin32Service(vComputer, vServiceName, bStart)
    Dim strWQL
    Dim objWMIService
    Dim colWinServiceSet
    Dim objWinService
    Dim intRetVal

    On Error Resume Next
 
    Set objWMIService = GetObject(“winmgmts:\\” & vComputer & “\root\cimv2″)
    If Err <> 0 Then
        Wscript.Echo “Connect to ” & vComputer & ” failed.”
        Err.Clear
        Exit Sub
    End If

    strWQL = “SELECT * FROM Win32_Service”
    strWQL = strWQL & ” WHERE Name = ‘” & vServiceName & “‘”
    Set colWinServiceSet = objWMIService.ExecQuery(strWQL)

    If colWinServiceSet.Count > 0 Then

        For Each objWinService in colWinServiceSet

            If bStart = True Then  ‘// Start Service 
           
                If objWinService.Started = False Then ‘// If Service is in Stop status
                    intRetVal = objWinService.StartService
                    If intRetVal = 0 Then 
                        Wscript.Echo “Start ” & vServiceName  & ” successful.”
                    Else
                        Wscript.Echo “Start ” & vServiceName & ” failed.”   
                    End If
                Else ‘// If Service is in Start status
                    Wscript.Echo vServiceName & ” already started.”
                End If

            Else  ‘// Stop Service
          
                If objWinService.Started = True Then ‘// If Service is in Start status
                    intRetVal = objWinService.StopService
                    If intRetVal = 0 Then
                         Wscript.Echo “Stop ” & vServiceName & “ successful.”
                    Else
                         Wscript.Echo “Stop ” & vServiceName & ” failed.”
                    End If
                Else ‘// If Service is in Stop status
                     Wscript.Echo vServiceName & ” already stopped.”
                End If

            End If

        Next

    Else

         Wscript.Echo vServiceName & ” not found.”

    End If

    Set objWMIService = Nothing
End Sub
=====================================================
To use it, copy the script to a notepad and name it as <name>.vbs. Then, run it from the command prompt using this command: cscript <name>.vbs.

Sub KillWin32Process(vComputer, vProcessName)
    Dim objWMIService
    Dim strWQL
    Dim colProcessSet
    Dim objProcess
   
    On Error Resume Next

    Set objWMIService = GetObject(“winmgmts:\\” & vComputer & “\root\cimv2″)
    If Err <> 0 Then
        Wscript.Echo “Connect to ” & vComputer & ” failed.”
        Err.Clear
        Exit Sub
    End If

    strWQL = “SELECT * FROM Win32_Process”
    strWQL = strWQL & ” WHERE Name=’” & vProcessName & “‘”
    Set colProcessSet = objWMIService.ExecQuery(strWQL)

    If ColProcessSet.Count > 0 Then
        For Each objProcess In colProcessSet
            objProcess.Terminate() ‘Kill Process
            If Err = 0 Then
                Wscript.Echo “Kill ” & vProcessName & ” successful.”
            Else
                Wscript.Echo “Kill ” & vProcessName & ” failed.”
                Err.Clear
            End IF
        Next
    Else
        Wscript.Echo vProcessName & “ not found.”
    End If
 
    Set colProcessSet = Nothing
    Set objWMIService = Nothing
End Sub
===================================================== 
To use it, copy the script to a notepad and name it as <name>.vbs. Then, run it from the command prompt using this command: cscript <name>.vbs.

 With WMI Scripting, you can acheive that….
==================================================    

ListEventLog “ABC-S-1234″, “Application”, “Error”

Sub ListEventLog(vComputer, vLogFile, vEventType)
    Dim objWMIService
    Dim strWQL
    Dim colEventSet
    Dim objEvent

    vComputer = “.”
    Set objWMIService = GetObject(“winmgmts:\\” & vComputer & “\root\cimv2″)
    If Err <> 0 Then
        Wscript.Echo “Connect to ” & vComputer & ” failed.”
        Err.Clear
        Exit Sub
    End If

    strWQL = “SELECT * FROM Win32_NTLogEvent”
    strWQL = strWQL & ” WHERE Logfile = ‘” & vLogFile & “‘”
    Set colEventSet = objWMIService.ExecQuery(strWQL)   

    If colEventSet.Count > 0 Then
        For Each objEvent in colEventSet
            If UCase(objEvent.Type) = UCase(vEventType) Then
                WScript.Echo “Event Type: ” & objEvent.Type
                WScript.Echo “Time Written: ” & objEvent.TimeWritten
                WScript.Echo “Source Name: ” & objEvent.SourceName
                WScript.Echo “Category: ” & objEvent.Category
                WScript.Echo “Event Code: ” & objEvent.EventCode
                WScript.Echo “User: ” & objEvent.User   
                WScript.Echo “Computer Name: ” & objEvent.ComputerName
                WScript.Echo “Message: ” & objEvent.Message
            End If
        Next
    End If
End Sub
==================================================   
To use it, copy the script to a notepad and name it as <name>.vbs. Then, run it from the command prompt using this command: cscript <name>.vbs.