2000ln2网络共享

‘壹’ 如何用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
请采纳答案，支持我一下。

‘贰’ LN2000分散控制系统的数据库显示被其他计算机占用是什么原因,怎么解决

估计的话也占用计算机的原因是因为他那个数据有点儿大了，然后就可以随便占用了

‘叁’ 急问如何配置PXE无盘网络

if%HWA%==00E04C42AFD9GOTOpxeb网卡号为B配置的网卡号,注意HWA

大写,其中等号为双等号

gotoend

:pxeb注意前面有冒号

setshare=pxeB

:end

将修改好的启动软盘，在服务器上重作映象。

对于使用3COMDABS软件制作的PXE无盘网络则更加方便，可以在服务器端直接打开无盘工作站的启动映象文件，进入Winboot目录，打开startnet.bat文件修改即可。

以上为两种配置工作站的修改，若有两种以上，则相应的语作些调整，例如四种配置可以改为：

lhqualcnxLNGUESTLNGUEST

call%TEMP%username.bat

if%HWA%==00E04C39414FGOTOpxeb（这是第二种配置）

if%HWA%==00E04C42AFD9GOTOpxeb（这是第二种配置）

if%HWA%==001234567890GOTOpxec（这是第三种配置）

if%HWA%==009787878788GOTOpxec（这是第三种配置）

if%HWA%==008787878333GOTOpxed（这是第四种配置）

if%HWA%==008888888888GOTOpxed（这是第四种配置）

gotoend

:pxeb

setshare=pxeb

gotoend

:pxec

setshare=pxec

gotoend

:pxed

setshare=pxed

gotoend

:end

当工作站配置较少时，可以采用以上方法解决，如果工作站的配置种类很多是则相当的烦琐，且大量浪费服务器的硬盘空间，管理也不方便。本丛书《无盘网络完全掌握-基础篇》第4章中介绍的PNP无盘技术针对多种不同工作站配置作详细介绍。

5多台PXE服务器的集群

所谓多服务器集群，指的是在一个无盘网络中有多个文件服务器分担数据流量，在PXE无盘网络中，安装多个服务器可行的，但其流量无法控制，因为多个服务器都要安装DHCP服务，所以无盘PXE工作站的启动映像的获得是随机的，这次可能从这台服务器获得，下次可能从那台服务器上获得，而且有可能大多数工作站都连接到了一个服务器上，这样根本无法实现多服务器集群。哪么读者可能会这样想，两个服务器做成两个无盘网络不就可以了吗？是的，在一般的教学网，或是不需要上因特网时，完全可以这样作，但如果只有一个条上网线路，多个PXE无盘网络要求同时上网，这时只将两个网络合在一起才能共线上网。单台服务器的带负荷能力是有限的，当工作站一多，其速度和稳定性将会受到很大的影响，使用多台服务器可以彻底解决这些问题，但也由此引发了一些新的问题，主要有：DHCP分配IP冲突、服务器流量控制、共享上网代理服务器设置等。总的原则是根据上因特网专线条数（或拔号上网的线路数）决定做成几个无盘网络，当然上因特网只是多服务器集群的一个原因，若用在办公网中要求所有工作站都能访问某一文件服务器或打印服务器时，也需作多服务器集群。

解决服务器流量控制的思路与工作站多配置第二种解决方法是一样的。我们以两个服务器为例，假设两个服务器名分别为：

PXEFS1和PXEFS2，PXEFS1的配置较高我们用它作启动服务器兼作第一文件服务器，PXEFS2作为第二文件服务器，所有工作站的启动映像均从PXEFS1获得，对其启动映像作如下处理即可实现流量自动控制：

打开PXE启动软盘WINBOOT下的STARTNET.BAT文件

找到lhqualcnxLNGUESTLNGUEST

call%TEMP%username.bat

这两条语句，在其后加入以下几行

if%HWA%==00E04C35612FGOTOF2

if%HWA%==00E04C43365GOTOF2网卡号为使用PXEFS2作为文件服务器的工作站的网卡号,注意HWA为大写,其中等号为双等号

gotoend

:F2注意前面有冒号

setshare=PXEFS2

:end

然后将修改好的启动软盘，在服务器上重作映像。

以下用一个双服务器带76台（可扩展上92台）工作站的无盘网为例，简要说明使用3COMDABS构架的双服务器无盘系统，供读者探讨。

网络拓扑结构如图31所示。

图31双服务器配置一例

说明：

一．1号服务器为启动服务器和1至36号工作站的文件服务器，其设置如下：

1．IP地址：192.168.0.2

2．子网掩码：255.255.255.0

3．DHCP范围：192.168.0.20~192.168.0.240

4．操作系统采用winnt4.0server或windows2000server，并升级为域控制器。

5．PXE软件采用3COM的DABS

6．服务器名设置为：PXEFS1

7．按照本丛书《无盘网络完全掌握-基础篇》第9章相关内容将1~36号工作站作好单网卡的3COMDABS无盘网络

8．在作有盘Windows98时设置网关和DNS都指向192.168.0.1(2号服务器的IP地址)

二．2号服务器为上网代理服务器及37至76号服务器的文件服务器，其设置如下：

1．安装winnt4.0server或windows2000server，将它作为成员服务器或独立服务器。

2．服务器名设置为：PXEFS2

3．在1号服务器中新建一个启动文件（.pxe和.img文件可以用原来的复制后得到）

4．修改启动映象文件中的setver.bat，将setsever=PXEFS1改为setsever=PXEFS2

5．将37至76号工作站的启动文件置指向刚才修改好的文件

6．将相关的共享文件（例如PXEFILES）从1号服务器复制到2号服务器相应的目录中。

7．在2号服务器上安装好上网设备，使之能正常上网，再安装代理服务器软件（例如Wingate4.3或Sygate4.1）注意一定要将这些共享上网的软件提供的DHCP服务禁用，否则无盘站将能正常启动。

11.6虚拟光驱在PXE无盘网络中的安装和使用

价廉物美的CD-ROM光驱及其光盘存储介质的广泛普及，使得以光盘为媒体的软件发行迅速取代软盘成为现实。但在使用光盘软件的过程中，网络无盘工作站往往无法方便地使用光盘软件、利用光盘塔等设施在网络中共享多张光盘软件成本高昂难以接受，市场上出现了相应的光盘管理软件，其中虚拟光驱2000以其独特的功能设计、优越的性能、方便的管理占据了光盘模拟软件的鳌头，VirtualDrive是FarStone公司的共享软件，它利用电脑模拟技术，在硬盘中产生同物理光驱功能一模一样的虚拟光驱，从而将光盘映射到硬盘中运行。本节将以FarStone公司推出的VirtualDriveNetworkV6为例说明，虚拟光驱在PXE无盘网络中应用，请读者注意虚拟光驱2000的各版本中，一般都有两个版本，一个为专业版，只能用于有盘机使用，另一个为网络版可以用于网络中，可以在服务器建立虚拟光盘库供工作站共享使用，且管理很方便，在服务器端和工作端均需安装。

虚拟光驱工具能够在硬盘或者文件服务器上建立整张光盘内容的映像文件作为虚拟光盘，同时在系统中建立虚拟光盘驱动器，由虚拟光驱模拟对虚拟光盘的各种插入、弹出、读取、自动运行等操作。虚拟光盘驱动器也是一个标准的Windows系统设备，能够在“控制面板-系统-设备管理器”中查看和设置，能够被所有的软件使用，与真正的光盘驱动器在功能与操作上完全等价。

由于驱动器盘符按照英文字母命名，除去软驱A、B和硬盘C，最多可以同时模拟从D到Z共23

‘肆’ RICOH Aficio MP 2000LN2复合打印机如何设置扫描

http://www.ricoh.com.cn/download/detail.php

请先在官网下载驱动，然后安装好扫描驱动，和打印不是一个驱动的。

然后基本上不用设置就可以用了。

直接扫描功能

‘伍’ 理光 aficio mp2000ln2 扫描如何使用

安装扫描驱动以后，打开电脑，哪里会有扫描仪的图标，然后打开，点击下一步，，，，，，就可以。