Questione : Scritto VB XP di inizio attività contro Win7

Quando faccio funzionare il mio scritto di inizio attività sul fine
When degli impianti di XP io fare funzionare il mio scritto di inizio attività su Win7 che appende quando viene a collegare il printers.
Both è lo stesso scripts
In lo scritto questa è l'ultima linea che Win7 esegue: Caduta forever. del

and di MSIE.Document.Write “prentara di
Tengi - Ritari-litur " class= > " libero " del
> " del codeSnippet " del class= del
class= " lineNumbers " del
class= del 
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:
id= " codeSnippet957174 " class= " del 
 ' **** dello scritto di inizio attività del **** 


Sul riassunto di errore dopo


sTITLE = “Grunnskóli Grundarfjarðar„

Rete fioca
Regolare la rete = CreateObject (“WScript.Network„)  
Regolar MSIE = CreateObject (“InternetExplorer.Application„)

Azionamento = “U: „
Parte = “\ \ pottur.gg.ic \„ & Network.UserName & “$„

SetupMSIE

MSIE.Document.Write “„ & sTITLE & _
  “bgcolor=#FFFFFF><FONT FACE=Thaoma><CENTER>Halló</CENTER><BR><BR> di Tengist di MSIE.Document.Write “. 

„


'Scritto benvenuto del **** per il **** degli utenti


Se ora (ora) < 12 allora
  MSIE.Document.Write “daginn di Góðan„ & _
  Network.Username & “

„
Ora di ElseIf (ora) < 18 allora
  MSIE.Document.Write “daginn di Góðan„ & _
  Network.Username & “

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

„
Concluder se

Wscript.Sleep 500


'******************** Che controlla collegamento al *********************** domestico dell'azionamento


MSIE.Document.Write “Tengi„ & azionamento & “við„ & _
  Parte & “… 

„
Azionamento di Network.MapNetworkDrive, parte
Wscript.Sleep 1000
Se Err.Number = 0 allora	
  MSIE.Document.Write “Tenging heppnaðist
„
Altrimenti  	  
  MSIE.Document.Write “mistókst Tenging, eða þegar lavorare a staðar„ & azionamento & “við„ & _
    Parte & “
„
Concluder se

Wscript.Sleep 500

 
'*************************** Di collegamento degli azionamenti di rete del **************



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

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



'************************************* Dell'installazione dello stampatore del *******************


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

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

MSIE.Document.Write “prentara di 
Tengi - Ritari-litur„
QUESTA LINEA È L'ULTIMA LINEA WINDOWS7 PUÒ VEDERE
PrinterPath3 = “\ \ pottur.gg.ic \ Ritari-litur„
WshNetwork.AddWindowsPrinterConnection PrinterPath3

MSIE.Document.Write “prentara di 
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 di difetto di 
Set…„
WshNetwork.SetDefaultPrinter (“\ \ pottur.gg.ic \ Ritari-svartur„)


'********************** Di Internet Explorer del í di byrtist di Texti sem del *******************


'Wscript.Sleep 500
'MSIE.Document.Write “virusprotection di tendenza di 

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


'Upp Internet Explorer del setur di Undirforrit sem del ********************. **************


SetupMSIE secondario
  MSIE.Navigate " http://mbl.is "
  MSIE.ToolBar = falso
  MSIE.StatusBar = falso
  MSIE.Resizable = falso
  
  Fare
  Collegare mentre 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 = allineano
Sommergibile dell'estremità
class= del

Risposta : Scritto VB XP di inizio attività contro Win7

Dovete estendere il vostro schema per comprendere le mascherine del Vista e di Windows 7 e dell'assistente 2008 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

Ricordar, benchè, se estendete il vostro schema, non possiate andare indietro.  Il terzo collegamento mostra i vantaggi di un dominio del livello funzionale 2008.

Justin
Altre soluzioni  
 
programming4us programming4us