Bonjour à tous,
J'aimerai modifier et fusionner 2 scripts. Le but est d'appliquer le bon "OSDcomputername" durant le déploiement de windows 7 avec sccm2012.
Pour l'instant les scripts ne font qu'afficher le résultat. et travail indépendamment.
Comment faire pour que le script 2 recherche le nom de la machine en rapport avec le serialnumber trouvé dans le script 1.
Le computer name est associé au serialnumber dans une db.
Le script 1: recherche le serialnumber du pc.
Le script 2: Le serial number est recherché dans une db(web) et affiche le nom de la machine qui correspond.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10 strComputer = "." Set objWMIService = GetObject("winmgmts:\root\cimv2") Set PathVariables = objWMIService.ExecQuery( "Select * from Win32_Bios") For Each EnvVar in PathVariables Wscript.Echo "Serial: " & EnvVar.SerialNumber Next
Le script final sera ajouté dans la task sequence.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36 Function GetComputerName(strSerial) 'On Error Resume Next Dim strURL strURL = "http://xxxx.xxx.xxxx:16001/u_workstation.do?XML&sysparm_action=getRecords&sysparm_query=serial_number="+strSerial+"&displayvariables=false" 'Create XMLHTTP/ServerXMLHTTP/WinHttprequest object 'You can use any of these three objects. Set http = CreateObject("MSXML2.XMLHTTP") 'Set http = CreateObject("MSXML2.ServerXMLHTTP.6.0") 'Open URL As POST request http.Open "POST", strURL, False http.setRequestHeader "Content-Type", "application/xml" 'Send the form data To URL As POST binary request 'http.send "serial_number=" + strSerial http.send 'Get a result of the script which has received upload 'GetComputerName = http.responseText Dim XmlDoc2 Set XmlDoc2 = CreateObject("Msxml2.DOMDocument") XmlDoc2.async = false If xmlDoc2.loadXML(http.responseText) Then Dim ElemList 'as new XmlDoc.SelectSingleNode("xmlNode") Set ElemList = XmlDoc2.SelectSingleNode("xml/u_workstation/name") GetComputerName = ElemList.Text Else GetComputerName = "null" End If End Function
Merci beaucoup d'avance
Partager