Assuming you have a list of computer names, this might do the trick, but I haven't tested it and there's no error checking...

Code:

$folder = '\d$\production'

$ = open(1,'c:\comps.txt')

$curComp = readline(1)

while @error = 0

   if not exist('\\' + $curComp + $folder)

      md '\\' + $curComp + $folder

   endif

   $shares = getobject('WinNT://' + $curComp + '/lanmanserver')

   $new = $shares.create('fileshare','Production')

   $new.Path = 'd:\production'

   $new.SetInfo()

   $shares = 0

   $curComp = readline(1)

loop



$ = close(1)


How To Manipulate File Shares with ADSI (VB Sample)
_________________________
Eric