set oFso = createObject("scripting.filesystemobject")

if wscript.arguments.count >= 1 then

	strPath = wscript.arguments(0)


	strDriveName = ofso.GetDriveName(strPath)

	set oDrive = ofso.GetDrive(strDriveName)



	Select Case oDrive.DriveType
     		Case 0: t = "Unknown"
		Case 1: t = "Removable"
		Case 2: t = "Fixed"
		Case 3: t = "Network"
		Case 4: t = "CD-ROM"
		Case 5: t = "RAM Disk"
	End Select

	strFileName = ofso.GetFileName(strPath)
	
	test = inputbox("The path is...","Path", strPath)

else

	msgbox "no args"

end if