April 2007 - Posts

SMSUtils.com Community Downloads

Do you have lots of folders/subfolders for your packages or advertisements?  We do.  It makes sense when you file them like that at the time you created them... but months later you wonder where you put that package in the folder structure?

There was a forum thread about this yesterday, and Matt Broadstock of smsutils.com pointed us to a community download.  You just have to edit the .txt file to have your primary site servername and site code, rename it back to .hta, and it's great.  I'm going to introduce this to my team this week!  Thanks Matt.

Posted by skissinger | with no comments
Filed under: ,

DameWare Remote Control - RCrumbaker Web Remote Console 3.21

If your company uses DameWare Remote Control as part of the full suite (NT Utilities), or Mini Remote Control, you can add a button to Ron Crumbaker's Web console to launch "dwrcc.exe", and it does not need to be installed locally.

Edit MachRest.asp, and add a button by your other buttons (about line 80-ish):
<INPUT id="Button731" style='WIDTH: 180px' type='button' value='DameWare RC' name='Btnl731'>

Then copy/paste the attached (Sub.txt) probably near the bottom, just before the </script>, after all of the other SUB/end Sub routines.

3 things need to be done

  1. In the attached sub routine, change the "YourSMSServerNameHere" to match your SMS server name.
  2. In the sub routine, if there may be local installations, comment/uncomment the correct line for strDMLocalFldr
  3. In the subroutine, it is assumed that in <yoursmsserver>\remote$, there will be a folder called "DWRCC", which will contain the files needed to run the remote control tool. I tested this using the demo version of Mini-remote, so attached is a directory listing of all the files; but I suspect you can do without some of the files (like the readme, etc.).  If you do not want to have a subfolder in \remote$, place the files/folder in another fileshare that people will have read-only access to, and change the subroutine line of strDMSourceFldr= to match.

Thanks to John Marcum and Glen Schebece for testing this for me.

Posted by skissinger | with no comments

MOFMaster

A few months ago, Dave Jaffe of www.SMSExpert.com asked if I would be interested in being "mofmaster@smsexpert.com"

I was honored and flattered to be asked, but was hesitant at first. I certainly didn't consider myself a 'master of all things sms_def.mof'

For the past few months I've been semi-anonymously answering email and posting replies to mof-related questions on the sms forums and groups sometimes as 'mofmaster', sometimes as myself with a signature.

I surprised myself in that I was able to answer most people's questions, or at least get them pointed toward a solution. As a result of my new-found confidence, I'm formally announcing mofmaster@smsexpert.com is me!

I know I am still nowhere near as knowledgeable about the mof as previous mofmasters, but the time has come to stop being anonymous, and 'fess up.

I'd like to thank the people at SMSExpert.com, the support from colleagues here, and my employer. They all deserve my thanks for various reasons.

Posted by skissinger | 7 comment(s)
Filed under:

Remove dependency on smssend.vbs - RCrumbaker Web Remote Tools v3.21

To make the page more portable, the "Refreshbtn_onclick" subroutine was replaced in our environment.  Replacing this section will remove the dependency on having "smssend.vbs" in the %windir% folder.

Edit Machrest.asp (make a backup first), and find Sub Refreshbtn_onClick.  Replace everything between Sub Refreshbtn_onClick and End Sub with this:

 dim CompName,wShell,objPing,smsclient
 CompName = trim(document.frmMain.txtValue.value)
 if len(trim(CompName)) = 0 then
  msgbox "Please type a Machine Name.",,"SMS Machine Policy"
 else
  Set WShell = CreateObject("WScript.Shell")
  Set objPing = GetObject("winmgmts://" & ServerName & "/root/default:PingPoller")
  objPing.Ping CompName, "100", "1", PingResult
  if PingResult <> 0 then
   msgbox "Machine did not respond to ping.",,"SMS Machine Policy"
   wscript.quit
  else
    err.clear
    Set smsClient = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_
    CompName & "\root\ccm:SMS_Client")
     if err.number <> 0 then
     msgbox "Unable to access " & CompName & vbcr &_
                   "Error: " & err.description,,"SMS Machine Policy"
           wscript.quit
   end if
    smsClient.RequestMachinePolicy
    smsclient.EvaluateMachinePolicy
    msgbox "Executed Remote SMS Machine Policy Request.",,"SMS Machine Policy"
  end if
 end if

Alternative Edit (something the ping part doesn't work right for me):

dim CompName,wShell,objPing,smsclient
 CompName = trim(document.frmMain.txtValue.value)
 if len(trim(CompName)) = 0 then
  msgbox "Please type a Machine Name.",,"SMS Machine Policy"
 else
  Set WShell = CreateObject("WScript.Shell")
    err.clear
    Set smsClient = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_
    CompName & "\root\ccm:SMS_Client")
     if err.number <> 0 then
     msgbox "Unable to access " & CompName & vbcr &_
                   "Error: " & err.description,,"SMS Machine Policy"
    else
    smsClient.RequestMachinePolicy
    smsclient.EvaluateMachinePolicy
    msgbox "Attempted to execute Remote SMS Machine Policy Request.",,"SMS Machine Policy"
  end if
 end if

April Fools Day listing

Bored? Trying to unwind/recover from mms? A listing of multiple April Fools day web sites. 

http://aprilfools.urgo.org/2007.html

Posted by skissinger | with no comments
Filed under: