Const ForReading = 1
Const EVENT_WARNING = 2

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colShares = objWMIService.ExecQuery("Select * from Win32_Share")

For each objShare in colShares
strStatus = 0

strName = objShare.Name
strPath = objShare.Path

	Set objFSO = CreateObject("Scripting.FileSystemObject")
	Set objTextFile = objFSO.OpenTextFile("C:\ok_shares.txt", ForReading)

	Do While objTextFile.AtEndOfStream <> True
	  strLine = objtextFile.ReadLine

	  If strName = strLine Then
		strStatus = 1
	  Else
		
	  End If
	Loop

Dim oAPI, oBag
Set oAPI = CreateObject("MOM.ScriptAPI")
Set oBag = oAPI.CreatePropertyBag()

If strStatus = 1 then
	
Else


Set objShell = CreateObject("Wscript.Shell")
objShell.LogEvent EVENT_WARNING, _
"Share with name " & strName & " is not approved. Path is " & strPath 


End If
	
Next