Frage : LOGON-Index VB XP gegen Win7

Wenn ich meinen LOGON-Index auf XP everithing Arbeiten fine
When ich laufen lasse, meinen LOGON-Index auf Win7 laufen lassen, das es hängt, wenn es kommt, das printers.
Both anzuschließen ist das gleiche scripts
In der Index dieses die letzte Linie ist, die Win7 durchführt: MSIE.Document.Write „
Tengi prentara - Ritari-litur "

and Fall forever. 
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:
6:
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:

 ' **** LOGON-Index **** 


Auf Störungs-Zusammenfassung zunächst


sTITLE = „Grunnskóli Grundarfjarðar“

Schwaches Netz
Netz = CreateObject („WScript.Network“) einstellen  
Einstellen MSIE = CreateObject („InternetExplorer.Application“)

Antrieb = „U: “
Anteil = „\ \ pottur.gg.ic \“ u. Network.UserName u. „$“

SetupMSIE

MSIE.Document.Write „“ u. sTITLE u. _
  „
Halló


“
MSIE.Document.Write „
Tengist nú skráarsvæði. 

“


'**** Willkommener Index für Benutzer ****


Wenn Stunde (jetzt) < 12 dann
  MSIE.Document.Write „Góðan daginn“ u. _
  Network.Username u. „

“
ElseIf Stunde (jetzt) < 18 dann
  MSIE.Document.Write „Góðan daginn“ u. _
  Network.Username u. „

“
Sonst
  MSIE.Document.Write „Gott kvöld“ u. _
  Network.Username u. „

“
Beenden wenn

Wscript.Sleep 500


'********************, das überprüft Anschluss zum Haupt-Antrieb ***********************


MSIE.Document.Write „Tengi“ u. Antrieb u. „við“ u. _
  Anteil u. „… 

“
Network.MapNetworkDrive Antrieb, Anteil
Wscript.Sleep 1000
Wenn Err.Number = 0 dann	
  MSIE.Document.Write „Tenging heppnaðist
“
Sonst  	  
  MSIE.Document.Write „Tenging mistókst, eða þegar bis staðar“ u. Antrieb u. „við“ u. _
    Anteil u. „
“
Beenden wenn

Wscript.Sleep 500

 
'************** Anschließennetzlaufwerke ***************************



MSIE.Document.Write „
Tengi sameiginlegu drifin….“
Wscript.Sleep 500

WshNetwork = WScript.CreateObject („WScript.Network“) einstellen

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$“ 
MSIE.Document.Write „
Tengi síðasta drifið….“
WshNetwork.MapNetworkDrive „X: “, „\ \ big-220.gg.ic \ GROSSES“ 



'******************* Druckerinstallation *************************************


'MSIE.Document.Write „
Tengi prentara - Uppi-litur“
'PrinterPath1 = „\ \ pottur.gg.ic \ Uppi-litur“
'WshNetwork.AddWindowsPrinterConnection PrinterPath1

MSIE.Document.Write „
Tengi prentara - Ritari-svartur“
PrinterPath2 = „\ \ pottur.gg.ic \ Ritari-svartur“
WshNetwork.AddWindowsPrinterConnection PrinterPath2

MSIE.Document.Write „
Tengi prentara - Ritari-litur“
DIESE LINIE IST DIE LETZTE LINIE WINDOWS7 KANN SEHEN
PrinterPath3 = „\ \ pottur.gg.ic \ Ritari-litur“
WshNetwork.AddWindowsPrinterConnection PrinterPath3

MSIE.Document.Write „
Tengi prentara - Tölvuver-litur“
PrinterPath4 = „\ \ pottur.gg.ic \ Tolvuver-litur“
WshNetwork.AddWindowsPrinterConnection PrinterPath4

'PrinterPath5 = „\ \ pottur.gg.ic \ HP3525“
'WshNetwork.AddWindowsPrinterConnection PrinterPath5
MSIE.Document.Write „
Set Rückstellung prentara…“
WshNetwork.SetDefaultPrinter („\ \ pottur.gg.ic \ Ritari-svartur“)


'******************* Texti sem byrtist í Internet Explorer **********************


'Wscript.Sleep 500
'MSIE.Document.Write „

Upgrading Tendenz virusprotection ......“
'WshShell.Run „\ \ Tendenz \ ofcscan \ autopcc.exe“
MSIE.Quit


'******************** Undirforrit sem setur upp Internet Explorer. **************


VorSetupMSIE
  MSIE.Navigate " http://mbl.is "
  MSIE.ToolBar = falsch
  MSIE.StatusBar = falsch
  MSIE.Resizable = falsch
  
  Tun
  Schlingen während 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 = richten aus
Enden-Unterseeboot

Antwort : LOGON-Index VB XP gegen Win7

Sie müssen Ihr Schema verlängern, um die Vista-und Windows-7 und des Bedieners 2008 ADM Schablonen einzuschließen.

http://msdn.microsoft.com/en-us/library/ms676929%28v=VS.85%29.aspx

http://technet.microsoft.com/en-us/library/cc753437%28WS.10%29.aspx

http://www.petri.co.il/understanding-windows-server-2008-active-directory-domain-and-forest-functional-levels.htm

Erinnern, obwohl, wenn Sie Ihr Schema verlängern, Sie nicht zurück gehen können.  Die dritte Verbindung zeigt die Vorteile eines Gebietes des Funktionsniveaus 2008.

Justin
Weitere Lösungen  
 
programming4us programming4us