Vraag : Het manuscript VB XP van de opening van een sessie versus Win7

Wanneer ik mijn login manuscript op XP de everithing werken fine
When in werking stel stel ik mijn login manuscript op in werking Win7 het hang wanneer het komt om printers.
Both te verbinden is zelfde scripts
In het manuscript dit de laatste lijn is die Win7 uitvoert: Prentara van MSIE.Document.Write „
Tengi - Ritari -ritari-litur "

and hangt forever.
" codeBody " 
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:
" notpretty " 
 ' het manuscript **** van de Opening van een sessie **** 


Op Fout hervat daarna


sTITLE = „Grunnskóli Grundarfjarðar“

Schemerig Netwerk
Vastgesteld Netwerk = CreateObject („WScript.Network“)  
Vastgesteld MSIE = CreateObject („InternetExplorer.Application“)

Aandrijving = „U: “
Aandeel = „\ \ pottur.gg.ic \“ & Network.UserName & „$“

SetupMSIE

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


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

“


'Welkom manuscript **** voor gebruikers ****


Als Uur (nu) < 12 toen
  MSIE.Document.Write „Góðan daginn“ & _
  Network.Username & „

“
Uur van ElseIf (nu) < 18 toen
  MSIE.Document.Write „Góðan daginn“ & _
  Network.Username & „

“
Anders
  MSIE.Document.Write „Gott kvöld“ & _
  Network.Username & „

“
Eind als

Wscript.Sleep 500


'******************** Controlerend Verbinding aan de aandrijving van het Huis ***********************


MSIE.Document.Write „Tengi“ & Aandrijving & „við“ & _
  Aandeel & „… 

“
Network.MapNetworkDrive Aandrijving, Aandeel
Wscript.Sleep 1000
Als Err.Number = 0 toen	
  MSIE.Document.Write „Tenging heppnaðist
“
Anders  	  
  MSIE.Document.Write „het Tenging þegar til mistókst, eða staðar“ & Aandrijving & „við“ & _
    Aandeel & „
“
Eind als

Wscript.Sleep 500

 
'************** Drijft het Verbindende netwerk ***************************



MSIE.Document.Write „
Tengisameiginlegu drifin….“
Wscript.Sleep 500

Vastgestelde 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: “, „skila \ \ pottur.gg.ic \“
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 „
Tengisíðasta drifið….“
WshNetwork.MapNetworkDrive „X: “, „GROTE \ \ groot-220.gg.ic \“ 



'******************* De installatie van de Printer *************************************


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

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

MSIE.Document.Write „
Tengiprentara - Ritari -ritari-litur“
DEZE LIJN IS DE LAATSTE LIJN WINDOWS7 KAN ZIEN
PrinterPath3 = „\ \ pottur.gg.ic \ Ritari -ritari-litur“
WshNetwork.AddWindowsPrinterConnection PrinterPath3

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

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


'******************* Byrtist í Internet Explorer van Texti sem **********************


'Wscript.Sleep 500
'Virusprotection van de Tendens van MSIE.Document.Write „

Upgrading ......“
'Tendens \ \ ofcscan \ autopcc.exe van WshShell.Run de „\“
MSIE.Quit


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


Sub SetupMSIE
  MSIE.Navigate " http://mbl.is "
  MSIE.ToolBar = Vals
  MSIE.StatusBar = Vals
  MSIE.Resizable = Vals
  
  
  Lijn terwijl 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 = Waar
Sub van het eind

Antwoord : Het manuscript VB XP van de opening van een sessie versus Win7

U moet uw Schema uitbreiden om het Uitzicht en Vensters 7 en Server 2008 malplaatjes te omvatten ADM.

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

Herinner me, niettemin, als u uw Schema uitbreidt, u kan niet teruggaan.  De derde verbinding toont de voordelen van een functioneel het niveaudomein van 2008.

Justin
Andere oplossingen  
 
programming4us programming4us