[megaloman]

azisis,

Код:

@Echo Off
cls

Set "ShareDisk=D$"
Set "OutFold=Work"

FOR /F %%s IN ('Net view') DO Call :Out %%s
GoTo :Eof

:Out
	Set "CompName=%1"
	If %CompName:~0,2%== \\ If Exist "%CompName%\%ShareDisk%\" (
		If Not Exist "%CompName%\%ShareDisk%\%OutFold%\" Md "%CompName%\%ShareDisk%\%OutFold%"  
	)	
GoTo :Eof

Полезная статья по net view. Возможно в net view полезно указать имя домена