.


:




:

































 

 

 

 





 

:

- ;

- ;

- .

:

\\_\_[\_\...\_]

, 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. .

, :

  1. (. ).
  , Windows
  ,
  , Windows
  ,
  ,
  ,
  ,
  ,
  ,
  ,

 

  1. ( ) (. ).
  ,
 
 
 
 
 
  ( )
 
 
 

 

  1. , . WshShell.SpecialFolders.
  2. - , , (. ). , , . \Temp, %Temp%.
 
 
 
 
 
 
 
 
 
 

 

  1. Web-, .
  2. , ( .).
  3. .
  4. . , , .
  5. . , . ( ).

 





:


: 2016-12-04; !; : 2463 |


:

:

: , , , , .
==> ...

754 - | 693 -


© 2015-2024 lektsii.org - -

: 0.037 .