Announcement

Collapse
No announcement yet.

Scriptomatic

Collapse
X
 
  • Filter
  • Time
  • Show
Clear All
new posts

  • Scriptomatic

    Hi all,

    First of all, thanks to everyone who has contributed tools, I've found many really useful.

    Just thought I would pass on something that I have come across that could be really useful for those who want to have a go at scripting. This can be used to make tools in Hyena.

    Microsoft have released a utility called Scriptomatic that automatically writes WMI (Windows Management Instrumentation) scripts.

    It can be downloaded here http://tinyurl.com/fk6q

    It's really easy to use, even if you haven't done much scripting before - like me!

    I won't say too much about it - have ago and you'll soon see just how much info it can produce.

    Once you have found some things you want Hyena top report on, you'll want to create a tool to run the script after you select a computer in Hyena.

    Below you will find a sample that will get you working. Like I said, I'm new to scripting too and I borrowed part of the script from elsewhere. As a result there may be a few lines that are redundant - but it does work without errors. If you can improve on it then post it back!

    I have listed two tools that do the same job, but output differently. The first one outputs to a dos windows and the second one will output to a windows dialog box. Just to show that there are two ways of doing things.

    This one outputs to a dos window:

    Menu Caption= Cmd Lookup video mode properties
    Command line= cmd /c cls & cscript.exe "\\server\share\display.vbs" //I //NoLogo %E% & pause

    This one outputs to a windows dialog box:

    Menu Caption= Win lookup video mode
    Command line= wscript.exe "\\server\share\display.vbs" //I //NoLogo %E%

    *Change the \\server\share to the location where you will save the file display.vbs

    Copy the text below into a file called Display.vbs

    ' start of script
    ' get the arguments
    Dim objArgs : Set objArgs = WScript.Arguments ' create object with collection

    ' determine if an argument was passed
    If objArgs.Count >= 1 Then
    strComputer = objArgs(0) 'assign the passed computer name to a variable
    Else ' prompt for a computer, or the current domain
    strComputer = InputBox("Enter the name of the computer where you wish to change to local admin account." & _
    vbCrLf & vbCrLf & "Blank out this name and click ""OK"" to do the entire <" & strDomain & "> domain.","Enter computer name",WshNetwork.ComputerName)
    If strComputer = "" Then
    ' ensure the user wants to apply this to the entire domain
    strResponse = MsgBox ("I'm sorry, but I need clarification." & vbCrLf & vbCrLf & _
    "If you wish to scan the <" & strDomain & "> domain, click 'Yes'" & vbCrLf & vbCrLf & _
    "If you wish to quit this scan/script, click 'No'", vbYesNo + vbExclamation + vbDefaultButton2, "Please confirm...")
    ' ensures the user wanted to quit
    If strResponse = vbNo Then
    WScript.Quit
    End If
    End If
    End If

    On Error Resume Next

    Set objWMIService = GetObject("winmgmts:\" & strComputer & "\root\cimv2")
    Set colItems = objWMIService.ExecQuery("Select * from Win32_DisplayControllerConfiguration",,48)
    For Each objItem in colItems
    Wscript.Echo "VideoMode: " & objItem.VideoMode
    Next
    'end of script


    Hope you find this useful.

  • #2
    Re: Scriptomatic

    We use a standard desktop wallpaper that displays a computer misuse act notice. Some users change the wallpaper. Here is a tool to check what wallpapers are being used for each account on the selected pc.


    Menu:
    Desktop Wallpaper

    Command line:
    cmd /c cls & cscript.exe "\\server\share\desktop.vbs" //I //NoLogo %E% & pause


    Paste the code below into notepad and save it as a file called desktop.vbs in the location specified in the command line above:


    ' get the arguments
    Dim objArgs : Set objArgs = WScript.Arguments ' create object with collection

    ' determine if an argument was passed
    If objArgs.Count >= 1 Then
    strComputer = objArgs(0) 'assign the passed computer name to a variable
    Else ' prompt for a computer, or the current domain
    strComputer = InputBox("Enter the name of the computer where you wish to change to local admin account." & _
    vbCrLf & vbCrLf & "Blank out this name and click ""OK"" to do the entire <" & strDomain & "> domain.","Enter computer name",WshNetwork.ComputerName)
    If strComputer = "" Then
    ' ensure the user wants to apply this to the entire domain
    strResponse = MsgBox ("I'm sorry, but I need clarification." & vbCrLf & vbCrLf & _
    "If you wish to scan the <" & strDomain & "> domain, click 'Yes'" & vbCrLf & vbCrLf & _
    "If you wish to quit this scan/script, click 'No'", vbYesNo + vbExclamation + vbDefaultButton2, "Please confirm...")
    ' ensures the user wanted to quit
    If strResponse = vbNo Then
    WScript.Quit
    End If
    End If
    End If

    On Error Resume Next

    Set objWMIService = GetObject("winmgmts:\" & strComputer & "\root\cimv2")

    set colItems = objWMIService.ExecQuery("Select * from Win32_Desktop",,48)
    For Each objItem in colItems
    Wscript.Echo strcomputer & " " & objItem.Wallpaper
    Next

    Comment

    Working...
    X