:
- ;
- ;
- .
:
\\_\_[\_\...\_]
, Server1 Epson, : \\Server1\Epson.
Programs, \\Server1\Programs, , , : \\Server1\Programs\Corel\Coreldrv.exe
, Global, :
\\Global\_
WshNetwork
WshNetwork , - .
WshNetwork , , .
.
Set WshNetwork = CreateObject("WScript.Network")
, : , .
WshNetwork:
ComputerName | |
UserDamain | |
UserName |
Windows Script Host , , .
WshNetwork EnumNetworkDrives EnumNetworkPrinterConnections, , . : , , . .
EnumNetworkDrives - .
:
objDrives = object.EnumNetworkDrive
object - WshNetwork
objDrives - ,
Dim WshNetwork, Drives
Set WshNetwork = WScript.CreateObject("WScript.Network")
Set Drives = WshNetwork.EnumNetworkDrives
WScript.Echo " : "
For i = 0 to Drives.Count - 1 Step 2
WScript.Echo " " & Drives.Item(i) & " = " & Drives.Item(i+1)
Next
MapNetworkDrive - .
|
|
:
WshNetwork.MapNetworkDrive strLocalName, strRemoteName, [bUpdateProfile], [strUser], [strPassword]
strLocalName -
strRemoteName -
:
bUpdateProfile - .
strUser, strPassword - .
' WshNetwork:
Set WshNetwork = CreateObject("WScript.Network")
' Server\PublicFiles Z: WshNetwork.MapNetworkDrive "Z:", "\\Server\PublicFiles"
RemoveNetworkDrive -
:
WshNetwork.RemoveNetworkDrive strName, [bForce], [bUpdateProfile]
:
strName -
:
bForce - . true, , .
bUpdateProfile - , , .
VBScript:
' WshNetwork:
Set WshNetwork = WScript.CreateObject("WScript.Network")
' Z:
WshNetwork.MapNetworkDrive "Z:", "\\Server\PublicFiles"
' Z:
WshNetwork.RemoveNetworkDrive "Z:"
. , , . , . , , Z:, , ( ).
VBScript On Error Resume Next. - , .
Err. VBScript, run-time errors ( ). Source . Clear , . Source Clear , , , Number Description. Number , Description .
On Error Goto 0.
:
' WshNetwork
Set WshNetwork = WScript.CreateObject("WScript.Network")
' WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")
'
On Error Resume Next
'
WshNetwork.RemoveNetworkDrive "Z:"
If Err.Number<>0 Then
Info=" " & Drive & vbCrLf & _
" : " & err.number & vbCrLf &+ _
": " & err.description
WshShell.Popup Info,0," ",vbCritical
|
|
Else
'
Info=" " & Drive & " "
WshShell.Popup Info,0," ",vbInformation
End If
, WSH .
EnumPrinterConnections
:
objPrinters = object.EnumPrinterConnections
object - WshNetwork
objPrinters -
AddPrinterConnection .
WshNetworkt.AddPrinterConnection strLocalName, strRemoteName [,bUpdateProfile [,strUser][,strPassword]
strLocalName
strRemoteName -
:
bUpdateProfile - (true false), .
strUser, strPassword - .
Set WshNetwork = CreateObject("WScript.Network")
WshNetwork.AddPrinterConnection "LPT1", Server\\LaserJet1
RemovePrinterConnection .
:
WshNetwork.RemovePrinterConnection strName, [bForce], [bUpdateProfile]
:
strName -
:
bForce - . true, , , .
bUpdateProfile - , , .
Set WshNetwork = CreateObject("WScript.Network")
WshNetwork.RemovePrinterConnection "LPT1:"
, Windows Scripting Host .
AddWindowsPrinterConnections Windows.
:
WshNetwork.AddWindowsPrinterConnection(strPrinterPath)
strPrinterPath -
Set WshNetwork = CreateObject("WScript.Network")
PrinterPath= "\\printserv\DefaultPrinter"
WshNework.AddWindowsPrinterConnection(PrinterPath)
SetDefaultPrinter
:
object.SetDefaultPrinter strPrinterName
object - WshNetwork
strPrinterName -
Set WshNetwork = WScript.CreateObject("WScript.Network")
WshNetwork
WshNetwork.AddPrinterConnection "LPT1:", \\Server\\Prnt1
WshNetwork.SetDefaultPrinter "LPT1:"
3.1. , . , : WScript.Echo " "
3.2. (vbs).
3.3. .
3.4. , . . , , . OK. wsh.
3.5. , , .vbs .wsh.
3.6. .wsh . :
[ScriptFile]
Path=C:\ \1.VBS
[Options]
Timeout=10
DisplayLogo=1
Path [ScriptFile] , wsh-. [Options] , , .
|
|
Timeout .
DisplayLogo Windows Script Host, . 0, .
BatchMode / . 1, .
3.7. 2 .
3.8. .
, :
- (. ).
, Windows | |
, | |
, Windows | |
, | |
, | |
, | |
, | |
, | |
, | |
, |
- ( ) (. ).
, | ||
( ) | ||
- , . WshShell.SpecialFolders.
- - , , (. ). , , . \Temp, %Temp%.
- Web-, .
- , ( .).
- .
- . , , .
- . , . ( ).
|
|