Results 1 to 4 of 4
Thread: ( ). ?
Hybrid View
-
1st November 2010 16:14 #1Registered User
Join Date: Mar:2008
Location: BG
Posts: 162
( ). ?
, .... Windows 7, .... , :
strComputer = .
Set objWMIService = GetObject(winmgmts: & {impersonationLevel=impersonate}!\\ & strComputer & \root\cimv2″)
Part 1 Acquire serial/service tag number
Set colSMBIOS = objWMIService.ExecQuery (Select * from Win32_SystemEnclosure)
For Each objSMBIOS in colSMBIOS
strSN = objSMBIOS.SerialNumber
If strSN <> Then exit For
Next
Part 2 Assign computer name to serial/service tag number
Name = strSN
Set colComputers = objWMIService.ExecQuery (Select * from Win32_ComputerSystem)
For Each objComputer in colComputers
err = objComputer.Rename(name)
if err <> 0 then
wscript.echo There was an error renaming the machine. Please restart, and try again.
else
wscript.echo Machine successfully renamed: & Name
end if
Next
.
-
2nd November 2010 15:49 #2Registered User
Join Date: Dec:2005
Location: yvr
Posts: 5,167
-
2nd November 2010 16:42 #3Registered User
Join Date: Mar:2008
Location: BG
Posts: 162
-
2nd November 2010 21:34 #4Registered User
Join Date: Dec:2005
Location: yvr
Posts: 5,167
,




Reply With Quote

R9 280,
7th May 2023, 21:28 in