Auteur de questions
SCCM 2007

Question
-
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
-
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 sMachineDim 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)
Loopwscript.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 FunctionPartager c'est avancer : Votez!SVP
- Proposé comme réponse Nabil-IT mardi 17 février 2015 13:21
-
-
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
- Modifié Charlie Dancoisne - SQL - SCCM - Powershell mardi 17 février 2015 16:04 Erreur de syntaxe. Pfff