1

 

 

Const   ssfCONTROLS   =   3

sConnectionName   =   "net"

sEnableVerb   =   "启用(&A)"
sDisableVerb   =   "停用(&B)"

set   shellApp   =   createobject("shell.application")
set   oControlPanel   =   shellApp.Namespace(ssfCONTROLS)

set   oNetConnections   =   nothing