ID=”objTweakomatic”
APPLICATIONNAME=”Tweakomatic”
SCROLL=”no”
SINGLEINSTANCE=”yes”
WINDOWSTATE=”maximize”
>
BODY
{
background-color: buttonface;
font-family: Helvetica;
font-size: 8pt;
margin-top: 10px;
margin-left: 10px;
margin-right: 10px;
margin-bottom: 10px;
}
.button
{
font-family: Helvetica;
font-size: 8pt;
}
textarea
{
font-family: arial;
font-size: 8pt;
margin-left: 3px;
}
select
{
font-family: arial;
font-size: 8pt;
width: 450px;
margin-left: 0px;
}
td
{
font-family: arial;
font-size: 10pt;
}
Const adOpenStatic = 3
Const adLockOptimistic = 3
Const adUseClient = 3
DefaultComputer = “.”
MasterFile = “”
RetrievalFile = “”
StartHelp = “To begin, select a manageable component, and then select a category of tasks. When you do so, a set of tasks will be displayed in the Task Area. Click a task and two scripts will automatically be created: one for configuring information, the other for retrieving information.”
Help2 = “Select a category from the list of categories. When you do so, a set of tasks will be displayed in the Task Area. Click a task and two scripts will automatically be created: one for configuring information, the other for retrieving information.”
Help3 = “Click a task and two scripts will automatically be created: one for configuring information, the other for retrieving information.”
Sub Window_Onload
Set objConnection = CreateObject(“ADODB.Connection”)
objConnection.Open “Provider= Microsoft.Jet.OLEDB.4.0; Data Source=tweakomatic.mdb”
Set objRecordset = CreateObject(“ADODB.Recordset”)
objRecordset.CursorLocation = adUseClient
objRecordset.Open “SELECT DISTINCT Tweaks.Component FROM Tweaks ORDER BY Tweaks.Component” , objConnection, adOpenStatic, adLockOptimistic
objRecordSet.MoveFirst
strHTML = “
strHTML = strHTML & “
Do Until objRecordSet.EOF
strHTML = strHTML & “
objRecordSet.Fields.Item(“Component”) & chr(34) & _
“>” & objRecordSet.Fields.Item(“Component”)
objRecordSet.MoveNext
Loop
strHTML = strHTML & “”
ComponentArea.InnerHTML = strHTML
run_button.disabled = True
run_button2.disabled = True
save_button.disabled = True
save_button2.disabled = True
change_button.disabled = True
Master_button.disabled = True
Master_button2.disabled = True
show_button.disabled = True
show_button2.disabled = True
HelpArea.InnerHTML = StartHelp
End Sub
Sub Window_OnUnload
On Error Resume Next
Set objFSO = CreateObject(“Scripting.FileSystemObject”)
objFSO.DeleteFile “temp_script.sm”
Set objFSO = Nothing
self.Close()
End Sub
Sub GetCategoryInfo()
On Error Resume Next
FilterValue = ComponentList.Value
Set objConnection = CreateObject(“ADODB.Connection”)
objConnection.Open “Provider= Microsoft.Jet.OLEDB.4.0; Data Source=tweakomatic.mdb”
Set objRecordset = CreateObject(“ADODB.Recordset”)
objRecordset.CursorLocation = adUseClient
objRecordset.Open “SELECT DISTINCT Tweaks.Category FROM Tweaks Where Component = ‘” & FilterValue & “‘ORDER BY Tweaks.Category” , objConnection, adOpenStatic, adLockOptimistic
objRecordSet.MoveFirst
CategoryArea.InnerHTML = “”
strHTML = “
strHTML = strHTML & “
Do Until objRecordSet.EOF
strHTML = strHTML & “
objRecordSet.Fields.Item(“Category”) & chr(34) &_
“>” & objRecordSet.Fields.Item(“Category”)
objRecordSet.MoveNext
Loop
strHTML = strHTML & “”
CategoryArea.InnerHTML = strHTML
TaskArea.InnerHTML = “
HelpArea.InnerHTML= Help2
ScriptArea.Value = “”
RetrievalArea.Value = “”
run_button.disabled = True
run_button2.disabled = True
save_button.disabled = True
save_button2.disabled = True
change_button.disabled = True
Master_button.disabled = True
Master_button2.disabled = True
objRecordSet.Close
objConnection.Close
End Sub
Sub GetTaskInfo()
On Error Resume Next
FilterValue = ComponentList.Value
FilterValue2 = CategoryList.Value
Set objConnection = CreateObject(“ADODB.Connection”)
objConnection.Open “Provider= Microsoft.Jet.OLEDB.4.0; Data Source=tweakomatic.mdb”
Set objRecordset = CreateObject(“ADODB.Recordset”)
objRecordset.CursorLocation = adUseClient
objRecordset.Open “SELECT DISTINCT Tweaks.Task FROM Tweaks Where Component = ‘” & FilterValue & “‘ AND Category = ‘” & FilterValue2 & “‘ORDER BY Tweaks.Task” , objConnection, adOpenStatic, adLockOptimistic
objRecordSet.MoveFirst
TaskArea.InnerHTML = “”
strHTML = “
Do Until objRecordSet.EOF
strHTML = strHTML & “
objRecordSet.Fields.Item(“Task”) & chr(34) &_
“>” & objRecordSet.Fields.Item(“Task”)
objRecordSet.MoveNext
Loop
strHTML = strHTML & “”
TaskArea.InnerHTML = strHTML
HelpArea.InnerHTML= Help3
ScriptArea.Value = “”
RetrievalArea.Value = “”
run_button.disabled = True
run_button2.disabled = True
save_button.disabled = True
save_button2.disabled = True
change_button.disabled = True
Master_button.disabled = True
Master_button2.disabled = True
objRecordSet.Close
objConnection.Close
End Sub
Sub GetHelpText()
FilterValue = TaskList.Value
Set objConnection = CreateObject(“ADODB.Connection”)
objConnection.Open “Provider= Microsoft.Jet.OLEDB.4.0; Data Source=tweakomatic.mdb”
Set objRecordset = CreateObject(“ADODB.Recordset”)
objRecordset.CursorLocation = adUseClient
objRecordset.Open “SELECT * FROM Tweaks WHERE Task = ‘” & FilterValue & “‘ ORDER BY Tweaks.Task” , objConnection, adOpenStatic, adLockOptimistic
objRecordSet.MoveFirst
Do Until objRecordSet.EOF
strHTML = objRecordSet.Fields.Item(“Help”)
strText2 = “On Error Resume Next” & vbCrLf
strLocation = objRecordSet.Fields.Item(“RegistryLocation”)
If StrLocation = “HKEY_CURRENT_USER” Then
strText = “HKEY_CURRENT_USER = &H80000001” & VbCrLf
strText2 = strText2 & “HKEY_CURRENT_USER = &H80000001” & VbCrLf
strText = strText & “strComputer = ” & chr(34) & DefaultComputer & chr(34) & VbCrLf
strText2 = strText2 & “strComputer = ” & chr(34) & DefaultComputer & chr(34) & VbCrLf
strText = strText & “Set objReg = GetObject(” & chr(34) & “winmgmts:\” & chr(34)
strText2 = strText2 & “Set objReg = GetObject(” & chr(34) & “winmgmts:\” & chr(34)
strText = strText & ” & strComputer & ” & chr(34) & “\root\default:StdRegProv” & chr(34) & “)” & VbCrLf
strText2 = strText2 & ” & strComputer & ” & chr(34) & “\root\default:StdRegProv” & chr(34) & “)” & VbCrLf
strText = strText & “strKeyPath = ” & chr(34) & objRecordSet.Fields.Item(“RegKey”) & chr(34) & VbCrLf
strText2 = strtext2 & “strKeyPath = ” & chr(34) & objRecordSet.Fields.Item(“RegKey”) & chr(34) & VbCrLf
strText = strText & “objReg.CreateKey ” & strLocation & “, strKeyPath” & VbCrLf
strText = strText & “ValueName = ” & chr(34) & objRecordSet.Fields.Item(“RegValue”) & chr(34) & VbCrLf
strText2 = strText2 & “ValueName = ” & chr(34) & objRecordSet.Fields.Item(“RegValue”) & chr(34) & VbCrLf
Else
strText = strText & “HKEY_LOCAL_MACHINE = &H80000002” & vbCrLf
strText2 = strText2 & “HKEY_LOCAL_MACHINE = &H80000002” & vbCrLf
strText = strText & “strComputer = ” & chr(34) & DefaultComputer & chr(34) & VbCrLf
strText2 = strText2 & “strComputer = ” & chr(34) & DefaultComputer & chr(34) & VbCrLf
strText = strText & “Set objReg = GetObject(” & chr(34) & “winmgmts:\” & chr(34)
strText2 = strText2 & “Set objReg = GetObject(” & chr(34) & “winmgmts:\” & chr(34)
strText = strText & ” & strComputer & ” & chr(34) & “\root\default:StdRegProv” & chr(34) & “)” & VbCrLf
strText2 = strText2 & ” & strComputer & ” & chr(34) & “\root\default:StdRegProv” & chr(34) & “)” & VbCrLf
strText = strText & “strKeyPath = ” & chr(34) & objRecordSet.Fields.Item(“RegKey”) & chr(34) & VbCrLf
strText2 = strText2 & “strKeyPath = ” & chr(34) & objRecordSet.Fields.Item(“RegKey”) & chr(34) & VbCrLf
strText = strText & “objReg.CreateKey ” & strLocation & “, strKeyPath” & VbCrLf
strText = strText & “ValueName = ” & chr(34) & objRecordSet.Fields.Item(“RegValue”) & chr(34) & VbCrLf
strText2 = strText2 & “ValueName = ” & chr(34) & objRecordSet.Fields.Item(“RegValue”) & chr(34) & VbCrLf
End If
strValueType = objRecordSet.Fields.Item(“DataType”)
If strValueType = “REG_DWORD” Then
strText = strText & “dwValue = ” & objRecordSet.Fields.Item(“DefaultValue”) & VbCrLf
strText = strText & “objReg.SetDWORDValue HKEY_CURRENT_USER, strKeyPath, ValueName, dwValue” & VbCrLf
strText2 = strText2 & “objReg.GetDWORDValue HKEY_CURRENT_USER, strKeyPath, ValueName, dwValue” & VbCrLf
strEcho = ” Wscript.Echo ” & chr(34) & FilterValue & “: ” & chr(34) & “, dwValue” & vbCrLf
Else
strText = strText & “strValue = ” & chr(34) & objRecordSet.Fields.Item(“DefaultValue”) & chr(34) & VbCrLf
strText = strText & “objReg.SetStringValue HKEY_CURRENT_USER, strKeyPath, ValueName, strValue” & VbCrLf
strText2 = strText2 & ” objReg.GetStringValue HKEY_CURRENT_USER, strKeyPath, ValueName, strValue” & VbCrLf
strEcho = ” Wscript.Echo ” & chr(34) & FilterValue & “: ” & chr(34) & “, strValue” & vbCrLf
End If
strText2 = strText2 & “If IsNull(strValue) Then” & VbCrLf
strText2 = strtext2 & ” Wscript.Echo ” & chr(34) & FilterValue & “: The value is either Null or could not be found in the registry.” & chr(34) & VbCrLf
strText2 = strText2 & “Else” & vbCrLf
strText2 = strText2 & strEcho
strText2 = strtext2 & “End If”
objRecordSet.MoveNext
Loop
HelpArea.InnerHTML = strHTML
ScriptArea.Value = strText
RetrievalArea.Value = strText2
run_button.disabled = False
run_button2.disabled = False
save_button.disabled = False
save_button2.disabled = False
change_button.disabled = False
Master_button.disabled = False
Master_button2.disabled = False
End Sub
Sub RunConfigurationScript()
Set objFS = CreateObject(“Scripting.FileSystemObject”)
strTmpName = “temp_script.sm”
Set objScript = objFS.CreateTextFile(strTmpName)
objScript.Write ScriptArea.Value
objScript.Close
Set objShell = CreateObject(“WScript.Shell”)
strCmdLine = “wscript.exe //E:VBScript ” & strTmpName
objShell.Run strCmdLine
strAction = “Configured value for ” & TaskList.Value
ActionArea.InnerHTML = strAction
End Sub
Sub RunRetrievalScript()
Set objFS = CreateObject(“Scripting.FileSystemObject”)
strTmpName = “temp_script.sm”
Set objScript = objFS.CreateTextFile(strTmpName)
objScript.Write RetrievalArea.Value
objScript.Close
Set objShell = CreateObject(“WScript.Shell”)
strCmdLine = “wscript.exe //E:VBScript ” & strTmpName
objShell.Run strCmdLine
strAction = “Retrieved value for ” & TaskList.Value
ActionArea.InnerHTML = strAction
End Sub
Sub SaveConfigurationScript()
Set objFSO = CreateObject(“Scripting.FileSystemObject”)
strSaveFileName = InputBox(“Please enter the complete path where you want to save your script (for example, C:\Scripts\MyScript.vbs).”)
If strSaveFileName = “” Then
Exit Sub
End If
Set objFile = objFSO.CreateTextFile(strSaveFileName)
objFile.WriteLine ScriptArea.Value
objFile.Close
strAction = “Saved ” & TaskList.Value & ” to ” & strSaveFileName
ActionArea.InnerHTML = strAction
End Sub
Sub SaveRetrievalScript()
Set objFSO = CreateObject(“Scripting.FileSystemObject”)
strSaveFileName = InputBox(“Please enter the complete path where you want to save your script (for example, C:\Scripts\MyScript.vbs).”)
If strSaveFileName = “” Then
Exit Sub
End If
Set objFile = objFSO.CreateTextFile(strSaveFileName)
objFile.WriteLine RetrievalArea.Value
objFile.Close
strAction = “Saved ” & TaskList.Value & ” to ” & strSaveFileName
ActionArea.InnerHTML = strAction
End Sub
Sub ChangeValue()
strCurrent = ScriptArea.Value
NewValue = InputBox(“Please enter the new value: “)
If NewValue = “” Then
Exit Sub
End If
ScriptType = Split(strCurrent, vbCrLf, -1)
If Left(ScriptType(6),2) = “dw” Then
If Not IsNumeric(NewValue) Then
Msgbox “You must enter a number when configuring DWORD registry values.”
Exit Sub
End If
ScriptType(6) = “dwValue = ” & NewValue
Else
ScriptType(6) = “strValue = ” & chr(34) & NewValue & chr(34)
End If
strReplace = Join(ScriptType, vbcrlf)
ScriptArea.Value = strReplace
strAction = “Changed value for ” & TaskList.Value & ” to ” & NewValue
ActionArea.InnerHTML = strAction
End Sub
Sub ChangeMasterFile()
If MasterFile = “” Then
strCurrentFile = “Currently you do not have an master script. ”
Else
strCurrentFile = “Your current master script is ” & MasterFile & “. ”
End If
strMessage = strCurrentFile & “Please enter the path to the new master script: ”
NewValue = InputBox(strMessage)
If NewValue = “” Then
Exit Sub
End If
Set objFSO = CreateObject(“Scripting.FileSystemObject”)
If objFSO.FileExists(NewValue) Then
MasterFile = NewValue
show_button.disabled = False
Else
CreateFile = Msgbox(“This file does not exist. Would you like to create it”,4)
If CreateFile = vbYes Then
objFSO.CreateTextFile(NewValue)
MasterFile = NewValue
show_button.disabled = False
End If
End If
strAction = “Changed name of master script to ” & NewValue
ActionArea.InnerHTML = strAction
End Sub
Sub ChangeRetrievalFile()
If RetrievalFile = “” Then
strCurrentFile = “Currently you do not have a retrieval master script. ”
Else
strCurrentFile = “You current retrieval master script is ” & RetrievalFile & “. ”
End If
strMessage = strCurrentFile & “Please enter the path to the new retrieval master script: ”
NewValue = InputBox(strMessage)
If NewValue = “” Then
Exit Sub
End If
Set objFSO = CreateObject(“Scripting.FileSystemObject”)
If objFSO.FileExists(NewValue) Then
RetrievalFile = NewValue
show_button2.disabled = False
Else
CreateFile = Msgbox(“This file does not exist. Would you like to create it”,4)
If CreateFile = vbYes Then
objFSO.CreateTextFile(NewValue)
RetrievalFile = NewValue
show_button2.disabled = False
End If
End If
strAction = “Changed name of retrieval master script to ” & NewValue
ActionArea.InnerHTML = strAction
End Sub
Sub SetComputerName()
strMessage = “Curently your scripts are using ” & DefaultComputer & ” as the default computer name. Please enter the new computer name. To run the script against the local computer, simply type a period (.) for the computer name: ”
NewValue = InputBox(strMessage)
If NewValue = “” Then
Exit Sub
End If
DefaultComputer = NewValue
strAction = “Changed default computer name to ” & NewValue
ActionArea.InnerHTML = strAction
End Sub
Sub MasterConfigurationScript()
Set objFSO = CreateObject(“Scripting.FileSystemObject”)
If MasterFile = “” Then
strCurrentFile = “Currently you do not have a master script. ”
strMessage = strCurrentFile & “Please enter the path to the new master script: ”
NewValue = InputBox(strMessage)
If NewValue = “” Then
Exit Sub
End If
If objFSO.FileExists(NewValue) Then
MasterFile = NewValue
show_button.disabled = False
Else
CreateFile = Msgbox(“This file does not exist. Would you like to create it”,4)
If CreateFile = vbYes Then
objFSO.CreateTextFile(NewValue)
MasterFile = NewValue
show_button.disabled = False
Else
Exit Sub
End If
End If
End If
Set objFile = objFSO.OpenTextFile(MasterFile, 8)
objFile.WriteLine Chr(39) & ” ” & TaskList.Value
objFile.WriteLine ScriptArea.Value
objFile.WriteLine vbCrLf & vbCrLf
objFile.Close
strAction = “Appended ” & TaskList.Value & ” to ” & MasterFile
ActionArea.InnerHTML = strAction
End Sub
Sub MasterRetrievalScript()
Set objFSO = CreateObject(“Scripting.FileSystemObject”)
If RetrievalFile = “” Then
strCurrentFile = “Currently you do not have a retrieval master script. ”
strMessage = strCurrentFile & “Please enter the path to the new master script: ”
NewValue = InputBox(strMessage)
If NewValue = “” Then
Exit Sub
End If
If objFSO.FileExists(NewValue) Then
RetrievalFile = NewValue
show_button2.disabled = False
Else
CreateFile = Msgbox(“This file does not exist. Would you like to create it”,4)
If CreateFile = vbYes Then
objFSO.CreateTextFile(NewValue)
RetrievalFile = NewValue
show_button2.disabled = False
Else
Exit Sub
End If
End If
End If
Set objFile = objFSO.OpenTextFile(RetrievalFile, 8)
objFile.WriteLine Chr(39) & ” ” & TaskList.Value
objFile.WriteLine RetrievalArea.Value
objFile.WriteLine vbCrLf & vbCrLf
objFile.Close
strAction = “Appended ” & TaskList.Value & ” to ” & RetrievalFile
ActionArea.InnerHTML = strAction
End Sub
Sub ShowConfigurationScript()
Set objShell = CreateObject(“WScript.Shell”)
strCmdLine = “notepad.exe ” & MasterFile
objShell.Run strCmdLine
strAction = “Opened file ” & MasterFile & ” in Notepad”
ActionArea.InnerHTML = strAction
End Sub
Sub ShowRetrievalScript()
Set objShell = CreateObject(“WScript.Shell”)
strCmdLine = “notepad.exe ” & RetrievalFile
objShell.Run strCmdLine
strAction = “Opened file ” & RetrievalFile & ” in Notepad”
ActionArea.InnerHTML = strAction
End Sub
© 版权声明
文章版权归作者所有，未经允许请勿转载。
相关文章
