代码(fOutput.vbs):
复制代码 代码如下:
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery( _
"SELECT * FROM Win32_NetworkAdapterConfiguration",,48)
For Each objItem in colItems
Wscript.Echo objItem.Caption & fOutput(objItem.Caption) & "textinfo"
Next
Function fOutput(strName)
strLen = Len(strName)
Select Case True
Case strLen < 8
fOutput = chr(9) & chr(9) & chr(9) & chr(9) & chr(9)
Case strLen < 16
fOutput = chr(9) & chr(9) & chr(9) & chr(9)
Case strLen < 24
fOutput = chr(9) & chr(9) & chr(9)
Case strLen < 32
fOutput = chr(9) & chr(9)
Case strLen < 40
fOutput = chr(9)
Case Else
'超过40的只取前32位
For K = 1 To strLen - 32
fOutput = fOutput & chr(8)
Next
fOutput = fOutput & " ..." & chr(9)
End Select
End Function
原文:https://www.enun.net/?p=2381
免责声明:本站资源来自互联网收集,仅供用于学习和交流,请遵循相关法律法规,本站一切资源不代表本站立场,如有侵权、后门、不妥请联系本站删除!
更新日志
- [In-Akustik7507]ReferenceSoundEdition-GreatMenOfSong(2015)HQCD[WAV+CUE]
- 睡得晚起得早可乐当饭 49岁男子6年6次心梗
- 研究发现走路快的人天生寿命更长:身体年轻16岁!
- 东野圭吾改编新片《彷徨之刃》豆瓣6.6:寡淡又平庸
- 《DJ歌曲合集》[320K/MP3][50.8G]
- 《孙燕姿10CD合集》[WAV分轨][4.8G]
- 周慧敏《纯爱传说》[APE+CUE][387M]
- 真妮.1995-紫色的玫瑰【波丽佳音】【WAV+CUE】
- 陶莉萍2006-异想陶花园【华纳】【WAV+CUE】
- 陈淑萍.2012-等呀等【美华】【WAV+CUE】
- 莫镇贤.1992-ImCrying【乐意唱片】【FLAC分轨】
- 娃娃.2011-曙光【福茂】【WAV+CUE】
- 群星.1998-水晶之恋【新时代】【WAV+CUE】
- 世界公认爵士发烧碟《Saint Mic 聖咪 UHQCD》 原装正版 [FLAC+CUE][383M]
- 群星《瑞鸣十五周年纪念》3CD[FLAC][676M]