Logon script VB XP vs Win7

When I run my login script on XP everithing works fine
When I run my login script on Win7 it hangs when it comes to connect the printers.
Both are same scripts
In the script this is the last line who Win7 executes:MSIE.Document.Write "<BR></B>Tengi prentara - Ritari-litur"

and hang forever.
'**** Logon script  **** 


On Error Resume Next


sTITLE = "Grunnskóli Grundarfjarðar"

Dim Network
Set Network = CreateObject("WScript.Network")  
Set MSIE = CreateObject("InternetExplorer.Application")

Drive = "U:"
Share = "\\pottur.gg.ic\" & Network.UserName & "$"

SetupMSIE

MSIE.Document.Write "<HTML><TITLE>" & sTITLE & _
  "</TITLE><BODY bgcolor=#FFFFFF><FONT FACE=Thaoma><CENTER>Halló</CENTER><BR><BR>"
MSIE.Document.Write "<BR><B>Tengist nú skráarsvæði.. </B><BR><BR> "


'**** Welcome script for users ****


If Hour(Now) < 12 Then
  MSIE.Document.Write "</B>Góðan daginn " & _
  Network.Username & "</B><BR><BR>"
ElseIf Hour(Now) < 18 Then
  MSIE.Document.Write "</B>Góðan daginn " & _
  Network.Username & "</B><BR><BR>"
Else
  MSIE.Document.Write "Gott kvöld " & _
  Network.Username & "</B><BR><BR>"
End If

Wscript.Sleep 500


'******************** Checking Connection to Home drive ***********************


MSIE.Document.Write "</B>Tengi " & Drive & " við " & _
  Share & " ...</B><BR><BR>"
Network.MapNetworkDrive Drive, Share
Wscript.Sleep 1000
If Err.Number = 0 Then	
  MSIE.Document.Write "Tenging heppnaðist</B><BR> "
Else  	  
  MSIE.Document.Write "<B>Tenging mistókst, eða þegar til staðar<B> " & Drive & " við " & _
    Share & "</B><BR>"
End If

Wscript.Sleep 500

 
'************** Connecting network drives ***************************



MSIE.Document.Write "<BR></B>Tengi sameiginlegu drifin...."
Wscript.Sleep 500

Set WshNetwork = WScript.CreateObject("WScript.Network")

MSIE.Document.Write "<BR></B>Tengi Almenning...."
WshNetwork.MapNetworkDrive "N:", "\\pottur.gg.ic\Almenningur"
MSIE.Document.Write "<BR></B>Tengi Skrifstofu...."
WshNetwork.MapNetworkDrive "K:", "\\pottur.gg.ic\Skrifstofa$"
MSIE.Document.Write "<BR></B>Tengi Skila...."
WshNetwork.MapNetworkDrive "V:", "\\pottur.gg.ic\skila"
MSIE.Document.Write "<BR></B>Tengi ...."
MSIE.Document.Write "<BR></B>Tengi Sérkennsluþjón...."
WshNetwork.MapNetworkDrive "J:", "\\pottur.gg.ic\serkennslutjonn"
'WshNetwork.MapNetworkDrive "W:", "\\pottur.gg.ic\vefur-skoli$" 
MSIE.Document.Write "<BR></B>Tengi síðasta drifið...."
WshNetwork.MapNetworkDrive "X:", "\\big-220.gg.ic\BIG" 



'******************* Printer installation *************************************


'MSIE.Document.Write "<BR></B>Tengi prentara - Uppi-litur"
'PrinterPath1 = "\\pottur.gg.ic\Uppi-litur"
'WshNetwork.AddWindowsPrinterConnection PrinterPath1

MSIE.Document.Write "<BR></B>Tengi prentara - Ritari-svartur"
PrinterPath2 = "\\pottur.gg.ic\Ritari-svartur"
WshNetwork.AddWindowsPrinterConnection PrinterPath2

MSIE.Document.Write "<BR></B>Tengi prentara - Ritari-litur"
THIS LINE IS THE LAST LINE WINDOWS7 CAN SEE
PrinterPath3 = "\\pottur.gg.ic\Ritari-litur"
WshNetwork.AddWindowsPrinterConnection PrinterPath3

MSIE.Document.Write "<BR></B>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 "<BR></B>Set Default prentara... "
WshNetwork.SetDefaultPrinter("\\pottur.gg.ic\Ritari-svartur")


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


'Wscript.Sleep 500
'MSIE.Document.Write "<BR><BR></B>Upgrading Trend virusprotection ......"
'WshShell.Run "\\trend\ofcscan\autopcc.exe"
MSIE.Quit


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


Sub SetupMSIE
  MSIE.Navigate"http://mbl.is"
  MSIE.ToolBar = False
  MSIE.StatusBar = False
  MSIE.Resizable = False
  
  Do
  Loop While 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 = True
End Sub

Open in new window

soffcecManagerAsked:
Who is Participating?
 
Justin OwensConnect With a Mentor ITIL Problem ManagerCommented:
You need to extend your Schema to include the Vista and Windows 7 and Server 2008 ADM templates.

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

Remember, though, if you extend your Schema, you can't go back.  The third link shows the advantages of a 2008 functional level domain.

Justin
0
 
Justin OwensConnect With a Mentor ITIL Problem ManagerCommented:
Does it actually add PrinterPath2 (as on like 90) before it hangs on line 92?
0
 
soffcecManagerAuthor Commented:
Sorry, this is wrong line. I meant Windows write out line 88 and then stops
0
Free Tool: Subnet Calculator

The subnet calculator helps you design networks by taking an IP address and network mask and returning information such as network, broadcast address, and host range.

One of a set of tools we're offering as a way of saying thank you for being a part of the community.

 
Justin OwensConnect With a Mentor ITIL Problem ManagerCommented:
That makes more sense.  Windows 7 has a different permission set related to printers.  Make sure you have the following settings:

Disallow installation of printers using kernel-mode drivers - Disabled  
 Only use Package Point and print - Disabled  
 Package Point and print - Approved servers  - Disabled  
 Point and Print Restrictions - Disabled

For more information on Printer Security settings check out this article:

http://technet.microsoft.com/en-us/library/cc753269.aspx

Justin



0
 
soffcecManagerAuthor Commented:
Where can I change these settings ??

Disallow installation of printers using kernel-mode drivers - Disabled  
Only use Package Point and print - Disabled  
Package Point and print - Approved servers  - Disabled  
Point and Print Restrictions - Disabled
0
 
Justin OwensConnect With a Mentor ITIL Problem ManagerCommented:
Group Policy: Computer Configuration -> Policies -> Administrative Templates -> Printers : Point and Print Restrictions

Source: http://support.microsoft.com/kb/2307161

Justin
0
 
soffcecManagerAuthor Commented:
I am using ADS on server 2003 and missing most of these settings. I only have Disallow installation of printers using kernel-mode drivers
0
All Courses

From novice to tech pro — start learning today.