如何讓分享資料夾時，share permission是空的(只適用Windows XP)

在Windows XP下，預設分享資料夾的share permission是Everyone為read 權限。可能因為某些安全性的因素，您會希望所有Client分享資料夾的時後預設的share permission清空，由使用者再去手動加權限，可以參考以下的做法。

=====================================

1.將以下的文字貼在一個notepad 裏。

strComputer = "."
Const HKEY_LOCAL_MACHINE = &H80000002

strKeyPath = "SYSTEMCurrentControlSetServiceslanmanserverDefaultSecurity"
iValues = Array(&H01,&H00,&H04,&H80,&H1c,&H00,&H00,&H00,&H38,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H14,&H00,&H00,&H00,&H02,&H00,&H08,&H00,&H00,&H00,&H00,&H00,&H01,&H05,&H00,&H00,&H00,&H00,&H00,&H05,&H15,&H00,&H00,&H00,&H6f,&Hc4,&Hd3,&H87,&Hda,&H83,&Hd9,&H4f,&H1d,&Hb9,&Haa,&Hf7,&Hf4,&H01,&H00,&H00,&H01,&H05,&H00,&H00,&H00,&H00,&H00,&H05,&H15,&H00,&H00,&H00,&H6f,&Hc4,&Hd3,&H87,&Hda,&H83,&Hd9,&H4f,&H1d,&Hb9,&Haa,&Hf7,&H01,&H02,&H00,&H00)

Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\" & strComputer & "rootdefault:StdRegProv")
BinaryValueName = "SrvsvcDefaultShareInfo"
oReg.SetBinaryValue HKEY_LOCAL_MACHINE,strKeyPath, BinaryValueName,iValues

2.將這個檔案存成.vbs的檔。

3.讓使用者執行這個VBS檔(需要有本機admin的權限) ，或是配合Group Policy在開機時執行此VBS檔。