VBScript採取個人電腦的名稱，刪除任何不是字母或數字（即A-BC-123 - > ABC123）

Question

我和一個非程序員會感謝一些幫助VBScript刪除任何不是字母或數字PC的名稱並存儲修改後的名稱。然後加入或重新加入該域。

實施例：

pc name: pc-home-543 
rename: pchome543 
join domain: homeworkplay 
restart and it all works 

Answer 1

可以使用Win32_ComputerSystem WMI類的Rename方法重命名的計算機。要替換非字母數字字符，請使用正則表達式。

Set net = CreateObject("WScript.Network") 
Set wmi = GetObject("winmgmts://./root/cimv2") 

Set re = New RegExp 
re.Pattern = "[^a-z0-9]*" 
re.Global = True 
re.IgnoreCase = True 

For Each sys In wmi.ExecQuery("SELECT * FROM Win32_ComputerSystem") 
    sys.Rename re.Replace(net.ComputerName, "") 
Next 

您需要重新啓動計算機，名稱更改生效：

CreateObject("WScript.Shell").Run "shutdown -r -t 0" 

我不認爲你需要事後重新將系統加入到域，但如果這樣做，您可以使用相同WMI類的JoinDomainOrWorkgroup方法來完成此操作。