SCCM – Josh's IT-Blog

Collect warranty informations with SCCM

28. December 201111. November 2011 by Burkard Josh

a few days ago my boss liked to see a list of all our computers with the warranty informations like purchase date and warranty end date. So i wrote this little vbscript, witch collect the information from the manufacturers webpage (in our case HP, Dell and Maxdata) and write it to a MIF file.

Please have a look at the script or download it here:

' ===========================================================================================
'
'   Script Information
'
'   Title:              WarrantyInformations.vbs
'   Author:             Josua Burkard
'   Date:               16.11.2011
'   Description:        get Warranty Informations from HP, Dell, or MaxData Computers
'                       - writes the information to SCCM MIF file
'
' ===========================================================================================

' ===========================================================================================
' Constants
' ===========================================================================================
Const CREDENTIALS_FOR_SERVER = 0
Const CREDENTIALS_FOR_PROXY = 1
Const HTTPREQUEST_PROXYSETTING_PROXY = 2
Const NETWORK_CONNECTIONS = &amp;H31&amp;
Const ForAppending        = 8
Set objShell = CreateObject("Wscript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Const strMifFile = "\WarrantyInfo.mif"

strSerialNumber = GetSerialNumber()
strManufacturer = GetManufacturer()

' ===========================================================================================
' Start Test
' ===========================================================================================
' strSerialNumber = "30326050014"
' strManufacturer = "MAXDATA"
' ===========================================================================================
' End Test
' ===========================================================================================
If strManufacturer = "Hewlett-Packard" OR strManufacturer = "HP" Then
	arrWarranty = GetHPWarranty(strSerialNumber)
ElseIf strManufacturer = "Dell Inc." Then
	If Left(strSerialNumber, 1) = "." Then
		strSerialNumber = GetBiosSerialNumber()
	End If
	arrWarranty = GetDellWarranty(strSerialNumber)
ElseIf UCase(strManufacturer) = "MAXDATA" Then
 	arrWarranty = GetMaxdataWarranty(strSerialNumber)
ElseIf Left(UCase(GetBiosVersion()), 6) = "MAXDAT" Then
	' Manufacturer is 'MaxData' but Board Information says 'Intel'
	strBiosSerialNumber = GetBiosSerialNumber()
	arrWarranty = GetMaxdataWarranty(strBiosSerialNumber)
Else
	' Other or unknown manufacturer
	' GetBiosInfo
	Wscript.Quit
End If

' ===========================================================================================
' Write Temp File
' ===========================================================================================
strTempDir = objShell.ExpandEnvironmentStrings("%TEMP%")
If objFSO.FileExists(strTempDir &amp; strMifFile) Then
	objFSO.DeleteFile(strTempDir &amp; strMifFile)
End If

Set objMifFile = objFSO.OpenTextFile(strTempDir &amp; strMifFile, ForAppending, True)
objMifFile.Writeline "Start Component"
objMifFile.Writeline "    Name = " &amp; Chr(34) &amp; "WORKSTATION" &amp; Chr(34)
objMifFile.Writeline "    Start Group"
objMifFile.Writeline "        Name = " &amp; Chr(34) &amp; "WarrantyInfo" &amp; Chr(34)
objMifFile.Writeline "        ID = 1"
objMifFile.Writeline "        Class = " &amp; Chr(34) &amp; "WarrantyInfo" &amp; Chr(34)
objMifFile.Writeline "        Start Attribute"
objMifFile.Writeline "            Name = " &amp; Chr(34) &amp; "WarrantyBeginn" &amp; Chr(34)
objMifFile.Writeline "            ID = 1"
objMifFile.Writeline "            ACCESS = READ-ONLY"
objMifFile.Writeline "            Storage = Specific"
objMifFile.Writeline "            Type = String(100)"
objMifFile.Writeline "            Value = " &amp; Chr(34) &amp; arrWarranty(0) &amp; Chr(34)
objMifFile.Writeline "        End Attribute"
objMifFile.Writeline "        Start Attribute"
objMifFile.Writeline "            Name = " &amp; Chr(34) &amp; "WarrantyEnd" &amp; Chr(34)
objMifFile.Writeline "            ID = 2"
objMifFile.Writeline "            ACCESS = READ-ONLY"
objMifFile.Writeline "            Storage = Specific"
objMifFile.Writeline "            Type = String(100)"
objMifFile.Writeline "            Value = " &amp; Chr(34) &amp; arrWarranty(1) &amp; Chr(34)
objMifFile.Writeline "        End Attribute"
objMifFile.Writeline "    End Group"
objMifFile.Writeline "End Component"
objMifFile.Close

' ===========================================================================================
' Move Temp file to MIF-directory
' ===========================================================================================
strNoIDMifDir = GetMifFileDirectory()
If objFSO.FileExists(strNoIDMifDir &amp; strMifFile) Then
	objFSO.DeleteFile(strNoIDMifDir &amp; strMifFile)
End If

objFSO.CopyFile strTempDir &amp; strMifFile, strNoIDMifDir &amp; strMifFile

Function GetMifFileDirectory()
	' ===========================================================================================
	' Returns the Directory for SCCM MIF-file
	' ===========================================================================================
	strWinDir = objShell.ExpandEnvironmentStrings("%WINDIR%")
	strComputerName = objShell.ExpandEnvironmentStrings("%COMPUTERNAME%")
	strProcessorArchitecture = objShell.RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager\Environment\PROCESSOR_ARCHITECTURE")
	If strProcessorArchitecture = "AMD64" Then
		strNoIDMifRegLocation = "HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\SMS\Client\Configuration\Client Properties\NOIDMIF Directory"
	Else
		strNoIDMifRegLocation = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\SMS\Client\Configuration\Client Properties\NOIDMIF Directory"
	End If

	GetMifFileDirectory = objShell.RegRead(strNoIDMifRegLocation)
End Function

Function GetMaxdataWarranty(strSN)
	' ===========================================================================================
	' Returns warranty start date for Maxdata Computers
	' ===========================================================================================
	Dim arrReturn(1)

	strURL = "http://sys.maxdata.de/default.asp?action=query"
	strContentFull = HTTPDownload (strURL, "serial=" &amp; strSN, "POST")

	intStart = instr(strContentFull, "&lt;span style=" &amp; chr(34) &amp; "margin-left:10px;" &amp; chr(34) &amp; "&gt;Datum:" )
	strDate = Left( Right(strContentFull, (Len(strContentFull) - intStart - 38)), 10)

	arrReturn(0) = ConvertMaxdataDate(strDate)	' start date
	arrReturn(1) = ""							' end date can't recognised for Maxdata Computers

	GetMaxdataWarranty = arrReturn
End Function

Function ConvertMaxdataDate(strDate)
	' ===========================================================================================
	' Convert the date from dd.mm.yyyy to yyyy-mm-dd
	' ===========================================================================================
	Datearray  = split(strDate, ".", -1)
	strDay   = Datearray(0)
	strMonth = Datearray(1)
	strYear  = Datearray(2)

	ConvertMaxdataDate = strYear &amp; "-" &amp; strMonth &amp; "-" &amp; strDay
End Function

Function GetDellWarranty(strSN)
	' ===========================================================================================
	' Returns warranty dates for Dell Computers
	' ===========================================================================================
	Dim arrReturn(1)

	strURL    = "http://support.dell.com/support/topics/global.aspx/support/my_systems_info/details?c=us&amp;l=en&amp;s=gen&amp;~tab=1&amp;ServiceTag="
	strContentFull = HTTPDownload (strURL, strSN, "GET")

	strContentTable = GetDellContractsTable(strContentFull)
	arrRows = GetDellConstracts(strContentTable)
	booRowSpan = False
	strWarrantyBeginn = ""
	strWarrantyEnd = ""

	For i = 1 To UBound(arrRows)
		arrCells = GetDellConstractsCells (arrRows(i))

		strWarrantyTempBeginn = ConvertDellDate(arrCells(2))
		If strWarrantyBeginn = "" OR strWarrantyBeginn &gt; strWarrantyTempBeginn Then
			strWarrantyBeginn = strWarrantyTempBeginn
		End If

		strWarrantyTempEnd   = ConvertDellDate(arrCells(3))
		If strWarrantyEnd = "" OR strWarrantyEnd &lt; strWarrantyTempEnd Then
			strWarrantyEnd = strWarrantyTempEnd
		End If
	Next

	arrReturn(0) = strWarrantyBeginn
	arrReturn(1) = strWarrantyEnd

	GetDellWarranty = arrReturn
End Function

Function GetDellContractsTable(strHTML)
	' ===========================================================================================
	' Returns the HTML table containing all Dell contracts
	' ===========================================================================================
	intStart = instr(UCase(strHTML), UCase( "class=" &amp; chr(34) &amp; "contract_table" &amp; chr(34) ))
	intStart = instr(intStart, strHTML, "&gt;")
	strHTML = Right (strHTML, (Len(strHTML) - intStart))
	intEnd = instr(UCase(strHTML), "&lt;/TABLE&gt;") - 1
	strHTML = Left(strHTML, intEnd)
	GetDellContractsTable = strHTML
End Function

Function GetDellConstracts(strHTML)
	' ===========================================================================================
	' Splits the HTML table to rows containing a single Dell contract
	' ===========================================================================================
	arrRows = Split(strHTML, "&lt;/tr&gt;&lt;tr&gt;", -1 , 1)
	For Each strRow in arrRows
		strRow = RTrim( LTrim(strRow) )
	Next
	GetDellConstracts = arrRows
End Function

Function GetDellConstractsCells(strHTML)
	' ===========================================================================================
	' Splits a HTML table row to single cells
	' ===========================================================================================
	arrCells = Split(strHTML, "&lt;/td&gt;&lt;td", -1 , 1)

	For i = 0 To UBound(arrCells)
		intStart = instr(arrCells(i), "&gt;")
		arrCells(i) = Right(arrCells(i), (Len(arrCells(i)) - intStart))
	Next

	GetDellConstractsCells = arrCells
End Function

Function ConvertDellDate(strDate)
	' ===========================================================================================
	' Convert the date from mm/dd/yyyy to yyyy-mm-dd
	' ===========================================================================================
	Datearray  = split(strDate, "/", -1)
	strMonth = Datearray(0)
	strDay   = Datearray(1)
	strYear  = Datearray(2)

	If Len(strMonth) = 1 Then
		strMonth = "0" &amp; strMonth
	End If

	If Len(strDay) = 1 Then
		strDay = "0" &amp; strDay
	End If

	ConvertDellDate = strYear &amp; "-" &amp; strMonth &amp; "-" &amp; strDay
End Function

Function GetHPWarranty(strSN)
	' ===========================================================================================
	' Returns warranty dates for HP computers
	' ===========================================================================================
	Dim arrReturn(1)

	strURL      = "http://h20000.www2.hp.com/bizsupport/TechSupport/WarrantyResults.jsp?country=US&amp;sn="

	strContentFull = HTTPDownload(strURL , strSN, "GET")
	strContentTable = GetHPContractsTable(strContentFull)
	arrRows = GetHPConstracts(strContentTable)
	booRowSpan = False
	strWarrantyBeginn = ""
	strWarrantyEnd = ""

	For i = 1 To UBound(arrRows)
		arrCells = GetHPConstractsCells (arrRows(i))
		If UBound(arrCells) = 7 OR (booRowSpan = True AND UBound(arrCells) = 6) Then
			If booRowSpan = True AND UBound(arrCells) = 6 Then
				intFirstCell = 0
			Else
				intFirstCell = 1
				strWarrantyDesc = arrCells(0)
			End If
			' strServiceType    = arrCells (intFirstCell)
			strWarrantyTempBeginn = arrCells (intFirstCell + 1)
			strWarrantyTempEnd    = arrCells (intFirstCell + 2)
			' strWarrantyLevel  = arrCells (intFirstCell + 4)
			' strWarrantyDeliverabled = arrCells (intFirstCell + 5)

			strRowSpan = "rowspan=" &amp; chr(34) &amp; "2" &amp; chr(34)
			If instr(1, arrCells(0), strRowSpan, 1) &gt; 0 Then
				booRowSpan = True
			else
				booRowSpan = False
			End If

			strWarrantyTempBeginn = ConvertHPDate(RemoveTDTags(strWarrantyTempBeginn))
			If strWarrantyBeginn = "" OR strWarrantyBeginn &gt; strWarrantyTempBeginn Then
				strWarrantyBeginn = strWarrantyTempBeginn
			End If

			strWarrantyTempEnd   = ConvertHPDate(RemoveTDTags(strWarrantyTempEnd))
			If strWarrantyEnd = "" OR strWarrantyEnd &lt; strWarrantyTempEnd Then
				strWarrantyEnd = strWarrantyTempEnd
			End If
		End If
	Next

	arrReturn(0) = strWarrantyBeginn
	arrReturn(1) = strWarrantyEnd

	GetHPWarranty = arrReturn
End Function

Function ConvertHPDate(strDate)
	' ===========================================================================================
	' Convert the date from d MMM yyyy to yyyy-mm-dd
	' ===========================================================================================
	strYear  = Right(strDate, 4)
	Select Case UCase(Right( Left(strDate, 6), 3))
		Case "JAN"
			strMonth = "01"
		Case "FEB"
			strMonth = "02"
		Case "MAR"
			strMonth = "03"
		Case "APR"
			strMonth = "04"
		Case "MAY"
			strMonth = "05"
		Case "JUN"
			strMonth = "06"
		Case "JUL"
			strMonth = "07"
		Case "AUG"
			strMonth = "08"
		Case "SEP"
			strMonth = "09"
		Case "OCT"
			strMonth = "10"
		Case "NOV"
			strMonth = "11"
		Case "DEC"
			strMonth = "12"
	End Select
	strDay   = Left(strDate, 2)
	strDate = strYear &amp; "-" &amp; strMonth &amp; "-" &amp; strDay
	ConvertHPDate = strDate
End Function

Function RemoveTDTags(strContent)
	' ===========================================================================================
	' Removes unused HTML tags, tabs and spaces from table cells
	' ===========================================================================================
	intEnd = instr(1, strContent, "&lt;/td&gt;", 1)
	If IntEnd &gt; 0 Then
		strContent = Left(strContent, (intEnd - 1))
	End If
	intStart = instr(1, strContent, "&gt;", 1)
	If intStart &gt; 0 Then
		strContent = Right(strContent, (Len(strContent) - intStart))
	End If
	strContent = RTrim(LTrim(strContent))
	strContent = Replace (strContent, CHR(13), "", 1, -1, 1)
	strContent = Replace (strContent, CHR(10), "", 1, -1, 1)
	strContent = Replace (strContent, CHR(9), "", 1, -1, 1)

	RemoveTDTags = strContent
End Function

Sub GetBiosInfo()
	strComputer = "."
	Set objWMIService = GetObject("winmgmts:" &amp; "{impersonationLevel=impersonate}!\\" &amp; strComputer &amp; "\root\cimv2")
	Set colBIOS = objWMIService.ExecQuery ("Select * from Win32_BIOS")
	For each objBIOS in colBIOS
		Wscript.Echo "Build Number: " &amp; objBIOS.BuildNumber
		Wscript.Echo "Current Language: " &amp; objBIOS.CurrentLanguage
		Wscript.Echo "Installable Languages: " &amp; objBIOS.InstallableLanguages
		Wscript.Echo "Manufacturer: " &amp; objBIOS.Manufacturer
		Wscript.Echo "Name: " &amp; objBIOS.Name
		Wscript.Echo "Primary BIOS: " &amp; objBIOS.PrimaryBIOS
		Wscript.Echo "Release Date: " &amp; objBIOS.ReleaseDate
		Wscript.Echo "Serial Number: " &amp; objBIOS.SerialNumber
		Wscript.Echo "SMBIOS Version: " &amp; objBIOS.SMBIOSBIOSVersion
		Wscript.Echo "SMBIOS Major Version: " &amp; objBIOS.SMBIOSMajorVersion
		Wscript.Echo "SMBIOS Minor Version: " &amp; objBIOS.SMBIOSMinorVersion
		Wscript.Echo "SMBIOS Present: " &amp; objBIOS.SMBIOSPresent
		Wscript.Echo "Status: " &amp; objBIOS.Status
		Wscript.Echo "Version: " &amp; objBIOS.Version
		For i = 0 to Ubound(objBIOS.BiosCharacteristics)
			Wscript.Echo "BIOS Characteristics: " &amp; objBIOS.BiosCharacteristics(i)
		Next
	Next
End Sub

Sub GetBoardInfo()
	' ===========================================================================================
	' Returns the serial number from BIOS
	' http://www.activexperts.com/activmonitor/windowsmanagement/adminscripts/computermanagement/hardware/
	' ===========================================================================================
	strComputer = "."
	Set objWMIService = GetObject("winmgmts:\\" &amp; strComputer &amp; "\root\cimv2")
	Set colItems = objWMIService.ExecQuery("Select * from Win32_BaseBoard")
	For Each objItem in colItems
		Wscript.Echo "Depth: " &amp; objItem.Depth
		Wscript.Echo "Description: " &amp; objItem.Description
		Wscript.Echo "Height: " &amp; objItem.Height
		Wscript.Echo "Hosting Board: " &amp; objItem.HostingBoard
		Wscript.Echo "Hot Swappable: " &amp; objItem.HotSwappable
		Wscript.Echo "Manufacturer: " &amp; objItem.Manufacturer
		Wscript.Echo "Model: " &amp; objItem.Model
		Wscript.Echo "Name: " &amp; objItem.Name
		Wscript.Echo "Other Identifying Information: " &amp; objItem.OtherIdentifyingInfo
		Wscript.Echo "Part Number: " &amp; objItem.PartNumber
		Wscript.Echo "Powered On: " &amp; objItem.PoweredOn
		Wscript.Echo "Product: " &amp; objItem.Product
		Wscript.Echo "Removable: " &amp; objItem.Removable
		Wscript.Echo "Replaceable: " &amp; objItem.Replaceable
		Wscript.Echo "Requirements Description: " &amp; objItem.RequirementsDescription
		Wscript.Echo "Requires DaughterBoard: " &amp; objItem.RequiresDaughterBoard
		Wscript.Echo "Serial Number: " &amp; objItem.SerialNumber
		Wscript.Echo "SKU: " &amp; objItem.SKU
		Wscript.Echo "Slot Layout: " &amp; objItem.SlotLayout
		Wscript.Echo "Special Requirements: " &amp; objItem.SpecialRequirements
		Wscript.Echo "Tag: " &amp; objItem.Tag
		Wscript.Echo "Version: " &amp; objItem.Version
		Wscript.Echo "Weight: " &amp; objItem.Weight
		Wscript.Echo "Width: " &amp; objItem.Width
	Next
End Sub

Function GetBiosSerialNumber()
	' ===========================================================================================
	' Returns the serial number from Bios
	' http://www.activexperts.com/activmonitor/windowsmanagement/adminscripts/computermanagement/hardware/
	' ===========================================================================================
	strComputer = "."
	Set objWMIService = GetObject("winmgmts:" &amp; "{impersonationLevel=impersonate}!\\" &amp; strComputer &amp; "\root\cimv2")
	Set colBIOS = objWMIService.ExecQuery ("Select * from Win32_BIOS")
	For each objBIOS in colBIOS
		GetBiosSerialNumber = objBIOS.SerialNumber
	Next
End Function

Function GetSerialNumber()
	' ===========================================================================================
	' Returns the serial number from Board
	' http://www.activexperts.com/activmonitor/windowsmanagement/adminscripts/computermanagement/hardware/
	' ===========================================================================================
	strComputer = "."
	Set objWMIService = GetObject("winmgmts:\\" &amp; strComputer &amp; "\root\cimv2")
	Set colItems = objWMIService.ExecQuery("Select * from Win32_BaseBoard")
	For Each objItem in colItems
		GetSerialNumber = objItem.SerialNumber
	Next
End Function

Function GetBiosVersion()
	strComputer = "."
	Set objWMIService = GetObject("winmgmts:" &amp; "{impersonationLevel=impersonate}!\\" &amp; strComputer &amp; "\root\cimv2")
	Set colBIOS = objWMIService.ExecQuery ("Select * from Win32_BIOS")
	For each objBIOS in colBIOS
		GetBiosVersion = objBIOS.Version
	Next
End Function

Function GetManufacturer()
	' ===========================================================================================
	' Returns the manufacturer from BIOS
	' http://www.activexperts.com/activmonitor/windowsmanagement/adminscripts/computermanagement/hardware/
	' ===========================================================================================
	strComputer = "."
	Set objWMIService = GetObject("winmgmts:\\" &amp; strComputer &amp; "\root\cimv2")
	Set colItems = objWMIService.ExecQuery("Select * from Win32_BaseBoard")
	For Each objItem in colItems
		GetManufacturer = objItem.Manufacturer
	Next
End Function

Function GetHPContractsTable(strHTML)
	' ===========================================================================================
	' Returns the HTML table containing all HP contracts
	' ===========================================================================================
	intStart = instr(UCase(strHTML), UCase("summary=" &amp; chr(34) &amp; "Add summary of the data table" &amp; chr(34) ))
	intStart = instr(intStart, strHTML, "&gt;")
	strHTML = Right (strHTML, (Len(strHTML) - intStart))
	intEnd = instr(UCase(strHTML), "&lt;/TABLE&gt;") - 1
	strHTML = Left(strHTML, intEnd)
	GetHPContractsTable = strHTML
End Function

Function GetHPConstracts(strHTML)
	' ===========================================================================================
	' Splits the HTML table to rows containing a single HP contract
	' ===========================================================================================
	arrRows = Split(strHTML, "&lt;tr&gt;", -1 , 1)
	For Each strRow in arrRows
		strRow = RTrim( LTrim(strRow) )
	Next
	GetHPConstracts = arrRows
End Function

Function GetHPConstractsCells(strHTML)
	' ===========================================================================================
	' Splits a HTML table row to single cells
	' ===========================================================================================
	strHTML = RTrim(LTRim(strHTML))
	arrCells = Split(strHTML, "&lt;/td&gt;", -1 , 1)
	For Each strCell in arrCells
		intStart = instr(strCell, "&gt;")
		strCell = Right(strCell, (Len(strCell) - intStart))
		strCell = RTrim( LTrim(strCell) )
	Next
	GetHPConstractsCells = arrCells
End Function

Function HTTPDownload(strURL , strParams, strType)
	' ===========================================================================================
	' Returns html content from a webpage
	' ===========================================================================================
    Dim i, objHTTP, strContent
	' Set objHTTP = CreateObject("Microsoft.XMLHTTP")
	Set objHTTP = CreateObject("WinHttp.WinHttpRequest.5.1") 

	If GetInternalNetwork = True Then
		objHTTP.SetProxy 2, "evswa01.etavis.local:8080"
	End If

	If strType = "GET" Then
		objHTTP.Open "GET", strURL &amp; strParams, False
		objHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
		objHTTP.Send
	Else
		objHTTP.Open "POST", strURL, False
		objHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
		objHTTP.Send strParams
	End If

	strContent = objHTTP.responseText
	Set objHTTP = Nothing

	HTTPDownload = strContent
End Function

Function OldHTTPDownload(strURL , strParams, strType)
	' ===========================================================================================
	' Returns html content from a webpage
	' ===========================================================================================
    Dim i, objHTTP, strContent
	' Set objHTTP = CreateObject("Microsoft.XMLHTTP")
	Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP")

	If strType = "GET" Then
		objHTTP.Open "GET", strURL &amp; strParams, False
		objHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
		objHTTP.Send
	Else
		objHTTP.Open "POST", strURL, False
		objHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
		objHTTP.Send strParams
	End If

	strContent = objHTTP.responseText
	Set objHTTP = Nothing

	HTTPDownload = strContent

End Function

Function GetInternalNetwork
	strComputer = "."
	Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &amp; strComputer &amp; "\root\cimv2")

	Set IPConfigSet = objWMIService.ExecQuery ("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled=TRUE")

	booReturn = False
	For Each IPConfig in IPConfigSet
		If Not IsNull(IPConfig.IPAddress) Then
			For i=LBound(IPConfig.IPAddress) to UBound(IPConfig.IPAddress)
				' WScript.Echo IPConfig.IPAddress(i)
				If Left(IPConfig.IPAddress(i), 6) = "10.41." Then
					booReturn = True
					Exit For
				End If
			Next
		End If
	Next
	GetInternalNetwork = booReturn
End Function

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

153

154

155

156

157

158

159

160

161

162

163

164

165

166

167

168

169

170

171

172

173

174

175

176

177

178

179

180

181

182

183

184

185

186

187

188

189

190

191

192

193

194

195

196

197

198

199

200

201

202

203

204

205

206

207

208

209

210

211

212

213

214

215

216

217

218

219

220

221

222

223

224

225

226

227

228

229

230

231

232

233

234

235

236

237

238

239

240

241

242

243

244

245

246

247

248

249

250

251

252

253

254

255

256

257

258

259

260

261

262

263

264

265

266

267

268

269

270

271

272

273

274

275

276

277

278

279

280

281

282

283

284

285

286

287

288

289

290

291

292

293

294

295

296

297

298

299

300

301

302

303

304

305

306

307

308

309

310

311

312

313

314

315

316

317

318

319

320

321

322

323

324

325

326

327

328

329

330

331

332

333

334

335

336

337

338

339

340

341

342

343

344

345

346

347

348

349

350

351

352

353

354

355

356

357

358

359

360

361

362

363

364

365

366

367

368

369

370

371

372

373

374

375

376

377

378

379

380

381

382

383

384

385

386

387

388

389

390

391

392

393

394

395

396

397

398

399

400

401

402

403

404

405

406

407

408

409

410

411

412

413

414

415

416

417

418

419

420

421

422

423

424

425

426

427

428

429

430

431

432

433

434

435

436

437

438

439

440

441

442

443

444

445

446

447

448

449

450

451

452

453

454

455

456

457

458

459

460

461

462

463

464

465

466

467

468

469

470

471

472

473

474

475

476

477

478

479

480

481

482

483

484

485

486

487

488

489

490

491

492

493

494

495

496

497

498

499

500

501

502

503

504

505

506

507

508

509

510

511

512

513

514

515

516

517

518

519

520

521

522

523

524

525

526

527

528

529

530

531

532

533

534

535

536

537

538

539

540

541

542

543

544

545

546

547

548

549

550

551

552

553

554

555

556

557

558

559

560

561

562

563

564

565

566

567

' ===========================================================================================

' Script Information

' Title: WarrantyInformations.vbs

' Author: Josua Burkard

' Date: 16.11.2011

' Description: get Warranty Informations from HP, Dell, or MaxData Computers

' - writes the information to SCCM MIF file

' ===========================================================================================

' Constants

' ===========================================================================================

Const CREDENTIALS_FOR_SERVER = 0

Const CREDENTIALS_FOR_PROXY = 1

Const HTTPREQUEST_PROXYSETTING_PROXY = 2

Const NETWORK_CONNECTIONS = &H31&

Const ForAppending = 8

Set objShell = CreateObject("Wscript.Shell")

Set objFSO = CreateObject("Scripting.FileSystemObject")

Const strMifFile = "\WarrantyInfo.mif"

strSerialNumber = GetSerialNumber()

strManufacturer = GetManufacturer()

' ===========================================================================================

' Start Test

' ===========================================================================================

' strSerialNumber = "30326050014"

' strManufacturer = "MAXDATA"

' ===========================================================================================

' End Test

' ===========================================================================================

If strManufacturer = "Hewlett-Packard" OR strManufacturer = "HP" Then

arrWarranty = GetHPWarranty(strSerialNumber)

ElseIf strManufacturer = "Dell Inc." Then

If Left(strSerialNumber, 1) = "." Then

strSerialNumber = GetBiosSerialNumber()

End If

arrWarranty = GetDellWarranty(strSerialNumber)

ElseIf UCase(strManufacturer) = "MAXDATA" Then

arrWarranty = GetMaxdataWarranty(strSerialNumber)

ElseIf Left(UCase(GetBiosVersion()), 6) = "MAXDAT" Then

' Manufacturer is 'MaxData' but Board Information says 'Intel'

strBiosSerialNumber = GetBiosSerialNumber()

arrWarranty = GetMaxdataWarranty(strBiosSerialNumber)

Else

' Other or unknown manufacturer

' GetBiosInfo

Wscript.Quit

End If

' ===========================================================================================

' Write Temp File

' ===========================================================================================

strTempDir = objShell.ExpandEnvironmentStrings("%TEMP%")

If objFSO.FileExists(strTempDir & strMifFile) Then

objFSO.DeleteFile(strTempDir & strMifFile)

End If

Set objMifFile = objFSO.OpenTextFile(strTempDir & strMifFile, ForAppending, True)

objMifFile.Writeline "Start Component"

objMifFile.Writeline " Name = " & Chr(34) & "WORKSTATION" & Chr(34)

objMifFile.Writeline " Start Group"

objMifFile.Writeline " Name = " & Chr(34) & "WarrantyInfo" & Chr(34)

objMifFile.Writeline " ID = 1"

objMifFile.Writeline " Class = " & Chr(34) & "WarrantyInfo" & Chr(34)

objMifFile.Writeline " Start Attribute"

objMifFile.Writeline " Name = " & Chr(34) & "WarrantyBeginn" & Chr(34)

objMifFile.Writeline " ID = 1"

objMifFile.Writeline " ACCESS = READ-ONLY"

objMifFile.Writeline " Storage = Specific"

objMifFile.Writeline " Type = String(100)"

objMifFile.Writeline " Value = " & Chr(34) & arrWarranty(0) & Chr(34)

objMifFile.Writeline " End Attribute"

objMifFile.Writeline " Start Attribute"

objMifFile.Writeline " Name = " & Chr(34) & "WarrantyEnd" & Chr(34)

objMifFile.Writeline " ID = 2"

objMifFile.Writeline " ACCESS = READ-ONLY"

objMifFile.Writeline " Storage = Specific"

objMifFile.Writeline " Type = String(100)"

objMifFile.Writeline " Value = " & Chr(34) & arrWarranty(1) & Chr(34)

objMifFile.Writeline " End Attribute"

objMifFile.Writeline " End Group"

objMifFile.Writeline "End Component"

objMifFile.Close

' ===========================================================================================

' Move Temp file to MIF-directory

' ===========================================================================================

strNoIDMifDir = GetMifFileDirectory()

If objFSO.FileExists(strNoIDMifDir & strMifFile) Then

objFSO.DeleteFile(strNoIDMifDir & strMifFile)

End If

objFSO.CopyFile strTempDir & strMifFile, strNoIDMifDir & strMifFile

Function GetMifFileDirectory()

' ===========================================================================================

' Returns the Directory for SCCM MIF-file

' ===========================================================================================

strWinDir = objShell.ExpandEnvironmentStrings("%WINDIR%")

strComputerName = objShell.ExpandEnvironmentStrings("%COMPUTERNAME%")

strProcessorArchitecture = objShell.RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager\Environment\PROCESSOR_ARCHITECTURE")

If strProcessorArchitecture = "AMD64" Then

strNoIDMifRegLocation = "HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\SMS\Client\Configuration\Client Properties\NOIDMIF Directory"

Else

strNoIDMifRegLocation = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\SMS\Client\Configuration\Client Properties\NOIDMIF Directory"

End If

GetMifFileDirectory = objShell.RegRead(strNoIDMifRegLocation)

End Function

Function GetMaxdataWarranty(strSN)

' ===========================================================================================

' Returns warranty start date for Maxdata Computers

' ===========================================================================================

Dim arrReturn(1)

strURL = "http://sys.maxdata.de/default.asp?action=query"

strContentFull = HTTPDownload (strURL, "serial=" & strSN, "POST")

intStart = instr(strContentFull, "<span style=" & chr(34) & "margin-left:10px;" & chr(34) & ">Datum:" )

strDate = Left( Right(strContentFull, (Len(strContentFull) - intStart - 38)), 10)

arrReturn(0) = ConvertMaxdataDate(strDate) ' start date

arrReturn(1) = "" ' end date can't recognised for Maxdata Computers

GetMaxdataWarranty = arrReturn

End Function

Function ConvertMaxdataDate(strDate)

' ===========================================================================================

' Convert the date from dd.mm.yyyy to yyyy-mm-dd

' ===========================================================================================

Datearray = split(strDate, ".", -1)

strDay = Datearray(0)

strMonth = Datearray(1)

strYear = Datearray(2)

ConvertMaxdataDate = strYear & "-" & strMonth & "-" & strDay

End Function

Function GetDellWarranty(strSN)

' ===========================================================================================

' Returns warranty dates for Dell Computers

' ===========================================================================================

Dim arrReturn(1)

strURL = "http://support.dell.com/support/topics/global.aspx/support/my_systems_info/details?c=us&l=en&s=gen&~tab=1&ServiceTag="

strContentFull = HTTPDownload (strURL, strSN, "GET")

strContentTable = GetDellContractsTable(strContentFull)

arrRows = GetDellConstracts(strContentTable)

booRowSpan = False

strWarrantyBeginn = ""

strWarrantyEnd = ""

For i = 1 To UBound(arrRows)

arrCells = GetDellConstractsCells (arrRows(i))

strWarrantyTempBeginn = ConvertDellDate(arrCells(2))

If strWarrantyBeginn = "" OR strWarrantyBeginn > strWarrantyTempBeginn Then

strWarrantyBeginn = strWarrantyTempBeginn

End If

strWarrantyTempEnd = ConvertDellDate(arrCells(3))

If strWarrantyEnd = "" OR strWarrantyEnd < strWarrantyTempEnd Then

strWarrantyEnd = strWarrantyTempEnd

End If

arrReturn(0) = strWarrantyBeginn

arrReturn(1) = strWarrantyEnd

GetDellWarranty = arrReturn

End Function

Function GetDellContractsTable(strHTML)

' ===========================================================================================

' Returns the HTML table containing all Dell contracts

' ===========================================================================================

intStart = instr(UCase(strHTML), UCase( "class=" & chr(34) & "contract_table" & chr(34) ))

intStart = instr(intStart, strHTML, ">")

strHTML = Right (strHTML, (Len(strHTML) - intStart))

intEnd = instr(UCase(strHTML), "</TABLE>") - 1

strHTML = Left(strHTML, intEnd)

GetDellContractsTable = strHTML

End Function

Function GetDellConstracts(strHTML)

' ===========================================================================================

' Splits the HTML table to rows containing a single Dell contract

' ===========================================================================================

arrRows = Split(strHTML, "</tr><tr>", -1 , 1)

For Each strRow in arrRows

strRow = RTrim( LTrim(strRow) )

GetDellConstracts = arrRows

End Function

Function GetDellConstractsCells(strHTML)

' ===========================================================================================

' Splits a HTML table row to single cells

' ===========================================================================================

arrCells = Split(strHTML, "</td><td", -1 , 1)

For i = 0 To UBound(arrCells)

intStart = instr(arrCells(i), ">")

arrCells(i) = Right(arrCells(i), (Len(arrCells(i)) - intStart))

GetDellConstractsCells = arrCells

End Function

Function ConvertDellDate(strDate)

' ===========================================================================================

' Convert the date from mm/dd/yyyy to yyyy-mm-dd

' ===========================================================================================

Datearray = split(strDate, "/", -1)

strMonth = Datearray(0)

strDay = Datearray(1)

strYear = Datearray(2)

If Len(strMonth) = 1 Then

strMonth = "0" & strMonth

End If

If Len(strDay) = 1 Then

strDay = "0" & strDay

End If

ConvertDellDate = strYear & "-" & strMonth & "-" & strDay

End Function

Function GetHPWarranty(strSN)

' ===========================================================================================

' Returns warranty dates for HP computers

' ===========================================================================================

Dim arrReturn(1)

strURL = "http://h20000.www2.hp.com/bizsupport/TechSupport/WarrantyResults.jsp?country=US&sn="

strContentFull = HTTPDownload(strURL , strSN, "GET")

strContentTable = GetHPContractsTable(strContentFull)

arrRows = GetHPConstracts(strContentTable)

booRowSpan = False

strWarrantyBeginn = ""

strWarrantyEnd = ""

For i = 1 To UBound(arrRows)

arrCells = GetHPConstractsCells (arrRows(i))

If UBound(arrCells) = 7 OR (booRowSpan = True AND UBound(arrCells) = 6) Then

If booRowSpan = True AND UBound(arrCells) = 6 Then

intFirstCell = 0

Else

intFirstCell = 1

strWarrantyDesc = arrCells(0)

End If

' strServiceType = arrCells (intFirstCell)

strWarrantyTempBeginn = arrCells (intFirstCell + 1)

strWarrantyTempEnd = arrCells (intFirstCell + 2)

' strWarrantyLevel = arrCells (intFirstCell + 4)

' strWarrantyDeliverabled = arrCells (intFirstCell + 5)

strRowSpan = "rowspan=" & chr(34) & "2" & chr(34)

If instr(1, arrCells(0), strRowSpan, 1) > 0 Then

booRowSpan = True

else

booRowSpan = False

End If

strWarrantyTempBeginn = ConvertHPDate(RemoveTDTags(strWarrantyTempBeginn))

If strWarrantyBeginn = "" OR strWarrantyBeginn > strWarrantyTempBeginn Then

strWarrantyBeginn = strWarrantyTempBeginn

End If

strWarrantyTempEnd = ConvertHPDate(RemoveTDTags(strWarrantyTempEnd))

If strWarrantyEnd = "" OR strWarrantyEnd < strWarrantyTempEnd Then

strWarrantyEnd = strWarrantyTempEnd

End If

arrReturn(0) = strWarrantyBeginn

arrReturn(1) = strWarrantyEnd

GetHPWarranty = arrReturn

End Function

Function ConvertHPDate(strDate)

' ===========================================================================================

' Convert the date from d MMM yyyy to yyyy-mm-dd

' ===========================================================================================

strYear = Right(strDate, 4)

Select Case UCase(Right( Left(strDate, 6), 3))

Case "JAN"

strMonth = "01"

Case "FEB"

strMonth = "02"

Case "MAR"

strMonth = "03"

Case "APR"

strMonth = "04"

Case "MAY"

strMonth = "05"

Case "JUN"

strMonth = "06"

Case "JUL"

strMonth = "07"

Case "AUG"

strMonth = "08"

Case "SEP"

strMonth = "09"

Case "OCT"

strMonth = "10"

Case "NOV"

strMonth = "11"

Case "DEC"

strMonth = "12"

End Select

strDay = Left(strDate, 2)

strDate = strYear & "-" & strMonth & "-" & strDay

ConvertHPDate = strDate

End Function

Function RemoveTDTags(strContent)

' ===========================================================================================

' Removes unused HTML tags, tabs and spaces from table cells

' ===========================================================================================

intEnd = instr(1, strContent, "</td>", 1)

If IntEnd > 0 Then

strContent = Left(strContent, (intEnd - 1))

End If

intStart = instr(1, strContent, ">", 1)

If intStart > 0 Then

strContent = Right(strContent, (Len(strContent) - intStart))

End If

strContent = RTrim(LTrim(strContent))

strContent = Replace (strContent, CHR(13), "", 1, -1, 1)

strContent = Replace (strContent, CHR(10), "", 1, -1, 1)

strContent = Replace (strContent, CHR(9), "", 1, -1, 1)

RemoveTDTags = strContent

End Function

Sub GetBiosInfo()

strComputer = "."

Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colBIOS = objWMIService.ExecQuery ("Select * from Win32_BIOS")

For each objBIOS in colBIOS

Wscript.Echo "Build Number: " & objBIOS.BuildNumber

Wscript.Echo "Current Language: " & objBIOS.CurrentLanguage

Wscript.Echo "Installable Languages: " & objBIOS.InstallableLanguages

Wscript.Echo "Manufacturer: " & objBIOS.Manufacturer

Wscript.Echo "Name: " & objBIOS.Name

Wscript.Echo "Primary BIOS: " & objBIOS.PrimaryBIOS

Wscript.Echo "Release Date: " & objBIOS.ReleaseDate

Wscript.Echo "Serial Number: " & objBIOS.SerialNumber

Wscript.Echo "SMBIOS Version: " & objBIOS.SMBIOSBIOSVersion

Wscript.Echo "SMBIOS Major Version: " & objBIOS.SMBIOSMajorVersion

Wscript.Echo "SMBIOS Minor Version: " & objBIOS.SMBIOSMinorVersion

Wscript.Echo "SMBIOS Present: " & objBIOS.SMBIOSPresent

Wscript.Echo "Status: " & objBIOS.Status

Wscript.Echo "Version: " & objBIOS.Version

For i = 0 to Ubound(objBIOS.BiosCharacteristics)

Wscript.Echo "BIOS Characteristics: " & objBIOS.BiosCharacteristics(i)

End Sub

Sub GetBoardInfo()

' ===========================================================================================

' Returns the serial number from BIOS

' http://www.activexperts.com/activmonitor/windowsmanagement/adminscripts/computermanagement/hardware/

' ===========================================================================================

strComputer = "."

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

Set colItems = objWMIService.ExecQuery("Select * from Win32_BaseBoard")

For Each objItem in colItems

Wscript.Echo "Depth: " & objItem.Depth

Wscript.Echo "Description: " & objItem.Description

Wscript.Echo "Height: " & objItem.Height

Wscript.Echo "Hosting Board: " & objItem.HostingBoard

Wscript.Echo "Hot Swappable: " & objItem.HotSwappable

Wscript.Echo "Manufacturer: " & objItem.Manufacturer

Wscript.Echo "Model: " & objItem.Model

Wscript.Echo "Name: " & objItem.Name

Wscript.Echo "Other Identifying Information: " & objItem.OtherIdentifyingInfo

Wscript.Echo "Part Number: " & objItem.PartNumber

Wscript.Echo "Powered On: " & objItem.PoweredOn

Wscript.Echo "Product: " & objItem.Product

Wscript.Echo "Removable: " & objItem.Removable

Wscript.Echo "Replaceable: " & objItem.Replaceable

Wscript.Echo "Requirements Description: " & objItem.RequirementsDescription

Wscript.Echo "Requires DaughterBoard: " & objItem.RequiresDaughterBoard

Wscript.Echo "Serial Number: " & objItem.SerialNumber

Wscript.Echo "SKU: " & objItem.SKU

Wscript.Echo "Slot Layout: " & objItem.SlotLayout

Wscript.Echo "Special Requirements: " & objItem.SpecialRequirements

Wscript.Echo "Tag: " & objItem.Tag

Wscript.Echo "Version: " & objItem.Version

Wscript.Echo "Weight: " & objItem.Weight

Wscript.Echo "Width: " & objItem.Width

End Sub

Function GetBiosSerialNumber()

' ===========================================================================================

' Returns the serial number from Bios

' http://www.activexperts.com/activmonitor/windowsmanagement/adminscripts/computermanagement/hardware/

' ===========================================================================================

strComputer = "."

Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colBIOS = objWMIService.ExecQuery ("Select * from Win32_BIOS")

For each objBIOS in colBIOS

GetBiosSerialNumber = objBIOS.SerialNumber

End Function

Function GetSerialNumber()

' ===========================================================================================

' Returns the serial number from Board

' http://www.activexperts.com/activmonitor/windowsmanagement/adminscripts/computermanagement/hardware/

' ===========================================================================================

strComputer = "."

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

Set colItems = objWMIService.ExecQuery("Select * from Win32_BaseBoard")

For Each objItem in colItems

GetSerialNumber = objItem.SerialNumber

End Function

Function GetBiosVersion()

strComputer = "."

Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colBIOS = objWMIService.ExecQuery ("Select * from Win32_BIOS")

For each objBIOS in colBIOS

GetBiosVersion = objBIOS.Version

End Function

Function GetManufacturer()

' ===========================================================================================

' Returns the manufacturer from BIOS

' http://www.activexperts.com/activmonitor/windowsmanagement/adminscripts/computermanagement/hardware/

' ===========================================================================================

strComputer = "."

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

Set colItems = objWMIService.ExecQuery("Select * from Win32_BaseBoard")

For Each objItem in colItems

GetManufacturer = objItem.Manufacturer

End Function

Function GetHPContractsTable(strHTML)

' ===========================================================================================

' Returns the HTML table containing all HP contracts

' ===========================================================================================

intStart = instr(UCase(strHTML), UCase("summary=" & chr(34) & "Add summary of the data table" & chr(34) ))

intStart = instr(intStart, strHTML, ">")

strHTML = Right (strHTML, (Len(strHTML) - intStart))

intEnd = instr(UCase(strHTML), "</TABLE>") - 1

strHTML = Left(strHTML, intEnd)

GetHPContractsTable = strHTML

End Function

Function GetHPConstracts(strHTML)

' ===========================================================================================

' Splits the HTML table to rows containing a single HP contract

' ===========================================================================================

arrRows = Split(strHTML, "<tr>", -1 , 1)

For Each strRow in arrRows

strRow = RTrim( LTrim(strRow) )

GetHPConstracts = arrRows

End Function

Function GetHPConstractsCells(strHTML)

' ===========================================================================================

' Splits a HTML table row to single cells

' ===========================================================================================

strHTML = RTrim(LTRim(strHTML))

arrCells = Split(strHTML, "</td>", -1 , 1)

For Each strCell in arrCells

intStart = instr(strCell, ">")

strCell = Right(strCell, (Len(strCell) - intStart))

strCell = RTrim( LTrim(strCell) )

GetHPConstractsCells = arrCells

End Function

Function HTTPDownload(strURL , strParams, strType)

' ===========================================================================================

' Returns html content from a webpage

' ===========================================================================================

Dim i, objHTTP, strContent

' Set objHTTP = CreateObject("Microsoft.XMLHTTP")

Set objHTTP = CreateObject("WinHttp.WinHttpRequest.5.1")

If GetInternalNetwork = True Then

objHTTP.SetProxy 2, "evswa01.etavis.local:8080"

End If

If strType = "GET" Then

objHTTP.Open "GET", strURL & strParams, False

objHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"

objHTTP.Send

Else

objHTTP.Open "POST", strURL, False

objHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"

objHTTP.Send strParams

End If

strContent = objHTTP.responseText

Set objHTTP = Nothing

HTTPDownload = strContent

End Function

Function OldHTTPDownload(strURL , strParams, strType)

' ===========================================================================================

' Returns html content from a webpage

' ===========================================================================================

Dim i, objHTTP, strContent

' Set objHTTP = CreateObject("Microsoft.XMLHTTP")

Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP")

If strType = "GET" Then

objHTTP.Open "GET", strURL & strParams, False

objHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"

objHTTP.Send

Else

objHTTP.Open "POST", strURL, False

objHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"

objHTTP.Send strParams

End If

strContent = objHTTP.responseText

Set objHTTP = Nothing

HTTPDownload = strContent

End Function

Function GetInternalNetwork

strComputer = "."

Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set IPConfigSet = objWMIService.ExecQuery ("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled=TRUE")

booReturn = False

For Each IPConfig in IPConfigSet

If Not IsNull(IPConfig.IPAddress) Then

For i=LBound(IPConfig.IPAddress) to UBound(IPConfig.IPAddress)

' WScript.Echo IPConfig.IPAddress(i)

If Left(IPConfig.IPAddress(i), 6) = "10.41." Then

booReturn = True

Exit For

End If

GetInternalNetwork = booReturn

End Function

After using this vbscript on each client computer you can create a SCCM report to list the warranty informations.

pass parameter values to Invoke-CMScript

Collect warranty informations with SCCM

Collect CDP informations with SCCM

Share this:

Share this:

Share this: