NSIS：把计算机名转换为大写或小写字符

admin

用WordFunc.nsh头文件可以实现

1. ;从注册表中读取当前计算机名
   
2. ReadRegStr $R1 HKLM "SYSTEM\CurrentControlSet\Control\ComputerName\ComputerName" "ComputerName"
   
3. MessageBox MB_OK "计算机名$R1"
   
4. ;把字符串转换为大写，如果转换为小写则把+改为-即可，还可以设置某些字符不转换哦
   
5. ${StrFilter} "$R1" "+" "" "" $R2
   
6. MessageBox MB_OK "转换后的计算机名$R2"
   
7. ;把计算机名全部改为大写
   
8. WriteRegStr   HKLM "SYSTEM\CurrentControlSet\Control\ComputerName\ComputerName" "ComputerName" "$R2"
   
9. WriteRegStr   HKLM "SYSTEM\CurrentControlSet\Control\ComputerName\ActiveComputerName" "ComputerName" "$R2"
   
10. WriteRegStr   HKLM "SYSTEM\CurrentControlSet\services\Tcpip\Parameters" "NV Hostname" "$R2"
    
11. WriteRegStr   HKLM "SYSTEM\CurrentControlSet\services\Tcpip\Parameters" "Hostname" "$R2"
    
12. WriteRegStr   HKLM "SYSTEM\ControlSet001\Control\ComputerName\ComputerName" "ComputerName" "$R2"
    
13. WriteRegStr   HKLM "SYSTEM\ControlSet001\Control\ComputerName\ActiveComputerName" "ComputerName" "$R2"
    
14. WriteRegStr   HKLM "SYSTEM\ControlSet001\services\Tcpip\Parameters" "NV Hostname" "$R2"
    
15. WriteRegStr   HKLM "SYSTEM\ControlSet001\services\Tcpip\Parameters" "Hostname" "$R2"
    
16. WriteRegStr   HKLM "SYSTEM\ControlSet002\Control\ComputerName\ComputerName" "ComputerName" "$R2"
    
17. WriteRegStr   HKLM "SYSTEM\ControlSet002\services\Tcpip\Parameters" "NV Hostname" "$R2"
    
18. WriteRegStr   HKLM "SYSTEM\ControlSet002\services\Tcpip\Parameters" "Hostname" "$R2"
    
19. WriteRegStr   HKCU "Software\Microsoft\Windows Media\WMSDK\General" "ComputerName" "$R2"
    
20. WriteRegStr   HKCU "Volatile Environment" "LOGONSERVER" "\\$R2"
    
21. WriteRegStr   HKCU "Volatile Environment" "USERDOMAIN" "$R2"
    

复制代码