NetShareDel Please Help

[ASAND100]

I am trying to script network share creation/deletion using VB with the above function. but am I getting very stuck.


Web

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/netmgmt/ntlmapi2_0lgs.asp

Thank you for any pointers

 

[sfriday]

To create a share

Const FILE_SHARE = 0
Const MAXIMUM_CONNECTIONS = 25
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2&quot
Set objNewShare = objWMIService.Get("Win32_Share&quot
errReturn = objNewShare.Create _
("C:\Finance", "FinanceShare", FILE_SHARE, _
MAXIMUM_CONNECTIONS, "Public share for the Finance group.&quot
Wscript.Echo errReturn


To delete a share

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2&quot
Set colShares = objWMIService.ExecQuery _
("Select * from Win32_Share Where Name = 'FinanceShare'&quot
For Each objShare in colShares
objShare.Delete
Next


Taken from technet scripting
Regards
Steve Friday