plz.. se på .vbe scriptet mitt og se om dere ser noen feil.

[|SeVen|]

Jeg driver å lager et logon script for win200 server, men får ikke til å mappe opp drives etter rettigheter. Her ser dere hva jeg har scriptet, ser dere noen åpenbare feil ? plz.. hjelp meg.

 

 

 

 

'********************************************************************************

'

'PATH and FILE: %logonserver%NETLOGONlogon.vbs

'

'Required files: logon.html

'

'This script is made for XXX

'Designed by Kim Tore Baardseth

'

'

'

'Version: 1.0.0

'

'VERSION DATE AUTHOR

'1.0.0 20030618 Kim Tore Baardseth

'

'********************************************************************************

 

''' Starting script

 

Option Explicit

'On Error Resume Next

 

''' Dim all posible variables

 

Dim IE

Dim IE_URL

Dim IE_Status

Dim WSHShell

Dim WSHNetwork

Dim strMappedDrives

Dim nReturnCode

Dim strUser

Dim Group

Dim MemberOf

Dim Child

Dim DefPrinter

Dim varNow

 

 

''' Set all required objects

 

DefPrinter = "nt-serverprinter"

IE_URL = "nt-serverscriptlogon.html"

 

 

''' Open a Internet Explorer Window

 

Call CreateIE()

 

 

''' Loading all required object

 

IE_Status = "Laster inn nødvendige objekter..." & vbNewLine

ie.document.all.IE_Status.InnerText = IE_Status

 

Set WSHShell = WScript.CreateObject("WScript.Shell")

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

 

 

''' Mapping Drives based on users rights

 

IE_Status = IE_Status + "Sjekker hvilken grupper du er medlem av..." & vbNewLine

ie.document.all.IE_Status.InnerText = IE_Status

 

strUser="WinNT://" & wshNetwork.UserDomain & "/" & WSHNetwork.UserName

 

Set Group = GetObject(strUser)

Set MemberOf=Group.Groups

For Each Child in MemberOf

 

if (UCASE(Left(Child.Name,2)) ="A_") then

IE_Status = IE_Status + "Kobler opp disken F: mot fellesområdet ditt..." & vbNewLine

ie.document.all.IE_Status.InnerText = IE_Status

MapDrive "F:", "nt-servermarked" & UCASE(Child.Name)

End If

 

if (UCASE(Left(Child.Name,2)) ="P_") then

IE_Status = IE_Status + "Kobler opp disken P: mot programområdet..." & vbNewLine

ie.document.all.IE_Status.InnerText = IE_Status

MapDrive "P:", "nt-serveradministrasjon"

End If

 

Next

 

''' Mapping up a network printer

 

IE_Status = IE_Status + "Setter standard skriver..." & vbNewLine

ie.document.all.IE_Status.InnerText = IE_Status

 

WSHNetwork.AddWindowsPrinterConnection DefPrinter

WSHNetwork.SetDefaultPrinter DefPrinter

 

''' Set the system time

 

IE_Status = IE_Status + "Synkroniserer klokken mot serveren..." & vbNewLine

ie.document.all.IE_Status.InnerText = IE_Status

 

nReturnCode = wshShell.Run("net time /domain:" & wshNetwork.UserDomain & " /set /yes", 0, TRUE)

If (nReturnCode <> 0) Then

MsgBox "Påloggingsproblem: Klokke " & vbNewLine & vbNewLine &_

"Det er problem med synkroniseringen av klokken på maskinen." & vbNewLine &_

"Ta kontakt med Brukerstøttesenteret vårt på TLF 4120" & vbNewLine &_

" " & vbNewLine &_

"Oppgi dennne meldingen til BSS:" & vbNewLine &_

"Problemer med Synkronisering av klokke under påloggingen",_

48,_

"Påloggingsproblem: Klokke"

End If

 

 

''' Closing the Internet Explorer Window

 

IE_Status = IE_Status + "Gjør seg klar til å avslutte påloggingen..." & vbNewLine

ie.document.all.IE_Status.InnerText = IE_Status

 

If ie.document.all.holdit.checked then

varNow = Now

while DateDiff("s",varNow,Now) < 3

wend

ie.quit()

End if

 

 

''' Sub Function for Mapping network Drives

 

Sub MapDrive(strDrive,strShare)

 

On Error Resume Next

WSHNetwork.MapNetworkDrive strDrive, strShare

If Err.Number Then

WSHNetwork.RemoveNetworkDrive strDrive

WSHNetwork.MapNetworkDrive strDrive, strShare

End If

 

End Sub

 

''' Sub Function for creating a Internet Explorer Window

 

Sub CreateIE()

 

On Error Resume Next

Set IE = CreateObject("InternetExplorer.Application")

With IE

.navigate IE_URL

.resizable=0

.height=330

.width=470

.menubar=0

.toolbar=0

.statusBar=0

.visible=1

End With

while ie.Busy: wend

 

End Sub

[aadnk]

Nå er jeg ikke helt sikker på at dette er grunnen, men jeg mener at

det er en feil i MsgBox-callen som forteller brukeren at det er problemer med å synkronisere klokken.

 

Tror derfor du må erstatte de linjene med disse:

 

If (nReturnCode <> 0) Then

MsgBox "Påloggingsproblem: Klokke " & vbNewLine & vbNewLine & _

"Det er problem med synkroniseringen av klokken på maskinen." & vbNewLine & _

"Ta kontakt med Brukerstøttesenteret vårt på TLF 4120" & vbNewLine & _

" " & vbNewLine & _

"Oppgi dennne meldingen til BSS:" & vbNewLine & _

"Problemer med Synkronisering av klokke under påloggingen", _

48, _

"Påloggingsproblem: Klokke"

End If