$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)