Shaun Cassells at MyITForum.com - All Comments

Shaun Cassells at MyITForum.com - All Commentshttp://myitforum.com/cs2/blogs/scassells/default.aspxSMS 2003 and ConfigMgr 2007, PowerShell, Scripting, Finance, Fitness and FunenCommunityServer 2007.1 SP2 (Build: 31113.47)re: Sci-Fi Reading Listhttp://myitforum.com/cs2/blogs/scassells/archive/2011/11/30/sci-fi-reading-list.aspx#160307Wed, 30 Nov 2011 15:52:16 GMT8e8f7986-475c-475d-bdc9-a1b3a63b955b:160307scassells<p>hahaha, Philip K. D I C K... his last name is slang and blocked by the blog software :)</p> <img src="http://myitforum.com/cs2/aggbug.aspx?PostID=160307" width="1" height="1">re: Personal Goal: Fitness 2011 challenge – 70 runs in 70 dayshttp://myitforum.com/cs2/blogs/scassells/archive/2011/03/03/personal-goal-fitness-2011-challenge-70-runs-in-70-days.aspx#156487Fri, 08 Apr 2011 19:27:38 GMT8e8f7986-475c-475d-bdc9-a1b3a63b955b:156487scassells<p>Just to do a little update.  42 days done.</p> <p><a rel="nofollow" target="_new" href="http://www.mapmyrun.com/profile/26465/">www.mapmyrun.com/.../26465</a></p> <img src="http://myitforum.com/cs2/aggbug.aspx?PostID=156487" width="1" height="1">re: SMS 2003 Client Health Startup Script v4.19http://myitforum.com/cs2/blogs/scassells/archive/2009/04/14/sms-2003-client-health-startup-script-v4-19.aspx#144308Thu, 14 Jan 2010 06:20:24 GMT8e8f7986-475c-475d-bdc9-a1b3a63b955b:144308Shane<p>The GetOS function doesn't seem 100% correct as suggested by someone else with the problem with 64-bit XP.</p> <p>Is the first few lines correct?</p> <p> sOStype = WSHShell.RegRead("HKLM\SYSTEM\CurrentControlSet\Control\ProductOptions\ProductType")</p> <p> sOSversion = WSHShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\CurrentVersion")</p> <p> sOSType = Trim(sOSversion)</p> <p>You get the ProductType, the CurrentVersion, and then set the ProductType to equal the trimmed value of CurrentVersion.</p> <p>Perhaps the following would work better and more correctly???? Disclaimer: I'm not a programmer.</p> <p>Sub GetOs()</p> <p>            On ERROR Resume Next</p> <p>            COLLECTMSG "GetOs",">", Null</p> <p>            Err.clear</p> <p>            sOStype = WSHShell.RegRead("HKLM\SYSTEM\CurrentControlSet\Control\ProductOptions\ProductType")</p> <p>            sOSversion = WSHShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\CurrentVersion")</p> <p>            sOSversion = Trim(sOSversion) </p> <p>            If Err <> 0 Then</p> <p>                        CLIENTSTATE = CLIENTSTATE + 1</p> <p>                        GetOsVersionNumber = "Unknown NTx" ‘Where else is GetOSVersionNumber used?</p> <p>                        ' Could not determine NT version</p> <p>                        Exit Sub ' >>></p> <p>            End If</p> <p>            Select Case sOSversion</p> <p>                        Case 6.1</p> <p>                                    If sOStype="WinNT" Then Os = "Windows 7"</p> <p>                                    If sOStype="WinNT" Then IsOS ="workstation" Else IsOS ="server"</p> <p>                                    Exit Sub</p> <p>                        Case 6</p> <p>                                    If sOStype="WinNT" Then Os = "Vista"</p> <p>                                    If sOStype="WinNT" Then IsOS ="workstation" Else IsOS ="server"</p> <p>                                    Exit Sub</p> <p>                        Case 5</p> <p>                                    If sOStype="WinNT" Then Os= "2000"</p> <p>                                    If sOStype="WinNT" Then IsOS ="workstation" Else IsOS ="server"</p> <p>                                    Exit Sub</p> <p>                        Case 5.1</p> <p>                                    If sOStype="WinNT" Then Os = "XP"</p> <p>                                    If sOStype="WinNT" Then IsOS ="workstation" Else IsOS ="server"</p> <p>                                    Exit Sub</p> <p>                        Case 5.2</p> <p>                                    If sOStype="WinNT" Then Os = "XPx64"</p> <p>                                    If sOStype="WinNT" Then IsOS ="workstation" Else IsOS ="server"</p> <p>                                    Exit Sub</p> <p>            End Select</p> <p>End Sub</p> <img src="http://myitforum.com/cs2/aggbug.aspx?PostID=144308" width="1" height="1">re: ERROR: Cannot find path for destination inbox SMS_AMT_PROXY_COMPONENT on server REGISTRYhttp://myitforum.com/cs2/blogs/scassells/archive/2009/07/20/error-cannot-find-path-for-destination-inbox-sms-amt-proxy-component-on-server-registry.aspx#144193Mon, 11 Jan 2010 16:19:14 GMT8e8f7986-475c-475d-bdc9-a1b3a63b955b:144193mhughes2<p>Found it. On 64bit Server 2008, it's located under HKLM\Software\Wow6432Node\Microsoft\SMS\</p> <img src="http://myitforum.com/cs2/aggbug.aspx?PostID=144193" width="1" height="1">re: ERROR: Cannot find path for destination inbox SMS_AMT_PROXY_COMPONENT on server REGISTRYhttp://myitforum.com/cs2/blogs/scassells/archive/2009/07/20/error-cannot-find-path-for-destination-inbox-sms-amt-proxy-component-on-server-registry.aspx#144192Mon, 11 Jan 2010 16:00:19 GMT8e8f7986-475c-475d-bdc9-a1b3a63b955b:144192mhughes2<p>I don't even have the HKLM\SOFTWARE\Microsoft\SMS path in the registry of a Server 2008 secondary site server. I'm assuming that's bad. Can I simply copy that portion over (after making edits to the file paths referenced throughout) from a server that is functioning ok? Will it matter that the other functioning server is a 2003 server?</p> <img src="http://myitforum.com/cs2/aggbug.aspx?PostID=144192" width="1" height="1">re: SMS 2003 Client Health Startup Script v4.19http://myitforum.com/cs2/blogs/scassells/archive/2009/04/14/sms-2003-client-health-startup-script-v4-19.aspx#143189Mon, 23 Nov 2009 23:22:21 GMT8e8f7986-475c-475d-bdc9-a1b3a63b955b:143189jdavis375<p>I noted in your script (v. 4.19) you set the initial value of the "CLIENTSTATE" variable to 0. In the original client health script from DudeWorks (v 4.11), the initial value of that variable is 1.</p> <p>Which should this be? It makes sense that it should be "0", but I wanted to make sure.</p> <p>Also, in use at another client, a friend of mine noted that there is an error on line 559...there is an extraneous "End if" that was causing the script to error out.</p> <p>thanks again for your work on the script. It really is fantastic.</p> <img src="http://myitforum.com/cs2/aggbug.aspx?PostID=143189" width="1" height="1">re: SMS 2003 Client Health Startup Script v4.19http://myitforum.com/cs2/blogs/scassells/archive/2009/04/14/sms-2003-client-health-startup-script-v4-19.aspx#142211Mon, 19 Oct 2009 09:28:51 GMT8e8f7986-475c-475d-bdc9-a1b3a63b955b:142211speedyb<p>Hello,</p> <p>Found a little problem in the script. XP 64Bits is not supported and the select case was not fully functional.</p> <p>This is the new select for the getOS function</p> <p>=====</p> <p> Select Case sOSversion</p> <p> Case "6.1"</p> <p> Os = "Windows 7"</p> <p> isOS="workstation"</p> <p> Exit Sub</p> <p> Case "6"</p> <p> Os = "Vista"</p> <p> isOS="workstation"</p> <p> Exit Sub</p> <p> Case "5"</p> <p> OS= "2000"</p> <p> isOS="workstation"</p> <p> Case "5.1"</p> <p> Os = "XP"</p> <p> isOS="workstation"</p> <p> Exit Sub</p> <p> Case "5.2"</p> <p> if sOSProductName = "Microsoft Windows XP" then</p> <p> Os = "XP 64 Bits"</p> <p> isOS="workstation"</p> <p> Exit Sub</p> <p> else</p> <p> Os = "2003"</p> <p> isOS="server"</p> <p> WSHShell.LogEvent EVENT_INFORMATION, "SMS STARTUP SCRIPT - Do not run on servers@ " & Now</p> <p> COLLECTMSG "GetOs","ERROR", "Server OS Quiting"</p> <p> CleanUp(err)</p> <p> Exit Sub</p> <p> End If</p> <p> End Select</p> <p>=====</p> <img src="http://myitforum.com/cs2/aggbug.aspx?PostID=142211" width="1" height="1">re: The Case of the Missing Advertisement and a Restarthttp://myitforum.com/cs2/blogs/scassells/archive/2009/07/16/the-case-of-the-missing-advertisement-and-a-restart.aspx#141881Wed, 07 Oct 2009 16:58:39 GMT8e8f7986-475c-475d-bdc9-a1b3a63b955b:141881jnelson<p>BTW, I just wrote a query that will use some m@d bitwise SQL to enumerate all of the ProgramFlags on the fly instead of having to use CALC.  I wrote it with v_Program in mind, but it would appear that v_AdvertisementInfo.ProgramFlags points to the same flags. If you're interested, it's here -> <a rel="nofollow" target="_new" href="http://myitforum.com/cs2/blogs/jnelson/archive/2009/10/06/141863.aspx">myitforum.com/.../141863.aspx</a></p> <p>Number2 (John Nelson)</p> <img src="http://myitforum.com/cs2/aggbug.aspx?PostID=141881" width="1" height="1">re: SMS 2003 Client Health Startup Script v4.19http://myitforum.com/cs2/blogs/scassells/archive/2009/04/14/sms-2003-client-health-startup-script-v4-19.aspx#138656Fri, 19 Jun 2009 07:49:37 GMT8e8f7986-475c-475d-bdc9-a1b3a63b955b:138656speedyb<p>Did some more hobbying arround and came up with the following</p> <p>Made changes are:</p> <p>If WKS_ASSIGNSITECODE is not equal to AUTO have the sitecode set in the client to the requested</p> <p>If the installation is still ongoing in a different site ( PXEInstallationSite ) the reassignment will not occur and the script will exit.</p> <p>' =============================================================================</p> <p>' Method:       CHK_ASSIGNMENT</p> <p>' Description:  Checks Client Site Assignment</p> <p>Dim PXEInstallationSite = "S01"</p> <p>' =============================================================================</p> <p>Sub CHK_ASSIGNMENT</p> <p> On ERROR Resume Next</p> <p> Err.clear</p> <p> COLLECTMSG "CHK_ASSIGNMENT",">",NULL</p> <p> Dim oSMSClient</p> <p> Set oSMSClient = CreateObject ("Microsoft.SMS.Client")</p> <p> If err.Number<>0 Then</p> <p> COLLECTMSG "CHK_ASSIGNMENT","ERROR", Err.description</p> <p> COLLECTMSG "CHK_ASSIGNMENT","Could not create SMS Client Object - Quitting", Null</p> <p> Else</p> <p> ' BSt modification start</p> <p> Dim mySMSSite</p> <p> mySMSSite = oSMSClient.GetAssignedSite</p> <p> if mySMSSite = PXEInstallationSite and objFSO.FolderExists("c:\_SMSTaskSequence") then</p> <p> wscript.quit</p> <p> End if</p> <p> ' BSt modification end</p> <p> If Len(mySMSSite) = 0 Then</p> <p> CLIENTSTATE = CLIENTSTATE + 1</p> <p> RegCounter "CHK_ASSIGNMENT",1</p> <p> If WKS_ASSIGNSITECODE = "AUTO" Then</p> <p>'have the client determine from AD or SLP appropraite site code</p> <p>oSMSClient.ReAssignSite </p> <p>COLLECTMSG "CHK_ASSIGNMENT", "Error - Client not installed correctly - Setting AUTO", Null StrERRType=StrERRType & "ASSIGNMENT_"</p> <p> Else</p> <p> oSMSClient.SetAssignedSite(WKS_ASSIGNSITECODE)</p> <p>COLLECTMSG "CHK_ASSIGNMENT", "Error - Client not installed correctly - Setting " & WKS_ASSIGNSITECODE, Null StrERRType=StrERRType & "ASSIGNMENT_"</p> <p> End If</p> <p>     Else</p> <p>     COLLECTMSG "CHK_ASSIGNMENT",">", "Assigned Site = " & oSMSClient.GetAssignedSite</p> <p> End If</p> <p> End If</p> <p> Set oSMSClient=Nothing</p> <p>End Sub</p> <img src="http://myitforum.com/cs2/aggbug.aspx?PostID=138656" width="1" height="1">re: SMS 2003 Client Health Startup Script v4.19http://myitforum.com/cs2/blogs/scassells/archive/2009/04/14/sms-2003-client-health-startup-script-v4-19.aspx#138403Mon, 15 Jun 2009 18:35:06 GMT8e8f7986-475c-475d-bdc9-a1b3a63b955b:138403speedyb<p>Hello Shaun,</p> <p>I was using the script up to version 4.11 from dudeworks. Since we love the working of the script I was please to find that development is continued for this script.</p> <p>I have 2 questions:</p> <p>Question 1:</p> <p>You don't use a fixed site code.</p> <p>[quote]</p> <p>'AUTO because AD is extended with servers published</p> <p>WKS_ASSIGNSITECODE = "AUTO"</p> <p>[/quote] </p> <p>Doesn't this mean that traveling users are constantly reassigned between different SMS / SCCM Sites, or must I then use a fixed WKS_ASSIGNSITECODE?</p> <p>Question 2:</p> <p>With SCCM when using OS Deployment the client is assigned to the site which the server PXE Booted from. In our environment we have 2 servers in line. Primary1 is our management server which we used to manage the environment. This server also handles PXE. Primary2 is the site which all clients are assigned to. When we use the startup script to asign all clients ( fixed or AUTO ) the deployment fails with a BSOD. Is there a way to prevent this reassignment when an installation is ongoing?</p> <p>I hope you can help me with these questions. I think I might have a solution for question 2, but I don't know the usability of it. This is my solution based on script 4.11</p> <p>' =============================================================================</p> <p>' Method:       CHK_InstallationComplete</p> <p>' Description:  Checks if the installation of the machine is complete.</p> <p> 'BSt: 20090615</p> <p> ' If the machine is currently installing the installation will fail. Added a check to prevent this.</p> <p> ' The script will check the following:</p> <p> ' * Current site is S50 = Installation Site</p> <p> ' * the folder c:\_SMSTaskSequence is non existing</p> <p>' </p> <p>Dim PXEInstallationSite = "S01"</p> <p>=============================================================================</p> <p>Sub CHK_InstallationComplete()</p> <p> COLLECTMSG "CHK_InstallationComplete",">",Null</p> <p> Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & Computer & "\root\default:StdRegProv")</p> <p> strKeyPath = "SOFTWARE\Microsoft\SMS\Mobile Client"</p> <p> strValueName = "AssignedSiteCode"</p> <p> oReg.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,CURAssignedSite</p> <p> If CURAssignedSite = PXEInstallationSite Then</p> <p> if objFSO.FolderExists("c:\_SMSTaskSequence") then</p> <p> COLLECTMSG "CHK_InstallationComplete","Installation Status | Still Installing",Null</p> <p> installationComplete = false</p> <p> Else</p> <p> COLLECTMSG "CHK_InstallationComplete","Installation Status | Installation Complete",Null</p> <p> installationComplete = True</p> <p> End If</p> <p> End if</p> <p>End Sub</p> <p>Looking forward to hear you opinion about this solution.</p> <p>Regards,</p> <p>Bas Steelooper</p> <img src="http://myitforum.com/cs2/aggbug.aspx?PostID=138403" width="1" height="1">re: 3 methods to open a System Context command prompthttp://myitforum.com/cs2/blogs/scassells/archive/2009/05/07/3-methods-to-open-a-system-context-command-prompt.aspx#137820Fri, 05 Jun 2009 16:04:04 GMT8e8f7986-475c-475d-bdc9-a1b3a63b955b:137820cnackers<p>looks like you can do psexec -i -s powershell.exe as well, you need the -i though to see the powershell screen</p> <img src="http://myitforum.com/cs2/aggbug.aspx?PostID=137820" width="1" height="1">re: Marriott Rewards: Not So Rewardinghttp://myitforum.com/cs2/blogs/scassells/archive/2009/04/03/marriott-rewards-not-so-rewarding.aspx#134552Tue, 14 Apr 2009 18:55:49 GMT8e8f7986-475c-475d-bdc9-a1b3a63b955b:134552twilch<p>Hey Shaun,</p> <p>   When I first started consulting, I found this out real quick. Most of the chains won't award the points if going through these discount sites. I used Expedia and tried others and same thing. Pretty much have to pay the upcharge of going through the chains website to get the points. So I see it like this:</p> <p>Personal travel with no points- discount sites</p> <p>Business travel- Chain hotel rates, get points. </p> <p>Then after enough business travel, use the points up for personal travels.</p> <p>Troy</p> <img src="http://myitforum.com/cs2/aggbug.aspx?PostID=134552" width="1" height="1">re: SMS 2003 Client Health Startup Script v4.18http://myitforum.com/cs2/blogs/scassells/archive/2009/01/28/sms-2003-client-health-startup-script-v4-18.aspx#134304Sat, 11 Apr 2009 15:42:21 GMT8e8f7986-475c-475d-bdc9-a1b3a63b955b:134304kingskawn<p>Hi,</p> <p>Thanks for this script but can you tell us how to make it SCCM compatible because in the title it says that it's working on sms2003 and under it says that for sccm there must be some modifications. What are these?</p> <p>Thanks</p> <img src="http://myitforum.com/cs2/aggbug.aspx?PostID=134304" width="1" height="1">re: SMS 2003 Client Health Startup Script v4.18http://myitforum.com/cs2/blogs/scassells/archive/2009/01/28/sms-2003-client-health-startup-script-v4-18.aspx#132100Thu, 05 Mar 2009 00:54:34 GMT8e8f7986-475c-475d-bdc9-a1b3a63b955b:132100scassells<p>Hi MeenEnta</p> <p>   Good question.  In our environment we have removed local admin rights away from users.  Because of this we add in a Domain Group to allow a specific set of people to have access to the machine as administrators.   </p> <p>If this is not something you need in your environment make sure do_CHK_LOCALADMIN is set to FALSE.</p> <p>Best</p> <img src="http://myitforum.com/cs2/aggbug.aspx?PostID=132100" width="1" height="1">re: SMS 2003 Client Health Startup Script v4.18http://myitforum.com/cs2/blogs/scassells/archive/2009/01/28/sms-2003-client-health-startup-script-v4-18.aspx#132098Wed, 04 Mar 2009 22:23:37 GMT8e8f7986-475c-475d-bdc9-a1b3a63b955b:132098MeenEnta<p>In the script you have this line</p> <p>WKS_admACCT = "putyourshere" 'SpecIfy SMS Admin account (group)</p> <p>I'm not sure what to put there, is it my logon "username" as I am the administrator or something else?</p> <p>Thx Shaun.</p> <p>Also my other email is gkamenjati@valleywater.org</p> <img src="http://myitforum.com/cs2/aggbug.aspx?PostID=132098" width="1" height="1">