0byt3m1n1
Path:
C:
/
Windows
/
Setup
/
Scripts
/
[
Home
]
File: Fujitsu_Marker.vbs
'********************************************************************************************************* ' Name : FUJITSU_Marker.vbs ' ' Date : May 6 2009, June 11 2012 ' ' Version : 1.1 ' ' Changes : Do not write OEM marker file if filename contains invalid (e.g. binary) characters. ' ' ' Purpose : This skript collect WMI information and write an OEM marker file. ' ' Name Format : 10CF_FUJITSU ' _Divisin [ FJ | FKL | FPCA | FAI | FTS ] ' _ComputerSystem.Model ' _Installation Type ( Preinstallation or Recovery) [ PI | RC ] ' _BaseBoard.Manufacturer,BaseBoard.Product ' _BIOS.Caption_BIOS.Version_BIOS.SMBIOSBIOSVersion ' _Controller.Caption ' ' Micrsoft Definition from SYSFUND-0201: ' VendorID_CompanyName_Division_Marketing Model Name_other info.MRK ' VendorID : Vendor ID defined in PCI SIG. ' CompanyName : Company Name ' Marketing Model Name : The product name the system will be shipped as. ' This should be the same as the marketing name entered at the time of logo submission. ' Division : Division name. na if no division. ' OtherInfo: Depends on OEM. ' '********************************************************************************************************* strMarkerFileName = "10CF_FUJITSU_FTS" strSystemDirectory = "" strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}" _ & "[locale=ms_409]" _ & "!\\" & strComputer & "\root\cimv2") Set colSettings = objWMIService.ExecQuery _ ("Select * from Win32_ComputerSystem") For Each objComputer in colSettings strMarkerFileName = strMarkerFileName & "_" & objComputer.Model Next 'Change to RC for Recovery Products strMarkerFileName = strMarkerFileName & "_PI" Set colSettings = objWMIService.ExecQuery _ ("Select * from Win32_BaseBoard") For Each objBaseBoard in colSettings strMarkerFileName = strMarkerFileName & "_" & objBaseBoard.Manufacturer strMarkerFileName = strMarkerFileName & "_" & objBaseBoard.Product Next Set colSettings = objWMIService.ExecQuery _ ("Select * from Win32_BIOS") For Each objBIOS in colSettings strMarkerFileName = strMarkerFileName & "_" & objBIOS.Caption strMarkerFileName = strMarkerFileName & "_" & objBIOS.Version strMarkerFileName = strMarkerFileName & "_" & objBIOS.SMBIOSBIOSVersion Next Set colSettings = objWMIService.ExecQuery _ ("Select * from Win32_VideoController") For Each objVideoController in colSettings strMarkerFileName = strMarkerFileName & "_" & objVideoController.Caption Next 'remove characters which are not valid for a file name strMarkerFileName = Replace(strMarkerFileName, "\", " ") strMarkerFileName = Replace(strMarkerFileName, "/", " ") strMarkerFileName = Replace(strMarkerFileName, ":", " ") strMarkerFileName = Replace(strMarkerFileName, "*", " ") strMarkerFileName = Replace(strMarkerFileName, "?", " ") strMarkerFileName = Replace(strMarkerFileName, "<", " ") strMarkerFileName = Replace(strMarkerFileName, ">", " ") strMarkerFileName = Replace(strMarkerFileName, "|", " ") 'remove also double and single quaotation mark strMarkerFileName = Replace(strMarkerFileName, Chr(34), " ") strMarkerFileName = Replace(strMarkerFileName, Chr(39), " ") 'remove some blanks strMarkerFileName = Replace(strMarkerFileName, " ", " ") strMarkerFileName = Replace(strMarkerFileName, " ", " ") 'maxlength strMarkerFileName = Left(strMarkerFileName, 222) 'add start Set colSettings = objWMIService.ExecQuery _ ("Select * from Win32_OperatingSystem") For Each objOperatingSystem in colSettings strSystemDirectory = objOperatingSystem.SystemDirectory strWindowsDirectory = objOperatingSystem.WindowsDirectory Next strMarkerFileName = strSystemDirectory + "\drivers\" + strMarkerFileName 'add .MRK ending strMarkerFileName = strMarkerFileName + ".MRK" 'only for debugging 'Wscript.Echo "MarkerFile: " & strMarkerFileName 'Wscript.Echo "Length MarkerFileName: " & len(strMarkerFileName) set filesys = CreateObject("Scripting.FileSystemObject") 'ignore error, if filename is invalid On Error Resume Next Set filetxt = filesys.CreateTextFile(strMarkerFileName, True) filetxt.WriteLine("dummy text") 'cpopy file also to SysWOW64\drivers If filesys.FolderExists(strWindowsDirectory & "\SysWOW64\drivers") Then filesys.CopyFile strMarkerFileName, strWindowsDirectory & "\SysWOW64\drivers\", TRUE end if On Error Goto 0