『壹』 如何用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 掃描如何使用
安裝掃描驅動以後,打開電腦,哪裡會有掃描儀的圖標,然後打開,點擊下一步,,,,,,就可以。