Microsoft, Windows 2003, SP2, WMI VB scripting, VB WMI Script, Windows 2003, WMI VB script does not detect files in a folder

Why are you using WMI for this?  It would be much easier to use the FileSystemObject:

'**************Start********
strComputer = "."

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set colFiles = objFSO.GetFolder("\POP_Out_Folder\Original\spec\").Files

If colFiles.Count >1 Then
   Context.SetResult 1, "Too many Files. Please Check "

End If
'******Finish***********

I believe the problem is because the script is actually be executed on a  remote machine not a local machine so i have to pass the name of the machine to strComputer and also pass authentication information.  The script is being launched buy a product called Whatsup Gold V11 premium. I misunderstood the context underwhich the script is launched.

Using "." as the strComputer value tells the script to access whatever computer its running on.  It makes it so you don't have to use specific names.

The script is running on the local server but then acting on a remote server so has to make connection to remote computer to get the information i am either getting permission denied or syntax errors. I seem to have to provide specific authentication information in the script it's self. As it does use the context security that it is running under.  I am not sure if it's using administrator or system.  If system it would not have cross server access. At this time the security of the script is not so much a concern but i think i have to make a connection similar to one made using wbemtest provided by microsoft.

Well I figured it out and it was authentication related I had to pass the authentication information in the script.  I am placing a example here in case someone else comes across this need. It has some of the variable passing syntax Whatsup uses for these scripts.
************Example Start*******************
strComputer = Context.GetProperty("Address")
strUser = Context.GetProperty("CredWindows:DomainAndUserid")
strPassword = Context.GetProperty("CredWindows:Password")

Set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator")
Set objWMIService = objSWbemLocator.ConnectServer(strComputer, _
    "root\CIMV2", _
    strUser, _
    strPassword)
Set colFiles = objWMIService.ExecQuery _
    ("Select * From CIM_Datafile WHERE Drive='D:' AND Path = '\\POP_Out_Folder\\Original\\spec\\'")

If colFiles.Count >1 Then
   Context.SetResult 1, "Too many Files. Please Check "

End If
***Example End******