Set arg= Wscript.Arguments
setFolderName=arg(0)
arrFolderPath = Split(setFolerName, "\")
source= ""
For i = 1 to Ubound(arrFolderPath)
	source= source & "\\" & arrFolderPath(i)
Next
str = source & "\\"
Set objDateTime = CreateObject("WbemScripting.SWbemDateTime")
Set objService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\CIMV2")
If Err.Number <> 0 Then
	WScript.Echo Err.Number & ": " & Err.Description
	WScript.Quit
End If
Set colFolders = objService.ExecQuery("SELECT * FROM  Win32_Directory WHERE FileName ='" & str & "'")
For Each objFolders in colFolders
	WScript.Echo objFolder.Name
	If objFolder.Hidden = True then
		Wscript.Echo ("Hidden")
	Else Wscript.Echo ("Visible")
End If

Next