Brug ADSI
Du skal instalere ADSI 2.5 på din maskine før det virker, den kan hentes fra
MS
Creating a Share Programmatically Using a VBScript Active Server Page
Dim Container
Dim FileShare
Dim ComputerName
Dim ComputerDomain
Dim ShareName
Dim NewFileSharePath
Dim NewFileShareDescription
ComputerDomain = "Target_Computer_Domain"
ComputerName = "Target_Computer_Name"
ShareName = "Target_Share_Name"
NewFileSharePath = "Path_To_Share"
NewFileShareDescription = "File_Share_Comment"
Set Container = GetObject("WinNT://" & ComputerDomain & "/" & ComputerName &
"/LanmanServer")
Set FileShare = Container.Create("fileshare", ShareName)
FileShare.Path = NewFileSharePath
FileShare.Description = NewFileShareDescription
FileShare.MaxUserCount = -1
FileShare.SetInfo
"Tim Sørensen" <dondata@vip.cybercity.dk> skrev i en meddelelse
news:9anv3h$353$1@news.cybercity.dk...
> Nogle der ved hvordan jeg kan Share en mappe på et NTFS drev under NT 4?
>
> --
> Mvh.... Tim Sørensen
>
http://dondata.adsl.dk/
>
>