none
SCCM 2007 RRS feed

  • Question

  • Bonjour,

    utilisateur de SCCM2007 avec plusieurs code site du type t00 t01 etc.. , je souhaiterai savoir comment changer de code site sur un ordinateur mais à distance soit Bdr soit SCCM Client

    Merci


    • Modifié pierrep83 lundi 12 janvier 2015 11:08
    lundi 12 janvier 2015 11:08

Toutes les réponses

  • Bonjour

    j'ai un script en vbs pour une machine en local

    Set smsclient = CreateObject("Microsoft.SMS.Client")
    smsclient.SetAssignedSite("xxx")

    ==========

    a distance

    ===

    'Variables Section
    Dim sSiteCode
    Dim sMachine

    'SiteCode Variable
    sSiteCode = InputBox("Veuillez spécifier le Site Code :","Assigned Site","xxx")

    sMachine = InputBox("Veuillez spécifier le nom de la machine :","Assigned Site","Computer Name")
    'wscript.echo "Changing Site Code: " & sMachine & " - " & sSiteCode
    ChangeSiteCode(sMachine)

    wscript.echo "Traitement terminé."

    '---------------------------------------------------------------------------------------
    Function ChangeSiteCode(strHost)
      'Connect to the Remote Computer Namespace
      Set oSCCMNamespace = GetObject("winmgmts://" & sMachine & "/root/ccm")
      Set oInstance = oSCCMNamespace.Get("SMS_Client")
      '----------------------------------------------------------------------------------
    '  Set result = oInstance.ExecMethod_("GetAssignedSite")
    '  wscript.echo sMachine & " Current Assigned Site is: " & result.sSiteCode
      'Reassign the site code
    ' Set inParam =smsClient.Methods_.Item("SetAssignedSite").inParameters.SpawnInstance_()
    ' inParam.sSiteCode = "XYZ"
    ' Set Newresult = smsClient.ExecMethod_("SetAssignedSite", inParam)
    ' Set NewSite = smsClient.ExecMethod_("GetAssignedSite")
    ' wscript.echo strComputer & " New Assigned Site is : " & NewSite.sSiteCode
         '----------------------------------------------------------------------------------
      set oParams = oInstance.Methods_("SetAssignedSite").inParameters.SpawnInstance_()
      'Change the Site Code
      oParams.sSiteCode = sSiteCode
      oSCCMNamespace.ExecMethod "SMS_Client", "SetAssignedSite", oParams
      'Set Newresult = oInstance.ExecMethod_("SetAssignedSite", oParams)
      set oSCCMNamespace = Nothing
    End Function

    ====

    a tester svp


    Partager c'est avancer : Votez!SVP

    • Proposé comme réponse Nabil-IT mardi 17 février 2015 13:21
    jeudi 12 février 2015 10:08
  • Bonjour

    un script qui fait appel a un fichier txt avec les noms des machines a cibler pour le changement du site ===

    nom du fichier exemple sur le c:

    c:\AssignedSiteMachine.txt

    ==

    'Variables Section
    Dim sSiteCode
    Dim sMachine

    Dim objFSO
    Const ForReading = 1
    'Constants Section
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    'This is the file to read the names to change from
    Set objTextFile = objFSO.OpenTextFile("c:\AssignedSiteMachine.txt", ForReading)
    'SiteCode Variable
    sSiteCode = InputBox("Veuillez spécifier le Site Code :","Assigned Site","OT2")
    Do Until objTextFile.AtEndOfStream
     sMachine = objTextFile.Readline
     'wscript.echo "Changing Site Code: " & sMachine & " - " & sSiteCode
     ChangeSiteCode(sMachine)
    Loop

    wscript.echo "Traitement terminé."

    Function ChangeSiteCode(strHost)
     'Connect to the Remote Computer Namespace
     set oSCCMNamespace = GetObject("winmgmts://" & sMachine & "/root/ccm")
     Set oInstance = oSCCMNamespace.Get("SMS_Client")
     set oParams = oInstance.Methods_("SetAssignedSite").inParameters.SpawnInstance_()
     'Change the Site Code
     oParams.sSiteCode = sSiteCode
     oSCCMNamespace.ExecMethod "SMS_Client", "SetAssignedSite", oParams
     set oSCCMNamespace = Nothing
    End Function


    Partager c'est avancer : Votez!SVP

    • Proposé comme réponse Nabil-IT mardi 17 février 2015 13:21
    jeudi 12 février 2015 10:09
  • bonjour

    des news ?

    meci


    Partager c'est avancer : Votez!SVP

    mardi 17 février 2015 13:22
  • Bonjour,

    Je propose une solution avec Windows Powershell version 2.0 ou supérieure.

    Changement du site SCCM pour un client en local :

    Changement du site SCCM pour un client distant :

    1. Il faut d'abord activer WINRM sur le Client :

    2. Ensuite la commande Windows Powershell Invoke-Command lancée depuis un autre ordinateur permettra de changer le code site SCCM du client distant :

    Invoke-Command -ComputerName NYC-CL1 -ScriptBlock { (New-Object -ComObject Microsoft.SMS.Client).SetAssignedSite('ATL') }

    Cordialement,
    Charlie


    Charlie Dancoisne - Independent Consultant & Trainer


    mardi 17 février 2015 16:00