That script should work fine...
However try this one, using WinNT.
Code:

Function CreateShare($folder,$sharename)
  Dim $objServerService, $objFileShare
  $objServerService = GetObject("WinNT://" + @WKSTA + "/lanmanServer")
  $objFileShare = $objServerService.Create("fileshare", $sharename)
  $objFileShare.Path = $folder
  $objFileShare.MaxUserCount = -1
  $objFileShare.SetInfo
  ? @ERROR
EndFunction

Edited by apronk (2006-10-03 01:01 PM)