class= " lineNumbers " de
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= de
id= " codeSnippet957174 " class= " de ' **** de manuscrit d'ouverture de ****
Sur le résumé d'erreur après
sTITLE = « Grunnskóli Grundarfjarðar »
Faible réseau
Placer le réseau = le CreateObject (« WScript.Network »)
Placer MSIE = CreateObject (« InternetExplorer.Application »)
Commande = « U : »
Part = « \ \ pottur.gg.ic \ » et Network.UserName et « $ »
SetupMSIE
MSIE.Document.Write « » et sTITLE et _
« bgcolor=#FFFFFF><FONT FACE=Thaoma><CENTER>Halló</CENTER><BR><BR> de Tengist de MSIE.Document.Write « .
»
'Manuscrit bienvenu de **** pour le **** d'utilisateurs
Si heure (maintenant) < 12 puis
MSIE.Document.Write « daginn de Góðan » et _
Network.Username et «
»
Heure d'ElseIf (maintenant) < 18 puis
MSIE.Document.Write « daginn de Góðan » et _
Network.Username et «
»
Autrement
MSIE.Document.Write « kvöld de gouvernement de Trinité-et-Tabago » et _
Network.Username et «
»
Finir si
Wscript.Sleep 500
'******************** Vérifiant le raccordement au *********************** à la maison d'entraînement
MSIE.Document.Write « Tengi » et commande et « við » et _
Part et « …
»
Commande de Network.MapNetworkDrive, part
Wscript.Sleep 1000
Si Err.Number = 0 puis
MSIE.Document.Write « Tenging heppnaðist
»
Autrement
MSIE.Document.Write « mistókst Tenging, eða þegar jusqu'au staðar » et commande et « við » et _
Part et «
»
Finir si
Wscript.Sleep 500
'*************************** Se reliant d'entraînements de réseau de **************
Drifin de sameiginlegu de
Tengi de MSIE.Document.Write « …. »
Wscript.Sleep 500
Placer 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ð de síðasta de
Tengi de MSIE.Document.Write « …. »
WshNetwork.MapNetworkDrive « X : », « \ \ big-220.gg.ic \ GRAND »
'************************************* D'installation d'imprimeur de *******************
'MSIE.Document.Write « prentara de
Tengi - Uppi-litur »
'PrinterPath1 = « \ \ pottur.gg.ic \ Uppi-litur »
'WshNetwork.AddWindowsPrinterConnection PrinterPath1
MSIE.Document.Write « prentara de
Tengi - Ritari-svartur »
PrinterPath2 = « \ \ pottur.gg.ic \ Ritari-svartur »
WshNetwork.AddWindowsPrinterConnection PrinterPath2
MSIE.Document.Write « prentara de
Tengi - Ritari-litur »
CETTE LIGNE EST LA DERNIÈRE LIGNE WINDOWS7 PEUT VOIR
PrinterPath3 = « \ \ pottur.gg.ic \ Ritari-litur »
WshNetwork.AddWindowsPrinterConnection PrinterPath3
MSIE.Document.Write « prentara de
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 de défaut de
Set… »
WshNetwork.SetDefaultPrinter (« \ \ pottur.gg.ic \ Ritari-svartur »)
'********************** D'Internet Explorer de í de byrtist de Texti les PSEM de *******************
'Wscript.Sleep 500
'MSIE.Document.Write « virusprotection de tendance de
Upgrading ...... »
'WshShell.Run « \ \ tendance \ ofcscan \ autopcc.exe »
MSIE.Quit
'Upp Internet Explorer de setur d'Undirforrit les PSEM de ********************. **************
SetupMSIE secondaire
MSIE.Navigate " http://mbl.is "
MSIE.ToolBar = faux
MSIE.StatusBar = faux
MSIE.Resizable = faux
Faire
Faire une boucle tandis que 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 = rectifient
Sous-marin d'extrémité
|
