[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
qqqkoko123

Rank: 1

帖子
10 
积分
23 
技术
0  
捐助
0  
注册时间
2017-2-15 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 2017-5-1 17:28 | 只看该作者

[技术讨论] vbs如何查询服务器上指定txt文本里是否有本机的计算机名和系统产品识别码，没有则添加

本帖最后由 pcl_test 于 2017-5-1 18:43 编辑

求大神一起讨论vbs如何才能实现如下功能
vbs要实现如下功能：
1，获取本机序列号
2，查询服务器上的findbyname.txt文本，输出计算机名
3，如果findbyname.txt文本中不包含此计算机名和序列号就按“计算机名 序列号”的格式写入findbyname.txt文本中
本人写了如下代码，但是第2个功能无法正常实现，请大神看看究竟哪里出了问题，万分感谢！
  1.    Set objWMIService = GetObject("winmgmts:\\.\root\CIMV2")

  2.    Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_computersystemproduct")

  3. 

  4.    For Each objItem In colItems

  5.           serialnumber = objItem.identifyingnumber

  6.    Next

  7. strComputer = "."

  8. Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

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

  10. For Each objComputer in colComputers

  11. strComputerName = objComputer.Name

  12. Exit For

  13. Next 

  14. MsgBox (strComputerName)

  15. MsgBox (serialnumber)

  16. Dim strFile

  17. 

  18. strFile = "findbyname.txt"

  19. Dim fso, objFile, arr, strContents, blnFound

  20. Set fso = CreateObject("Scripting.FileSystemObject")

  21. Set objFile = fso.OpenTextFile(strFile, 1)

  22. strContents = objFile.ReadAll

  23.  blfind = False

  24.   If InStr(strContents, serialnumber) Then 

  25.         	blfind = True 

  26.     		MsgBox ("找到主机名!") 

  27.   While   Not  objFile.AtEndOfStream 

  28.     arr = Split(objFile.ReadLine, " ")

  29.     If UBound(arr) > 0 Then

  30.         If arr(1) = serialnumber Then MsgBox arr(0)

  31.          End If 

  32.          wend

  33.      else 

  34.          MsgBox ("未找到主机名!") 

  35.     	 Set f = fso.OpenTextFile(strFile, 8) 

  36.     	 f.WriteLine (strComputerName & " " & serialnumber)

  37.      End If

  38. objFile.Close()

  39. Set objFile = Nothing : Set fso = Nothing
复制代码
收藏 分享

pcl_test

Rank: 8Rank: 8

帖子
3041 
积分
5333 
技术
685  
捐助
0  
注册时间
2014-10-19 
2楼
发表于 2017-5-2 09:52 | 只看该作者
本帖最后由 pcl_test 于 2017-5-2 09:54 编辑 
  1. Set objWMIService = GetObject("winmgmts:\\.\root\CIMV2")

  2. strFile = "findbyname.txt"

  3. 

  4. Set colItems = objWMIService.ExecQuery("Select * From Win32_ComputerSystemProduct")

  5. For Each objItem In colItems

  6.     serialnumber = objItem.IdentifyingNumber

  7. Next

  8. 

  9. Set colItems = objWMIService.ExecQuery("Select * From Win32_ComputerSystem")

  10. For Each objItem In colItems

  11.     strComputerName = objItem.Name

  12. Next

  13. 

  14. Set fso = CreateObject("Scripting.FileSystemObject")

  15. If Not fso.FileExists(strFile) Then

  16.     fso.CreateTextFile(strFile).WriteLine strComputerName & " " & serialnumber

  17. Else

  18.     If fso.GetFile(strFile).Size =0 Then

  19.         fso.OpenTextFile(strFile, 2).WriteLine strComputerName & " " & serialnumber

  20.     Else

  21.         Set objFile = fso.OpenTextFile(strFile, 1)

  22.         Do While objFile.AtEndOfStream<>true

  23.             strLine = Split(Trim(objFile.ReadLine)," ")

  24.             If LCase(strLine(0)) = LCase(strComputerName) Then

  25.                 flag = true

  26.                 Exit Do

  27.             End If

  28.         Loop

  29.         objFile.Close

  30.         If flag Then

  31.             Msgbox "Exists!"

  32.         Else

  33.             fso.OpenTextFile(strFile, 8).WriteLine strComputerName & " " & serialnumber

  34.         End If

  35.     End If

  36. End If
复制代码

TOP

qqqkoko123

Rank: 1

帖子
10 
积分
23 
技术
0  
捐助
0  
注册时间
2017-2-15 
3楼
发表于 2017-5-2 11:09 | 只看该作者
多谢大神指导，另外，经大神指导，用bat更加简单：
  1. @echo off 

  2. for /f %%a in ('wmic path Win32_computersystemproduct get identifyingnumber /value^|find "="') do set %%a

  3. find /i "%computername%" "findbyname.txt">nul && (echo 计算机名已找到! 

  4. echo 计算机名是%computername%)||(echo 计算机名未找到!

  5. >>"findbyname.txt" echo %computername% %identifyingnumber%)

  6. pause
复制代码

TOP

qqqkoko123

Rank: 1

帖子
10 
积分
23 
技术
0  
捐助
0  
注册时间
2017-2-15 
4楼
发表于 2017-5-2 11:19 | 只看该作者
另外，自己写的代码问题出在第27行，把第27行内容改为：
  1. While objFile.AtEndOfStream<>true
复制代码
这样就可以了！

TOP

返回列表