Dim WSHNetwork
Set WSHNetwork = WScript.CreateObject( "WScript.Network" )
Function TryMapDrive(intDrive, strShare)
Dim strDrive
strDrive = Chr(intDrive + 64) & ":"
On Error Resume Next
WSHNetwork.MapNetworkDrive strDrive, strShare
TryMapDrive = Err.Number = 0
End Function
映射网络驱动器脚本
最新推荐文章于 2024-05-24 09:05:05 发布