Solved

Logon script VB XP vs Win7

Posted on 2010-08-23
7
469 Views
Last Modified: 2012-05-10
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

0
Comment
Question by:soffcec
  • 4
  • 3
7 Comments
 
LVL 31

Assisted Solution

by:DrUltima
DrUltima earned 500 total points
ID: 33504119
Does it actually add PrinterPath2 (as on like 90) before it hangs on line 92?
0
 

Author Comment

by:soffcec
ID: 33504807
Sorry, this is wrong line. I meant Windows write out line 88 and then stops
0
 
LVL 31

Assisted Solution

by:DrUltima
DrUltima earned 500 total points
ID: 33504977
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
Better Security Awareness With Threat Intelligence

See how one of the leading financial services organizations uses Recorded Future as part of a holistic threat intelligence program to promote security awareness and proactively and efficiently identify threats.

 

Author Comment

by:soffcec
ID: 33516236
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
 
LVL 31

Assisted Solution

by:DrUltima
DrUltima earned 500 total points
ID: 33521217
Group Policy: Computer Configuration -> Policies -> Administrative Templates -> Printers : Point and Print Restrictions

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

Justin
0
 

Author Comment

by:soffcec
ID: 33521462
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
 
LVL 31

Accepted Solution

by:
DrUltima earned 500 total points
ID: 33533061
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

Featured Post

What Is Threat Intelligence?

Threat intelligence is often discussed, but rarely understood. Starting with a precise definition, along with clear business goals, is essential.

Join & Write a Comment

Article by: Lee
Windows 7 Ultimate and Enterprise (and 2008 R2) introduced a new feature you may not be aware of - Boot from VHD.   Boot from VHD (or what Microsoft refers to asNative Boot allows you to install Windows to a VHD (Virtual Hard Disk) file that is t…
When you start your Windows 10 PC and got an "Operating system not found" error or just saw  "Auto repair for startup". After a while, you have entered a loop for Auto repair which does not fix anything and you will be in a  panic as all your work w…
Windows 8 comes with a dramatically different user interface known as Metro. Notably missing from the new interface is a Start button and Start Menu. Many users do not like it, much preferring the interface of earlier versions — Windows 7, Windows X…
This Micro Tutorial will give you basic overview of the control panel section on Windows 7. It will depth in Network and Internet, Hardware and Sound, etc. This will be demonstrated using Windows 7 operating system.

708 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

14 Experts available now in Live!

Get 1:1 Help Now