Right , I have made a nice logon script for the network I am creating at a school, it is shown below. All I really need to know is how to get teh IE windows displayed to have a background image instead of just the 'white' color as a background,
cheers
Code:Sub InitIE(strMsg) ' Subroutine to initialize the IE display box. Dim intWidth, intHeight, intWidthW, intHeightW Set objIE = CreateObject("InternetExplorer.Application") With objIE .ToolBar = False .FullScreen = false .StatusBar = False .Resizable = False .Navigate("about:blank") Do Until .readyState = 4 Wscript.Sleep 100 Loop With .document With .ParentWindow intWidth = .Screen.AvailWidth intHeight = .Screen.AvailHeight intWidthW = .Screen.AvailWidth * .57 intHeightW = .Screen.AvailHeight * .25 .resizeto intWidthW, intHeightW .moveto (intWidth - intWidthW)/2, (intHeight - intHeightW)/2 End With .Write "<body> " & strMsg & " </body></html>" With .ParentWindow.document.body .style.backgroundColor = "white" .scroll="no" .style.Font = "10pt 'Verdana'" .style.borderStyle = "outset" .style.borderWidth = "4px" End With .Title = strIETitle objIE.Visible = True Wscript.Sleep 100 objShell.AppActivate strIETitle End With End With End Sub![]()


LinkBack URL
About LinkBacks
Reply With Quote