Change comp name, & strCompN

[slint]

Have some trouble with this one..

The code below is taken from microsofts site -

http://www.microsoft.com/technet/scriptcenter/scripts/ad/computer/cptrvb14.mspx

As it is now the script works, but...

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

Set colComputers = objWMIService.ExecQuery _
    ("Select * from Win32_ComputerSystem")

For Each objComputer in colComputers
    err = objComputer.Rename("WebServer")
Next

If i moify it to this then it doesnt work. The comp name is not renamed.

strCompN = "COMP1"

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

Set colComputers = objWMIService.ExecQuery _
    ("Select * from Win32_ComputerSystem")

For Each objComputer in colComputers
    err = objComputer.Rename(&strCompN)
Next

A: This can not be done!
B: Typo
C: Just wrong!


If A Then OK
Else
If B Then Pls Help me!
Else If
If C Whats wrong?
End If
Next

 

[PHV]

B or C:
err = objComputer.Rename(strCompN)

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[slint]

Strange...

I tryed your example yesterday and it worked one time.. then nothing.. but today it's working again.

I guess i had a typo somewhere else yesterday..

Thnx PHV!

 

[slint]

I found the prob wy it didnt work yesterday.

The prob was that i named the strCompN like this
strCompN = "00001"
And as i can se now if i use a zero in the begining it dosent work but if i place a letter infront like this
strCompN = "A0001" then it works.

Is it because i cant have a comp name begining with zero or is it the script that cant handle it?

 

[tsuji]

Default limitations are:
[1] It cannot be solely of numbers, periods, or spaces.
[2] Leading periods or spaces are disregarded.