开启系统默认共享VBS

时间：2010-04-20 来源：edgeman03

' *****************************************************************************
' TEST SCRIPT - starshare.vbs
' *****************************************************************************
' 作用: 开启默认共享
' 作者: brinkman
' 日期: 2010.4.16 10.42
' Copyright (c) sunwill
' ***************************************************************************** Dim OperationRegistry
Set OperationRegistry=WScript.CreateObject("WScript.Shell")
OperationRegistry.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\lanmanserver\parameters\AutoShareServer",00000001,"REG_DWORD"
OperationRegistry.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\lanmanserver\parameters\AutoShareWks",00000001,"REG_DWORD"

相关阅读更多 +