#173266 - 2007-01-26 06:51 PM
Another login script: Error in Use Statement
|
04nunhucks
Getting the hang of it
Registered: 2006-09-08
Posts: 66
|
Hello, when trying to run the following script, the users recieve an error:
ERROR : error in USE statement! Script: .../netlogon.kix Line : 234
;************************************************************
;** NetLogon Script 4 **
;** Powered by KiXforms **
;** **
;** Script compiled with help from the following **
;** members in the KiXtart Forum: **
;** Benny69, Exodus3320, Gargoyle, Shawn **
;** **
;** Original Script by: dpalmer, snunhuck, nau **
;************************************************************
;**************************
;** Dim some global vars **
;**************************
Dim $frmForm
Dim $fraBanner, $fraForm
;Dim $prgProgress
Dim $Hour
;**************************
;** Set some global vars **
;**************************
$strVersion = "v4.2.09"
$LSD = @scriptdir
$WaitTime = 1
$Blanker = " "
;******************
;** START HERE **
;******************
CheckDLL()
;Create NetCare Object
$System = CreateObject("Kixtart.System")
;Verify NetCare Object was created
If Not $System
$nul= MessageBox("NetCare Not Initiated."+@CRLF+
"Please Verify netcare.dll is installed."+@CRLF+
"This Script Will Now Close.","Error...",16)
Quit()
EndIf
;***************
;** Main form **
;***************
$frmForm = $System.Form()
$frmForm.Text = "NetCare $strVersion - D5PS2Z0J Logon System "
$frmForm.SysMenu = 0
$frmForm.Height = 350
$frmForm.Width = 500
$frmForm.FontName = "ariel"
$frmForm.FontSize = 10
;*************
;** Banner **
;*************
$fraBanner = $frmForm.Controls.Add("PictureBox")
$fraBanner.Image = @Scriptdir + "\finalbanner.jpg"
$fraBanner.BackColor = $frmForm.RGB(255,255,255)
$fraBanner.Width = $frmForm.Width - 4
$fraBanner.Height = 106
$fraBanner.Left = -2
$fraBanner.Top = -2
;************************
;** Draw On the banner **
;************************
$fraBanner.FontSize = 20
$fraBanner.FontName = "ariel"
$fraBanner.FontBold = 1
$fraBanner.FontItalic = 1
$fraBanner.ForeColor = $frmForm.RGB(0, 100, 200)
$fraBanner.PrintXY (10,0,"Netlogon on @WKSTA")
$fraBanner.FontItalic = 0
$fraBanner.FontSize = 12
$fraBanner.ForeColor = $frmForm.RGB(0,0,0)
$fraBanner.PrintXY (10,35,$strVersion +" Powered by NetCare Engine (Shamil Nunhuck) ")
$fraBanner.FontSize = 12
$fraBanner.PrintXY (10,55,"@DAY @MDAYNO @MONTH @YEAR")
$fraBanner.FontBold = 0
$fraBanner.FontSize = 10
;******************
;** Progress Bar **
;******************
$prgProgress = $frmForm.Controls.Add("ProgressBar")
$prgProgress.Width = $frmForm.Width - 10
$prgProgress.Left = 2
$prgProgress.Height = 20
$prgProgress.Top = 290;$frmForm.Height - $prgProgress.Height - 5
$prgProgress.Style = 1
;****************
;** Main Frame **
;****************
$fraMain = $frmForm.Controls.Add("PictureBox")
$fraMain.BackColor = $frmForm.RGB(245,245,245)
$fraMain.Width = $frmForm.Width
$fraMain.Height = 182 ;$frmForm.Height - $fraBanner.Height - 35
$fraMain.Left = -2
$fraMain.Top = $fraBanner.Height - 5
$lblJob = $fraMain.Controls.Add("label")
$lblJob.FontSize = 10
$lblJob.FontName = "ariel"
$lblJob.Top = 100
$lblJob.Width = 440 ;fraMain.Width - 20
$lblJob.Left = 10
$lblTask = $fraMain.Controls.Add("label")
$lblTask.FontSize = 10
$lblTask.FontName = "ariel"
$lblTask.Top = 130
$lblTask.Width = 440 ;fraMain.Width - 20
$lblTask.Left = 50
;***********************
;** Draw on the frame **
;** Greeting **
;***********************
$Hour = Val(Trim(Left(@Time,2)))
If $Hour < 12
$Greeting = "Good Morning @userid (@priv)"
Else
If $Hour < 17
$Greeting = "Good Afternoon @userid (@priv) "
Else
$Greeting = "Good Evening @userid (@priv) "
EndIf
EndIf
$Date = "@DAY @MDAYNO @MONTH @YEAR "
$fraMain.FontSize = 13
$fraMain.FontName = "ariel"
$fraMain.FontBold = 1
$fraMain.ForeColor = $frmForm.RGB(0,100,200)
$fraMain.PrintXY (10,10,$Date)
$fraMain.PrintXY (10,40,$Greeting)
$fraMainLabel = $fraMain.Controls.Add("Label")
$fraMainLabel.BackColor = $frmForm.RGB(245,245,245)
$fraMainLabel.FontSize = 13
$fraMainLabel.FontBold = 1
$fraMainLabel.ForeColor = $frmForm.RGB(0,100,100)
$fraMainLabel.Left = 10
$fraMainLabel.Text = "Please wait while you logon script executes..."
$fraMainLabel.Top = 70
$fraMainLabel.Width = $frmForm.Width
$frmForm.Center
$frmForm.Show
Prep()
sleep 1
MapDrives()
DoAudit()
DoAntiVirus()
Time()
LogUser()
Snd()
Sleep 0.5
$fraMainLabel.Text = "Logon has been successful."
Sleep 3
ExitScript()
While $frmForm.Visible
$=Execute($frmForm.DoEvents())
Exit 0
;*******************
;** End Main Form **
;*******************
Function CheckDLL()
;*************************************************
;** Check that netcare.DLL is registered and **
;** copy and register if not **
;*************************************************
;$ReturnCode = KeyExist("HKEY_CLASSES_ROOT\KixTart.Form\CLSID")
$ReturnCode = KeyExist("HKEY_CLASSES_ROOT\Kixtart.System\CLSID")
If $ReturnCode = 0
$SourceFile = @scriptdir + "\netcare.dll"
$Value = ReadValue("HKLM\System\CurrentControlset\Control\Windows", "SystemDirectory")
$Destination = ExpandEnvironmentVars($Value)
Copy $SourceFile $Destination
$CMDLine = "regsvr32 /s " + $Destination + "\netcare.dll"
$ObjShell = CreateObject("WScript.Shell")
$ObjShell.run($CMDLine, 1, true)
$ObjShell = ""
EndIf
;** Wait for registration to take effect
EndFunction
Function DoProgress($Step)
$prgProgress.Value = $prgProgress.Value + $Step
EndFunction
Function Prep()
$lblJob.Text = $Blanker
$lblJob.Text = "Preparing for logon"
DoProgress(5)
Sleep 0.5
EndFunction
Function MapDrives()
$lblJob.Text = $Blanker
$lblJob.Text = "Mapping Network Drives... "
Use * /DELETE
;** Common mappings: Everyone gets these **
Sleep $WaitTime
DoProgress(5)
$DriveToMap = @HomeShr
$lblTask.Text = $Blanker
$lblTask.Text = "Home Directory"
Use U: $DriveToMap
DoProgress(2)
$DriveToMap = "\\sdc5400\mfl"
$lblTask.Text = "MFL"
Use L: $DriveToMap
DoProgress(2)
$DriveToMap = "\\sdc5400\sharedres"
$lblTask.Text = "Shared Resources"
Use R: $DriveToMap
DoProgress(2)
$DriveToMap = "\\sdc5400\pcapps"
$lblTask.Text = "PC Apps"
Use P: $DriveToMap
DoProgress(2)
$DriveToMap = "\\sdc5400\cdroms"
$lblTask.Text = "CD Roms"
Use V: $DriveToMap
DoProgress(2)
IF INGROUP("SIMSUsers")
$DriveToMap = @LServer + "\Simsarea"
$lblTask.Text = "SIMS Area"
Use W: $DriveToMap
DoProgress(2)
ENDIF
IF INGROUP("Staff")
$DriveToMap = "\\rdc5400\students"
$lblTask.Text = "Students"
Use S: $DriveToMap
DoProgress(2)
$DriveToMap = "\\sdc5400\shared"
$lblTask.Text = "Shared"
Use O: $DriveToMap
DoProgress(2)
ENDIF
IF INGROUP("Domain Admins")
$DriveToMap = "\\rdc5400\NetAdmin"
$lblTask.Text = "NetAdmin"
Use N: $DriveToMap
DoProgress(2)
$DriveToMap = "\\rdc5400\Menus"
$lblTask.Text = "Menus"
Use M: $DriveToMap
DoProgress(2)
ENDIF
EndFunction
Function DoAudit()
$fraMain.fontsize = 10
$lblJob.Text = $Blanker
$lblJob.Text = "Running Workstation Audit... "
;AUDIT STUFF IN HERE
;
;Audit what????
;
; Hardware: (Check for changes?)
; Installed Software (Check for changes?)
$lblTask.Text = $Blanker
$lblTask.Text = "Hardware"
Sleep $WaitTime
DoProgress(5)
$lblTask.Text = $Blanker
$lblTask.Text = "Software"
Sleep $WaitTime
DoProgress(5)
EndFunction
Function LogUser()
$lblJob.caption = $Blanker
$lblJob.caption = "Collecting Logon Info... "
;** Dim some vars
$LogFolder = @scriptdir + "\logs\"
;** Path to log dir
$FileName = @month + "--"+ "log.txt"
;** Get Log File Name
$MyFile = $LogFolder + $FileName
;** Set full path to file
$CRLF= Chr(13) + Chr(10)
;** Set Carriage Return + Line feed
$MyDateTime = @DATE + " : " + @TIME
;** Date and time string
DoProgress(10)
If Open(1,$MyFile,5) = 0
;** Open file for write. Create if doesn't exist
;** Date And time
$Silent = WriteLine (1, $MyDateTime + $CRLF)
$lblTask.Caption = $Blanker
$lblTask.Caption = "Time and Date"
Sleep $WaitTime
DoProgress(10)
;** User Details
$Silent = WriteLine (1, "User: " + @USERID + " Full Name: " + @FULLNAME + $CRLF);Write data to file
$lblTask.Caption = $Blanker
$lblTask.Caption = "User Name"
Sleep $WaitTime
DoProgress(10)
;** IP 0
$Silent = WriteLine (1, "IP: " + @IPAddress0 + $CRLF)
$lblTask.Caption = $Blanker
$lblTask.Caption = "IP Address"
Sleep $WaitTime
DoProgress(15)
$Silent = WriteLine (1, $CRLF)
$Silent = Close (1)
EndIf
Sleep 0.5
EndFunction
Function DoAntiVirus()
$lblJob.Text = $Blanker
$lblJob.Text = "Updating Antivirus... "
$lblTask.Text = " CANNOT UPDATE ANTIVIRUS"
$lblTask.Text = $Blanker
DoProgress(10)
sleep 0.5
EndFunction
Function Time()
;======= Sync Time Local Time Server
$lblJob.Text = $Blanker
$lblJob.Text = "Synchronizing time with SWGfL NTP (Time) Server "
$lblTask.Text = $Blanker
$lblTask.Text = " CANNOT PERFORM SYNC"
DoProgress(15)
; If Exist (@scriptdir+"\netlogon\TimeSync.bat")
; Shell @scriptdir+"\netlogon\TimeSync.bat"
; EndIf
sleep 1
EndFunction
Function Snd()
$lblTask.Text = $Blanker
$lblTask.Text = "Welcome to " + @WKSTA
DoProgress(10)
$fraMainLabel.Text = "Logon has been successful."
DoProgress(10)
$lblJob.Text = $Blanker
$lblJob.Text = ""
Play @scriptdir + "logon.wav"
EndFunction
Function ExitScript()
Quit()
EndFunction
;*****************
;** End of File **
;*****************
|
Top
|
|
|
|
#173267 - 2007-01-26 07:11 PM
Re: Another login script: Error in Use Statement
[Re: 04nunhucks]
|
exodus3320
Lurker
Registered: 2007-01-26
Posts: 1
|
I would just like to point out that I contributed largely to the writing of that code, and specifically to the User Interface elements. For some reason, the person who posted this hasn't mentioned me in the credits/title box in the source code.
Don't make me use upper case!!!
|
Top
|
|
|
|
#173269 - 2007-01-26 07:30 PM
Re: Another login script: Error in Use Statement
[Re: exodus3320]
|
04nunhucks
Getting the hang of it
Registered: 2006-09-08
Posts: 66
|
Sorry about that, that was a prototype that the other technician did, as mine was absolutely rubbish. He seemed to have deleted the top half which did have all the credits. I hadn't noticed that until you told me. Thnaks for telling me. I have amended it. Thanks again for reminding me to restore the info at the top.
edit: 18:51 " I have editied it but the credits are just not showing in the code"
Edited by 04nunhucks (2007-01-26 07:51 PM)
|
Top
|
|
|
|
#173271 - 2007-01-26 07:48 PM
Re: Another login script: Error in Use Statement
[Re: 04nunhucks]
|
04nunhucks
Getting the hang of it
Registered: 2006-09-08
Posts: 66
|
Hello Shawn, I have followed your instructions to no avail. Commenting out $lblTask makes no difference. Commenting out the USE statement just makes it punce on the next USE statement (Use R: $DriveToMap) and gives the same error.
|
Top
|
|
|
|
#173274 - 2007-01-26 08:02 PM
Re: Another login script: Error in Use Statement
[Re: NTDOC]
|
04nunhucks
Getting the hang of it
Registered: 2006-09-08
Posts: 66
|
Hi,
I would like to say that if I replace all of the Drive mappings with $DriveToMap = "\\shamil-2dptm3ss\netlogon"
$lblTask.Text = $Blanker
$lblTask.Text = "netlogon"
Use N: $DriveToMap
DoProgress(10)
Sleep 0.5
$DriveToMap = "\\shamil-2dptm3ss\cache"
$lblTask.Text = "SmartCache"
Use S: $DriveToMap
DoProgress(10)
Sleep 0.5
The code works perfectly fine. (I use this at home). But adding the drive mappings make it fail.
Also, I am sure all the variables are declared at the begninning of the script, NTDOC.
|
Top
|
|
|
|
#173276 - 2007-01-26 08:27 PM
Re: Another login script: Error in Use Statement
[Re: NTDOC]
|
04nunhucks
Getting the hang of it
Registered: 2006-09-08
Posts: 66
|
Ok, thanks NTDOC, which one of these would be a macro and a var? Just an example will do; just to refresh my memory.
|
Top
|
|
|
|
#173280 - 2007-01-26 10:09 PM
Re: Another login script: Error in Use Statement
[Re: NTDOC]
|
04nunhucks
Getting the hang of it
Registered: 2006-09-08
Posts: 66
|
ah, right thanks, I will amend it asap
|
Top
|
|
|
|
#173281 - 2007-01-26 10:20 PM
Re: Another login script: Error in Use Statement
[Re: 04nunhucks]
|
04nunhucks
Getting the hang of it
Registered: 2006-09-08
Posts: 66
|
Hello, by clearing up, I interpret that you meand changing it all to either macro or string? Or have I misunderstood NOTDOC?
|
Top
|
|
|
|
#173290 - 2007-01-27 11:42 AM
Re: Another login script: Error in Use Statement
[Re: Glenn Barnas]
|
04nunhucks
Getting the hang of it
Registered: 2006-09-08
Posts: 66
|
Wow, thanks guys, I am really learning a lot from this. I will post the new script in my next post; just having breakfast!
|
Top
|
|
|
|
#173291 - 2007-01-27 12:13 PM
Re: Another login script: Error in Use Statement
[Re: 04nunhucks]
|
04nunhucks
Getting the hang of it
Registered: 2006-09-08
Posts: 66
|
Hi, here is the amended code:
;************************************************************
;************************************************************
;** **
;** NetCare4 - D5PS2Z0J Login System **
;** Netlogon.NET **
;** **
;** **
;** Credits from KiXtart Bulletin Board Forum: **
;** Benny69, gargoyle, exodus3320, Shawn, NTDOC, **
;************************************************************
;************************************************************
;**************************
;** Dim some global vars **
;**************************
Dim $frmForm
Dim $fraBanner, $fraForm
;Dim $prgProgress
Dim $Hour
;**************************
;** Set some global vars **
;**************************
$strVersion = "v4.2.09"
$LSD = @scriptdir
$WaitTime = 1
$Blanker = " "
;******************
;** START HERE **
;******************
CheckDLL()
;Create NetCare Object
$System = CreateObject("Kixtart.System")
;Verify NetCare Object was created
If Not $System
$nul= MessageBox("NetCare Not Initiated."+@CRLF+
"Please Verify netcare.dll is installed."+@CRLF+
"This Script Will Now Close.","Error...",16)
Quit()
EndIf
;***************
;** Main form **
;***************
$frmForm = $System.Form()
$frmForm.Text = "NetCare"+ $strVersion - "D5PS2Z0J Logon System "
$frmForm.SysMenu = 0
$frmForm.Height = 350
$frmForm.Width = 500
$frmForm.FontName = "ariel"
$frmForm.FontSize = 10
;*************
;** Banner **
;*************
$fraBanner = $frmForm.Controls.Add("PictureBox")
$fraBanner.Image = @Scriptdir + "\finalbanner.jpg"
$fraBanner.BackColor = $frmForm.RGB(255,255,255)
$fraBanner.Width = $frmForm.Width - 4
$fraBanner.Height = 106
$fraBanner.Left = -2
$fraBanner.Top = -2
;************************
;** Draw On the banner **
;************************
$fraBanner.FontSize = 20
$fraBanner.FontName = "ariel"
$fraBanner.FontBold = 1
$fraBanner.FontItalic = 1
$fraBanner.ForeColor = $frmForm.RGB(0, 100, 200)
$fraBanner.PrintXY (10,0,"Netlogon on @WKSTA")
$fraBanner.FontItalic = 0
$fraBanner.FontSize = 12
$fraBanner.ForeColor = $frmForm.RGB(0,0,0)
$fraBanner.PrintXY (10,35,$strVersion +" Powered by NetCare Engine (Shamil Nunhuck) ")
$fraBanner.FontSize = 12
$fraBanner.PrintXY (10,55,"@DAY @MDAYNO @MONTH @YEAR")
$fraBanner.FontBold = 0
$fraBanner.FontSize = 10
;******************
;** Progress Bar **
;******************
$prgProgress = $frmForm.Controls.Add("ProgressBar")
$prgProgress.Width = $frmForm.Width - 10
$prgProgress.Left = 2
$prgProgress.Height = 20
$prgProgress.Top = 290;$frmForm.Height - $prgProgress.Height - 5
$prgProgress.Style = 1
;****************
;** Main Frame **
;****************
$fraMain = $frmForm.Controls.Add("PictureBox")
$fraMain.BackColor = $frmForm.RGB(245,245,245)
$fraMain.Width = $frmForm.Width
$fraMain.Height = 182 ;$frmForm.Height - $fraBanner.Height - 35
$fraMain.Left = -2
$fraMain.Top = $fraBanner.Height - 5
$lblJob = $fraMain.Controls.Add("label")
$lblJob.FontSize = 10
$lblJob.FontName = "ariel"
$lblJob.Top = 100
$lblJob.Width = 440 ;fraMain.Width - 20
$lblJob.Left = 10
$lblTask = $fraMain.Controls.Add("label")
$lblTask.FontSize = 10
$lblTask.FontName = "ariel"
$lblTask.Top = 130
$lblTask.Width = 440 ;fraMain.Width - 20
$lblTask.Left = 50
;***********************
;** Draw on the frame **
;** Greeting **
;***********************
$Hour = Val(Trim(Left(@Time,2)))
If $Hour < 12
$Greeting = "Good Morning"+ @userid+ "("+@priv")"
Else
If $Hour < 17
$Greeting = "Good Afternoon"+ @userid+ "("+@priv")"
Else
$Greeting = "Good Evening" + @userid+ "("+@priv")"
EndIf
EndIf
$Date = "@DAY +@MDAYNO +@MONTH +@YEAR "
$fraMain.FontSize = 13
$fraMain.FontName = "ariel"
$fraMain.FontBold = 1
$fraMain.ForeColor = $frmForm.RGB(0,100,200)
$fraMain.PrintXY (10,10,$Date)
$fraMain.PrintXY (10,40,$Greeting)
$fraMainLabel = $fraMain.Controls.Add("Label")
$fraMainLabel.BackColor = $frmForm.RGB(245,245,245)
$fraMainLabel.FontSize = 13
$fraMainLabel.FontBold = 1
$fraMainLabel.ForeColor = $frmForm.RGB(0,100,100)
$fraMainLabel.Left = 10
$fraMainLabel.Text = "Please wait while you logon script executes..."
$fraMainLabel.Top = 70
$fraMainLabel.Width = $frmForm.Width
$frmForm.Center
$frmForm.Show
Prep()
sleep 1
MapDrives()
DoAudit()
DoAntiVirus()
Time()
LogUser()
Snd()
Sleep 0.5
$fraMainLabel.Text = "Logon has been successful."
Sleep 3
ExitScript()
While $frmForm.Visible
$=Execute($frmForm.DoEvents())
Exit 0
;*******************
;** End Main Form **
;*******************
Function CheckDLL()
;*************************************************
;** Check that netcare.DLL is registered and **
;** copy and register if not **
;*************************************************
;$ReturnCode = KeyExist("HKEY_CLASSES_ROOT\KixTart.Form\CLSID")
$ReturnCode = KeyExist("HKEY_CLASSES_ROOT\Kixtart.System\CLSID")
If $ReturnCode = 0
$SourceFile = @scriptdir + "\netcare.dll"
$Value = ReadValue("HKLM\System\CurrentControlset\Control\Windows", "SystemDirectory")
$Destination = ExpandEnvironmentVars($Value)
Copy $SourceFile $Destination
$CMDLine = "regsvr32 /s " + $Destination + "\netcare.dll"
$ObjShell = CreateObject("WScript.Shell")
$ObjShell.run($CMDLine, 1, true)
$ObjShell = ""
EndIf
;** Wait for registration to take effect
EndFunction
Function DoProgress($Step)
$prgProgress.Value = $prgProgress.Value + $Step
EndFunction
Function Prep()
$lblJob.Text = $Blanker
$lblJob.Text = "Preparing for logon"
DoProgress(5)
Sleep 0.5
EndFunction
Function MapDrives()
$lblJob.Text = $Blanker
$lblJob.Text = "Mapping Network Drives... "
Use * /DELETE
;** Common mappings: Everyone gets these **
Sleep $WaitTime
DoProgress(5)
$DriveToMap = @HomeShr
$lblTask.Caption = $Blanker
$lblTask.Caption = $DriveToMap
USE U: @HomeShr ;** Map U: to HomeDir Share
DoProgress(5)
$DriveToMap = "\\sdc5400\mfl"
$lblTask.Caption = $Blanker
$lblTask.Caption = $DriveToMap
USE L: $DriveToMap ;** Map L: to SharedRes Share
DoProgress(5)
$DriveToMap = "\\sdc5400\sharedres"
$lblTask.Caption = $Blanker
$lblTask.Caption = $DriveToMap
USE R: $DriveToMap ;** Map R: to SharedRes Share
DoProgress(5)
$DriveToMap = "\\sdc5400\pcapps"
$lblTask.Caption = $Blanker
$lblTask.Caption = $DriveToMap
USE P: $DriveToMap ;** Map T: to PcApps Share
DoProgress(5)
$DriveToMap = "\\sdc5400\cdroms"
$lblTask.Caption = $Blanker
$lblTask.Caption = $DriveToMap
USE V: $DriveToMap ;** Map V: to CDRoms Share
DoProgress(5)
IF INGROUP("SIMSUsers") ;** User belongs to SIMSUsers Group
$DriveToMap = @LServer + "\Simsarea"
$lblTask.Caption = $Blanker
$lblTask.Caption = $DriveToMap
USE S: $DriveToMap ;** Map S: to SIMSArea
DoProgress(5)
; $DriveToMap = "\\SQLxxxx\Simsarea"
; $lblTask.Caption = $Blanker
; $lblTask.Caption = $DriveToMap
; USE S: $DriveToMap ;** Map W: to Students Share
; Sleep $WaitTime
; $prgProgress.value = $prgProgress.value + 5
ENDIF
IF INGROUP("Staff") ;** User belongs to Staff group
$DriveToMap = "\\rdc5400\students"
$lblTask.Caption = $Blanker
$lblTask.Caption = $DriveToMap
USE W: $DriveToMap ;** Map W: to Students Share
DoProgress(5)
$DriveToMap = "\\sdc5400\shared"
$lblTask.Caption = $Blanker
$lblTask.Caption = $DriveToMap
USE O: $DriveToMap ;** Map O: to Old Work Area
DoProgress(5)
ENDIF
IF INGROUP("Domain Admins")
$DriveToMap = "\\rdc5400\NetAdmin"
$lblTask.Caption = $Blanker
$lblTask.Caption = $DriveToMap
USE N: $DriveToMap ;** Map P: to pcapps Share
DoProgress(5)
$DriveToMap = "\\rdc5400\Menus"
$lblTask.Caption = $Blanker
$lblTask.Caption = $DriveToMap
USE M: $DriveToMap ;** Map R: to sharedres Share
DoProgress(5)
ENDIF
EndFunction
Function DoAudit()
$fraMain.fontsize = 10
$lblJob.Text = $Blanker
$lblJob.Text = "Running Workstation Audit... "
;AUDIT STUFF IN HERE
;
;Audit what????
;
; Hardware: (Check for changes?)
; Installed Software (Check for changes?)
$lblTask.Text = $Blanker
$lblTask.Text = "Hardware"
Sleep $WaitTime
DoProgress(5)
$lblTask.Text = $Blanker
$lblTask.Text = "Software"
Sleep $WaitTime
DoProgress(5)
EndFunction
Function LogUser()
$lblJob.caption = $Blanker
$lblJob.caption = "Collecting Logon Info... "
;** Dim some vars
$LogFolder = @scriptdir + "\logs\"
;** Path to log dir
$FileName = @month + "--"+ "log.txt"
;** Get Log File Name
$MyFile = $LogFolder + $FileName
;** Set full path to file
$CRLF= Chr(13) + Chr(10)
;** Set Carriage Return + Line feed
$MyDateTime = @DATE + " : " + @TIME
;** Date and time string
DoProgress(10)
If Open(1,$MyFile,5) = 0
;** Open file for write. Create if doesn't exist
;** Date And time
$Silent = WriteLine (1, $MyDateTime + $CRLF)
$lblTask.Caption = $Blanker
$lblTask.Caption = "Time and Date"
Sleep $WaitTime
DoProgress(10)
;** User Details
$Silent = WriteLine (1, "User: " + @USERID + " Full Name: " + @FULLNAME + $CRLF);Write data to file
$lblTask.Caption = $Blanker
$lblTask.Caption = "User Name"
Sleep $WaitTime
DoProgress(10)
;** IP 0
$Silent = WriteLine (1, "IP: " + @IPAddress0 + $CRLF)
$lblTask.Caption = $Blanker
$lblTask.Caption = "IP Address"
Sleep $WaitTime
DoProgress(15)
$Silent = WriteLine (1, $CRLF)
$Silent = Close (1)
EndIf
Sleep 0.5
EndFunction
Function DoAntiVirus()
$lblJob.Text = $Blanker
$lblJob.Text = "Updating Antivirus... "
$lblTask.Text = " CANNOT UPDATE ANTIVIRUS"
$lblTask.Text = $Blanker
DoProgress(10)
sleep 0.5
EndFunction
Function Time()
;======= Sync Time Local Time Server
$lblJob.Text = $Blanker
$lblJob.Text = "Synchronizing time with SWGfL NTP (Time) Server "
$lblTask.Text = $Blanker
$lblTask.Text = " CANNOT PERFORM SYNC"
DoProgress(15)
; If Exist (@scriptdir+"\netlogon\TimeSync.bat")
; Shell @scriptdir+"\netlogon\TimeSync.bat"
; EndIf
sleep 1
EndFunction
Function Snd()
$lblTask.Text = $Blanker
$lblTask.Text = "Welcome to " + @WKSTA
DoProgress(10)
$fraMainLabel.Text = "Logon has been successful."
DoProgress(10)
$lblJob.Text = $Blanker
$lblJob.Text = ""
Play @scriptdir + "logon.wav"
EndFunction
Function ExitScript()
Quit()
EndFunction
;*****************
;** End of File **
;*****************
Still with the USE error. I was just wondering, why does it fail at the second drive mapping: L: ($DriveToMap = "\\sdc5400\mfl")
Edited by 04nunhucks (2007-01-27 12:15 PM)
|
Top
|
|
|
|
#173293 - 2007-01-27 01:46 PM
Re: Another login script: Error in Use Statement
[Re: Lonkero]
|
04nunhucks
Getting the hang of it
Registered: 2006-09-08
Posts: 66
|
Hi, Jooel, It shows the same error: error in USE statement on line 233 I added your piece of script to that line.
Also, a command line box appears and the only character in it is ")". The title bar of the box is wkix32.exe.
|
Top
|
|
|
|
#173294 - 2007-01-27 02:27 PM
Re: Another login script: Error in Use Statement
[Re: 04nunhucks]
|
Benny69
Moderator
Registered: 2003-10-29
Posts: 1036
Loc: Lincoln, Ne
|
Hi 04
The '.Caption' property is out dated and has been replaced with '.Text', You need to replace all of the '.Caption' properties with '.Text' in the entire script. (I count 30 occurrences)
Things to check on:
- Access rights to the drive in question (can you map it manualy as the user you are running the script under)
- KiXtart ver and KiXforms ver on the machine in question
|
Top
|
|
|
|
Moderator: Jochen, Allen, Radimus, Glenn Barnas, ShaneEP, Ruud van Velsen, Arend_, Mart
|
1 registered
(Allen)
and 382 anonymous users online.
|
|
|