#179109 - 2007-08-10 03:15 PM
Specify a day of week to run (new code update)
|
John45
Fresh Scripter
Registered: 2007-08-10
Posts: 8
|
Im brand new to KiXtart and have never done anything like this. I have been tasked with editing our current login script which is pretty basic (if in X group map X drive).
I need to set some registry settings and run a vbs script. I think I have all the code except i want to only run this registry part and vbs part on Tuesdays...
Thanks for any suggestions.
Here what was thinking. I integrated the registry settings into my .vbs so I was wondering if this code will work
? "App Check" ;Run VB Script to do something if WDAYNO = 3 run 'cscript \\server\netlogon\XXX.vbs' else Endif
I have this new vbs that I want to convert to KiX... any advice where to start ?
Const HKEY_LOCAL_MACHINE = &H80000002
strComputer = "." Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _ strComputer & "\root\default:StdRegProv") Dim strValue strValue = "" 'Determine most recent installed version of Java strKeyPath = "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\JAVA_SUN\SELECT" strValueName = "RegPath" oReg.GetStringValue HKEY_LOCAL_MACHINE, strKeyPath, strValueName, strValue 'Wscript.Echo strValue 'something like Software\JavaSoft\Java Plug-in\1.6.0_02
'Set values for most recent version If strValue <> "" Then strKeyPath = strValue strValueName = "UseJava2IExplorer" dwValue = 0 oReg.SetDWORDValue HKEY_LOCAL_MACHINE, strKeyPath, strValueName, dwValue End If
'Set values for java versions on the standard desktop image 'Version 1.3.1_15 strKeyPath = "SOFTWARE\JavaSoft\Java Plug-in\1.3.1_15" strValueName = "UseJava2IExplorer" dwValue = 0 oReg.SetDWORDValue HKEY_LOCAL_MACHINE, strKeyPath, strValueName, dwValue
'Version 1.4.2_07 strKeyPath = "SOFTWARE\JavaSoft\Java Plug-in\1.4.2_07" strValueName = "UseJava2IExplorer" dwValue = 0 oReg.SetDWORDValue HKEY_LOCAL_MACHINE, strKeyPath, strValueName, dwValue strValueName = "HideSystemTrayIcon" dwValue = 1 oReg.SetDWORDValue HKEY_LOCAL_MACHINE, strKeyPath, strValueName, dwValue
'Version 1.5.0_01 strKeyPath = "SOFTWARE\JavaSoft\Java Plug-in\1.5.0_01" strValueName = "UseJava2IExplorer" dwValue = 0 oReg.SetDWORDValue HKEY_LOCAL_MACHINE, strKeyPath, strValueName, dwValue strValueName = "HideSystemTrayIcon" dwValue = 1 oReg.SetDWORDValue HKEY_LOCAL_MACHINE, strKeyPath, strValueName, dwValue
'Disable Java Automatic Updates strKeyPath = "SOFTWARE\JavaSoft\Java Update\Policy" strValueName = "EnableJavaUpdate" dwValue = 0 oReg.SetDWORDValue HKEY_LOCAL_MACHINE, strKeyPath, strValueName, dwValue strValueName = "EnableAutoUpdateCheck" oReg.SetDWORDValue HKEY_LOCAL_MACHINE, strKeyPath, strValueName, dwValue
Edited by John45 (2007-08-13 08:04 PM)
|
Top
|
|
|
|
#179240 - 2007-08-13 08:01 PM
Re: Specify a day of week to run
[Re: NTDOC]
|
John45
Fresh Scripter
Registered: 2007-08-10
Posts: 8
|
Im ashamed to admit i didnt know you could convert it.
I have no previous experience with KiX or VBS, but with all the changes around my company im getting new tasks left and right.
Ill dig around and see what else I can find.
|
Top
|
|
|
|
#179275 - 2007-08-14 03:10 PM
Re: Specify a day of week to run
[Re: NTDOC]
|
John45
Fresh Scripter
Registered: 2007-08-10
Posts: 8
|
Const HKEY_LOCAL_MACHINE = &H80000002
strComputer = "."
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _
strComputer & "\root\default:StdRegProv")
Dim strValue
strValue = ""
'Determine most recent installed version of Java
strKeyPath = "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\JAVA_SUN\SELECT"
strValueName = "RegPath"
oReg.GetStringValue HKEY_LOCAL_MACHINE, strKeyPath, strValueName, strValue
'Wscript.Echo strValue 'something like Software\JavaSoft\Java Plug-in\1.6.0_02
'Set values for most recent version
If strValue <> "" Then
strKeyPath = strValue
strValueName = "UseJava2IExplorer"
dwValue = 0
oReg.SetDWORDValue HKEY_LOCAL_MACHINE, strKeyPath, strValueName, dwValue
End If
'Set values for java versions on the standard desktop image
'Version 1.3.1_15
strKeyPath = "SOFTWARE\JavaSoft\Java Plug-in\1.3.1_15"
strValueName = "UseJava2IExplorer"
dwValue = 0
oReg.SetDWORDValue HKEY_LOCAL_MACHINE, strKeyPath, strValueName, dwValue
'Version 1.4.2_07
strKeyPath = "SOFTWARE\JavaSoft\Java Plug-in\1.4.2_07"
strValueName = "UseJava2IExplorer"
dwValue = 0
oReg.SetDWORDValue HKEY_LOCAL_MACHINE, strKeyPath, strValueName, dwValue
strValueName = "HideSystemTrayIcon"
dwValue = 1
oReg.SetDWORDValue HKEY_LOCAL_MACHINE, strKeyPath, strValueName, dwValue
'Version 1.5.0_01
strKeyPath = "SOFTWARE\JavaSoft\Java Plug-in\1.5.0_01"
strValueName = "UseJava2IExplorer"
dwValue = 0
oReg.SetDWORDValue HKEY_LOCAL_MACHINE, strKeyPath, strValueName, dwValue
strValueName = "HideSystemTrayIcon"
dwValue = 1
oReg.SetDWORDValue HKEY_LOCAL_MACHINE, strKeyPath, strValueName, dwValue
'Disable Java Automatic Updates
strKeyPath = "SOFTWARE\JavaSoft\Java Update\Policy"
strValueName = "EnableJavaUpdate"
dwValue = 0
oReg.SetDWORDValue HKEY_LOCAL_MACHINE, strKeyPath, strValueName, dwValue
strValueName = "EnableAutoUpdateCheck"
oReg.SetDWORDValue HKEY_LOCAL_MACHINE, strKeyPath, strValueName, dwValue
any suggestions?
|
Top
|
|
|
|
Moderator: Jochen, Allen, Radimus, Glenn Barnas, ShaneEP, Ruud van Velsen, Arend_, Mart
|
1 registered
(Allen)
and 466 anonymous users online.
|
|
|