Cuestión : Escritura VB XP de la conexión contra Win7

Cuando funciono conmigo escritura de la conexión en el fine
When de los trabajos de XP yo funcionar conmigo escritura de la conexión en Win7 que cuelga cuando viene conectar el printers.
Both es el mismo scripts
In la escritura ésta es la línea pasada que Win7 ejecuta: Caída forever. del

and de MSIE.Document.Write “prentara de
Tengi - Ritari-litur " class= > " claro " 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 
 ' **** de la escritura de la conexión del **** 


En curriculum vitae del error después


sTITLE = “Grunnskóli Grundarfjarðar”

Red dévil
Fijar la red = CreateObject (“WScript.Network”)  
Fijar MSIE = CreateObject (“InternetExplorer.Application”)

Impulsión = “U: ”
Parte = “\ \ pottur.gg.ic \” y Network.UserName y “$”

SetupMSIE

MSIE.Document.Write “” y sTITLE y _
  “bgcolor=#FFFFFF><FONT FACE=Thaoma><CENTER>Halló</CENTER><BR><BR> de Tengist de MSIE.Document.Write “. 

”


'Escritura agradable del **** para el **** de los usuarios


Si hora (ahora) < 12 entonces
  MSIE.Document.Write “daginn de Góðan” y _
  Network.Username y “

”
Hora de ElseIf (ahora) < 18 entonces
  MSIE.Document.Write “daginn de Góðan” y _
  Network.Username y “

”

  MSIE.Document.Write “kvöld del Gott” y _
  Network.Username y “

”
Terminar si

Wscript.Sleep 500


'******************** Que comprueba la conexión al *********************** casero de la impulsión


MSIE.Document.Write “Tengi” y impulsión y “við” y _
  Parte y “… 

”
Impulsión de Network.MapNetworkDrive, parte
Wscript.Sleep 1000
Si Err.Number = 0 entonces	
  MSIE.Document.Write “Tenging heppnaðist
”
  	  
  MSIE.Document.Write “mistókst Tenging, eða þegar hasta staðar” y impulsión y “við” y _
    Parte y “
”
Terminar si

Wscript.Sleep 500

 
'*************************** De conexión de las impulsiones de red del **************



Drifin del sameiginlegu de 
Tengi de MSIE.Document.Write “….”
Wscript.Sleep 500

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



'************************************* De la instalación de la impresora del *******************


'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”
ESTA LÍNEA ES LA LÍNEA PASADA WINDOWS7 PUEDE CONSIDERAR
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 del defecto de 
Set…”
WshNetwork.SetDefaultPrinter (“\ \ pottur.gg.ic \ Ritari-svartur”)


'********************** De Internet Explorer del í del byrtist de Texti sem del *******************


'Wscript.Sleep 500
'MSIE.Document.Write “virusprotection de la tendencia de 

Upgrading ......”
'WshShell.Run “\ \ tendencia \ ofcscan \ autopcc.exe”
MSIE.Quit


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


SetupMSIE secundario
  MSIE.Navigate " http://mbl.is "
  MSIE.ToolBar = falso
  MSIE.StatusBar = falso
  MSIE.Resizable = falso
  
  Hacer
  Colocar mientras 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 = verdad
Submarino del extremo
class= del

Respuesta : Escritura VB XP de la conexión contra Win7

Usted necesita extender su esquema para incluir las plantillas de Vista y de Windows 7 y del servidor 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

Recordar, aunque, si usted extiende su esquema, usted no puede volver.  El tercer acoplamiento demuestra las ventajas de un dominio del nivel funcional 2008.

Justin
Otras soluciones  
 
programming4us programming4us