class= " lineNumbers "
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
|
class=
id= " codeSnippet957174 " class= " ' **** сценария Logon ****
На резюме ошибки затем
sTITLE = «Grunnskóli Grundarfjarðar»
Тусклая сеть
Установите сеть = CreateObject («WScript.Network»)
Установите MSIE = CreateObject («InternetExplorer.Application»)
Привод = «u: »
Доля = «\ \ pottur.gg.ic \» & Network.UserName & «$»
SetupMSIE
MSIE.Document.Write «» & sTITLE & _
«bgcolor=#FFFFFF><FONT FACE=Thaoma><CENTER>Halló</CENTER><BR><BR> Tengist MSIE.Document.Write «.
»
'Сценарий **** радушный для **** потребителей
Если час (теперь) < 12 после этого
MSIE.Document.Write «daginn Góðan» & _
Network.Username & «
»
Час ElseIf (теперь) < 18 после этого
MSIE.Document.Write «daginn Góðan» & _
Network.Username & «
»
Еще
MSIE.Document.Write «kvöld Gott» & _
Network.Username & «
»
Закончитесь если
Wscript.Sleep 500
'******************** Проверяя соединение к домашнему *********************** привода
MSIE.Document.Write «Tengi» & привод & «við» & _
Доля & «…
»
Привод Network.MapNetworkDrive, доля
Wscript.Sleep 1000
Если Err.Number = 0 после этого
MSIE.Document.Write «Tenging heppnaðist
»
Еще
MSIE.Document.Write «Tenging mistókst, eða þegar до staðar» & привод & «við» & _
Доля & «
»
Закончитесь если
Wscript.Sleep 500
'*************************** Приводов сети ************** соединяясь
Drifin sameiginlegu
Tengi MSIE.Document.Write «….»
Wscript.Sleep 500
Установите WshNetwork = WScript.CreateObject («WScript.Network»)
MSIE.Document.Write «
Tengi Almenning….»
WshNetwork.MapNetworkDrive «n: », «\ \ pottur.gg.ic \ Almenningur»
MSIE.Document.Write «
Tengi Skrifstofu….»
WshNetwork.MapNetworkDrive «k: », «\ \ pottur.gg.ic \ Skrifstofa$»
MSIE.Document.Write «
Tengi Skila….»
WshNetwork.MapNetworkDrive «v: », «\ \ pottur.gg.ic \ skila»
MSIE.Document.Write «
Tengi….»
MSIE.Document.Write «
Tengi Sérkennsluþjón….»
WshNetwork.MapNetworkDrive «j: », «\ \ pottur.gg.ic \ serkennslutjonn»
'WshNetwork.MapNetworkDrive «w: », «\ \ pottur.gg.ic \ vefur-skoli$»
Drifið síðasta
Tengi MSIE.Document.Write «….»
WshNetwork.MapNetworkDrive «x: », «\ \ big-220.gg.ic \ БОЛЬШОЙ»
'************************************* Установки принтера *******************
'MSIE.Document.Write «prentara
Tengi - Uppi-litur»
'PrinterPath1 = «\ \ pottur.gg.ic \ Uppi-litur»
'WshNetwork.AddWindowsPrinterConnection PrinterPath1
MSIE.Document.Write «prentara
Tengi - Ritari-svartur»
PrinterPath2 = «\ \ pottur.gg.ic \ Ritari-svartur»
WshNetwork.AddWindowsPrinterConnection PrinterPath2
MSIE.Document.Write «prentara
Tengi - Ritari-litur»
ЭТОЙ ЛИНИЕЙ БУДЕТ ПОСЛЕДНЯЯ ЛИНИЯ WINDOWS7 МОЖЕТ УВИДЕТЬ
PrinterPath3 = «\ \ pottur.gg.ic \ Ritari-litur»
WshNetwork.AddWindowsPrinterConnection PrinterPath3
MSIE.Document.Write «prentara
Tengi - Tölvuver-litur»
PrinterPath4 = «\ \ pottur.gg.ic \ Tolvuver-litur»
WshNetwork.AddWindowsPrinterConnection PrinterPath4
'PrinterPath5 = «\ \ pottur.gg.ic \ HP3525»
'WshNetwork.AddWindowsPrinterConnection PrinterPath5
MSIE.Document.Write «prentara невыполнения обязательства
Set…»
WshNetwork.SetDefaultPrinter («\ \ pottur.gg.ic \ Ritari-svartur»)
'********************** Исследователя интернета í byrtist Texti sem *******************
'Wscript.Sleep 500
'MSIE.Document.Write «virusprotection тенденции
Upgrading ......»
'WshShell.Run «\ \ тенденция \ ofcscan \ autopcc.exe»
MSIE.Quit
'Исследователь интернета upp setur Undirforrit sem ********************. **************
Sub SetupMSIE
MSIE.Navigate " http://mbl.is "
MSIE.ToolBar = ложно
MSIE.StatusBar = ложно
MSIE.Resizable = ложно
Сделайте
Закрепите петлеть пока MSIE.Busy
SWidth = MSIE.Document.ParentWindow.Screen.AvailWidth
SHeight = MSIE.Document.ParentWindow.Screen.AvailHeight
MSIE.Width = SWidth/2
MSIE.Height = SHeight/2
MSIE.Left = (SWidth - MSIE.Width) /2
MSIE.Top = (SHeight - MSIE.Height) /2
MSIE.Visible = True
Подводная лодка конца
|
