请教一个VBS程序~我运行后读取的是 A0101 怎么才能去掉前面的A和0啊，直接显示101啊 - VB6论坛

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → 开发语言 → 『 VB6论坛』 → 请教一个VBS程序~我运行后读取的是 A0101 怎么才能去掉前面的A和0啊，直接显示101啊

我的收件箱(0)

欢迎加入我们，一同切磋技术

共有 845 人关注过本帖

标题：请教一个VBS程序~我运行后读取的是 A0101 怎么才能去掉前面的A和0啊，直接显 ...

只看楼主加入收藏

my2yy

等　级：新手上路
帖　子：2
专家分：0
注　册：2007-7-21

楼主

问题点数：0 回复次数：5

请教一个VBS程序~我运行后读取的是 A0101 怎么才能去掉前面的A和0啊，直接显示101啊

！读本机“计算机名”

'ReadComputerName.vbs
Dim ReadComputerName
Set ReadComputerName=WScript.CreateObject("WScript.Shell")
Dim ComputerName,RegPath
RegPath="HKLM\System\CurrentControlSet\Control\ComputerName\ComputerName\ComputerName"
ComputerName=ReadComputerName.RegRead(RegPath)
MsgBox("计算机名为"&ComputerName)
我运行后读取的是 A0101 怎么才能去掉前面的A和0啊，直接显示101啊
哪位高手帮帮忙，小弟初学~~

搜索更多相关主题的帖子: VBS　计算机　 ComputerName　RegPath　

2007-07-21 19:27

slore

等　级：贵宾
威　望：16
帖　子：1108
专家分：0
注　册：2005-7-1

第 2 楼

得分:0

处理字符串使用Mid,Left,Right等函数……

'ReadComputerName.vbs
Dim ReadComputerName
Set ReadComputerName = WScript.CreateObject("WScript.Shell")
Dim ComputerName,RegPath
RegPath = "HKLM\System\CurrentControlSet\Control\ComputerName\ComputerName\ComputerName"
ComputerName = ReadComputerName.RegRead(RegPath)
ComputerName = Mid(ComputerName,3) '不要前2位
MsgBox("计算机名为" & ComputerName)