如何用VB对WIN2000共享的文件设置权限为只读

2000系统下API实现目录共享/删除

成都创新互联专业为企业提供仙居网站建设、仙居做网站、仙居网站设计、仙居网站制作等企业网站建设、网页设计与制作、仙居企业网站模板建站服务，十年仙居做网站经验，不只是建网站，更提供有价值的思路和整体网络服务。

ACCESS_READ

共享类型

Private Const STYPE_ALL As Long = -1

Private Const STYPE_DISKTREE As Long = 0

Private Const STYPE_PRINTQ As Long = 1

Private Const STYPE_DEVICE As Long = 2

Private Const STYPE_IPC As Long = 3

Private Const STYPE_SPECIAL As Long = H80000000

'共享权限

Private Const ACCESS_READ As Long = H1

Private Const ACCESS_WRITE As Long = H2

Private Const ACCESS_CREATE As Long = H4

Private Const ACCESS_EXEC As Long = H8

Private Const ACCESS_DELETE As Long = H10

Private Const ACCESS_ATRIB As Long = H20

Private Const ACCESS_PERM As Long = H40

Private Const ACCESS_ALL As Long = ACCESS_READ Or _

ACCESS_WRITE Or _

ACCESS_CREATE Or _

ACCESS_EXEC Or _

ACCESS_DELETE Or _

ACCESS_ATRIB Or _

ACCESS_PERM

'共享信息

Private Type SHARE_INFO_2

shi2_netname As Long '共享名

shi2_type As Long '类型

shi2_remark As Long '备注

shi2_permissions As Long '权限

shi2_max_uses As Long '最大用户

shi2_current_uses As Long '

shi2_path As Long '路径

shi2_passwd As Long '密码

End Type

'设置共享

Private Declare Function NetShareAdd Lib "netapi32" _

(ByVal ServerName As Long, _

ByVal level As Long, _

buf As Any, _

parmerr As Long) As Long

'删除共享

Private Declare Function NetShareDel Lib "netapi32.dll" _

(ByVal ServerName As Long, _

ByVal ShareName As Long, _

ByVal dword As Long) As Long

'设置共享

Private Sub Command1_Click()

Dim success As Long

success = ShareAdd("\\XP","C:\","DOWNLOAD","资源目录","")

End Sub

'删除共享

Private Sub Command2_Click()

Dim success As Long

success = DelShare("\\XP","DOWNLOAD")

End Sub

'设置共享(返回0 为成功)

'参数:

'sServer 计算机名

'sSharePath 要共享路径

'sShareName 显示的共享名

'sShareRemark 备注

'sSharePw 密码

Private Function ShareAdd(sServer As String, _

sSharePath As String, _

sShareName As String, _

sShareRemark As String, _

sSharePw As String) As Long

Dim lngServer As Long

Dim lngNetname As Long

Dim lngPath As Long

Dim lngRemark As Long

Dim lngPw As Long

Dim parmerr As Long

Dim si2 As SHARE_INFO_2

lngServer = StrPtr(sServer) '转成地址

lngNetname = StrPtr(sShareName)

lngPath = StrPtr(sSharePath)

'如果有备注信息

If Len(sShareRemark) 0 Then

lngRemark = StrPtr(sShareRemark)

End If

'如果有密码

If Len(sSharePw) 0 Then

lngPw = StrPtr(sSharePw)

End If

'初始化共享信息

With si2

.shi2_netname = lngNetname

.shi2_path = lngPath

.shi2_remark = lngRemark

.shi2_type = STYPE_DISKTREE

.shi2_permissions = ACCESS_ALL

.shi2_max_uses = -1

.shi2_passwd = lngPw

End With

'设置共享(用户名,共享类型,共享信息,)

ShareAdd = NetShareAdd(lngServer, _

2, _

si2, _

parmerr)

End Function

'删除共享(返回0 表示成功)

'参数:

'sServer 计算机名

'sShareName 共享名

Private Function DelShare(sServer As String, _

sShareName As String) As Long

Dim lngServer As Long '计算机名

Dim lngNetname As Long '共享名

lngServer = StrPtr(sServer) '转成地址

lngNetname = StrPtr(sShareName)

'删除共享

DelShare = NetShareDel(lngServer, lngNetname, 0)

End Function

如何使用netshare?

调用

net

share命令即可

在vb中

可用

shell

语句

，如

shell

"net

share

XXXXXX"

NET

SHARE

sharename

sharename=drive:path

[/USERS:number

|

/UNLIMITED]

[/REMARK:"text"]

[/CACHE:Manual

|

Documents|

Programs

|

None

]

sharename

[/USERS:number

|

/UNLIMITED]

[/REMARK:"text"]

[/CACHE:Manual

|

Documents

|

Programs

|

None]

{sharename

|

devicename

|

drive:path}

/DELETE

NET

SHARE

使网络用户可以使用某一服务器上的资源。

当不带选项使用本命令

时，它会列出该计算机上正在被共享的所有资源。对于每一种资源，Windows

都

会报告其设备名或路径名，以及与之相关的描述性注释。

sharename

指共享资源的网络名。输入

NET

SHARE

和一个共享名只会

显示那个共享的有关信息。

drive:path

指定将被共享的目录的绝对路径。

/USERS:number

设置可以同时访问共享资源的最大用户数。

/UNLIMITED

指定用户可以同时访问共享资源的不受限制的数目。

/REMARK:"text"

添加一个有关资源的描述性注释，应将文本包含在引号中。

devicename

指一个或多个被共享名所共享的打印机

(LPT1:

至

LPT9:)。

/DELETE

终止资源的共享。

/CACHE:Automatic

启用脱机客户缓存和自动重新集成

/CACHE:Manual

启用脱机客户缓存和手动重新集成

/CACHE:No

告诉客户脱机缓存不合适

NET

HELP

command

|

MORE

用于逐屏显示帮助。

瓢虫病毒的病毒介绍

12月18日，金山毒霸全球反病毒监测中心发布圣诞期间紧急病毒预警，行为极度恶劣的“瓢虫”病毒新变种（Win32.Troj.Downloader.vb.237568）预计在圣诞节前后大面积发作，感染电脑内将爬满“瓢虫”，广大用户需高度警惕。

金山毒霸反病毒专家戴光剑表示，“瓢虫病毒集熊猫烧香、AV终结者等年内重大病毒破坏性于一身，虽然目前病毒本身还有些缺陷，但随着新变种的不断出现，其破坏程度不容小觑。”

据了解，“瓢虫”病毒与熊猫烧香类似，感染性极强，用户电脑一旦感染该病毒，除系统盘，被感染后的exe文件图标将变成绿色的“小瓢虫”；同时，用户电脑内的浏览器、任务管理器、文件夹选项、系统时间等项目都将遭受破坏。戴光剑指出，这是一个感染性极强的病毒，病毒运行后，用户电脑将表现出五大“中毒”症状：

1、电脑运行速度立刻变慢，杀毒软件无法正常使用；

2 、 系统时间被修改为2030年，使依赖系统时间的软件全部失效；

3、浏览器首页被篡改。当用户打开浏览器，会发现首页被修改为一个伪装的“百度”，由于该网址同样具有正常的搜索功能，所以极具容易迷惑性；

4、“任务管理器”和“文件夹选项”遭屏蔽。如果用户想使用“任务管理器”和“文件夹选项”来查看是谁在系统中捣鬼，会发现这两个功能都被病毒屏蔽掉；而当用户试图打开注册表时，会弹出一个对话框，提示“注册表编辑已被管理员停用”；再仔细检查，会发现连System32文件夹都不见了，病毒已经把自己隐藏得非常深；

5、硬盘、软驱、光驱自动共享。用户打开“我的电脑”时，可发现机器的硬盘以及软驱、光驱全部已经自动设置成共享状态，并且这种共享还被病毒锁死，无法改回正确的设置。这样，只要有谁愿意，都可以一览无遗地浏览用户电脑中的资料。

金山毒霸反病毒工程师分析指出，病毒潜入用户电脑系统后，会在系统盘中释放出6个病毒文件，分别为%windows%\system32\目录下的AUTORUN.INF、netshare.cmd、Avpser.cmd、Taskeep.vbs、SDGames.exe，以及%windows%下的system.ini。除此而外，病毒还在全部磁盘的根目录下生成AUTORUN.INF、Recycleds.url、SDGames.exe、Windows.url、新建文件夹.url等文件。

根据瓢虫病毒的传播特点，金山毒霸反病毒应急中心及时进行了病毒库更新，升级毒霸到2007年12月18的病毒库即可查杀以上病毒；如未安装金山毒霸，可以免费下载最新版金山毒霸2008或使用金山毒霸在线杀毒来防止病毒入侵。拨打金山毒霸反病毒急救电话010—82331816，反病毒专家将为您提供帮助。

年终岁末是病毒的高发期，金山毒霸反病毒工程师建议广大用户：1、最好安装专业的杀毒软件进行全面监控，防范日益增多的病毒。用户在安装反病毒软件之后，应将一些主要监控经常打开（如邮件监控、内存监控等）、经常进行升级、遇到问题要上报，这样才能真正保障计算机的安全。2、由于玩网络游戏、利用QQ聊天的用户数量逐渐增加，所以各类盗号木马必将随之增多，建议用户一定要养成良好的网络使用习惯，及时升级杀毒软件，开启防火墙以及实时监控等功能，切断病毒传播的途径，不给病毒以可乘之机。

分享名称：包含vb.netshare的词条
文章出自：http://cqwzjz.cn/article/dohiipd.html