View Single Post
  #1 (permalink)  
Old July 2nd, 2007, 06:53 AM
nayaz nayaz is offline
Registered User
Join Date: Jun 2007
Posts: 5
Thanks: 0
Thanked 0 Times in 0 Posts
Default issue in finding the share

Hi ,

I'm not able to find wether a particular share exists or not in a server.

I use a script.

Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate,authenticationLev el=Pkt}!\\"_
    & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_Share where Name = '"&"sharename"&"'")

    If (colItems.Count = 1) then
        Wscript.Echo "The share exists"
        Wscript.Echo "The share does not exists"
    End If

to find wether share exists or not this script works fine on all the servers except one. It gives error "Provider load failure"
I checked the "WMI controls" permissions , DCOM permissions and gave full rights. I even tried to raise the security level in the code using

Set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator")
Set objWMIService = objSWbemLocator.ConnectServer (strComputer, "root\CIMV2", username, Password)
objWMIService.Security_.impersonationlevel = 3

Still I'm not able to get the share name from the server.
Am I missing any thing? . or if any one has any suggessions please let me know.

Reply With Quote