献上我的IT运维工作表

ixrjog

EXCELHOME给我学习EXCEL非常大的帮助，使我快速成为了公司EXCEL的高手，在这里我献上部门工作表给大家

lminz

office2010格式？

ixrjog

2007/2010 都可以打开

ixrjog

========保存下面代码为XXX.VBS
Set WshShell = WScript.CreateObject("WScript.Shell")
'WshShell.run("D:\VBS\tsmmc.msc /s")
WScript.Sleep 3000

dim oExcel,oWb,oSheet
Set oExcel= CreateObject("Excel.Application")
'VBS读取的表格路径，如果表带有密码的话请输入密码，没有请删除“密码”
Set oWb = oExcel.Workbooks.Open("E:\重要文档\工作表.xlsm",,,,"密码")
Set oSheet = oWb.Sheets("核心帐户")

dim i
dim stname,stip,stus,stpass,strCopy


For i=3 to 500

'读取计算机名；如果无计算机名则用IP替换
If oSheet.Range("A" & i).Value="" Then
        stname=oSheet.Range("B" & i).Value
else
        stname=oSheet.Range("A" & i).Value
End If


'读取IP
stip=oSheet.Range("B" & i).Value
'读取帐号；
stus=oSheet.Range("C" & i).Value
'读取密码；
stpass=oSheet.Range("D" & i).Value


if stip<>""  And stus<>"0" And  stus<>""  Then
        WScript.Sleep 300
        WshShell.SendKeys "+{F10}"
        WScript.Sleep 100
        WshShell.SendKeys "A"
        WScript.Sleep 100
        WshShell.SendKeys stip
        WScript.Sleep 100
        WshShell.SendKeys "{TAB}"
        WScript.Sleep 100
        WshShell.SendKeys "{TAB}"
        WScript.Sleep 100
        '这里将输入中文的服务器名
        strCopy = stname
        Set objIE = CreateObject("InternetExplorer.Application")
        objIE.Navigate("about:blank")
        objIE.document.parentwindow.clipboardData.SetData "text", strCopy
        objIE.Quit
        WScript.Sleep 200
        WshShell.SendKeys "^{V}"
        WScript.Sleep 100
        WshShell.SendKeys "{TAB}"
        WScript.Sleep 100
        WshShell.SendKeys "{TAB}"
        WScript.Sleep 100
        WshShell.SendKeys stus
        WScript.Sleep 100
        WshShell.SendKeys "{TAB}"
        WScript.Sleep 100
        WshShell.SendKeys stpass
        WScript.Sleep 100
        WshShell.SendKeys "{TAB}"
        WScript.Sleep 100
        WshShell.SendKeys "{TAB}"
        WScript.Sleep 100
        WshShell.SendKeys "%{V}"
        WScript.Sleep 100
        WshShell.SendKeys "{ENTER}"
end if

Next


oExcel.WorkBooks.Close
oExcel.Quit
===========================
打开tsmmc.msc
运行VBS   然后让TSMMC至于顶层，VBS会自动倒入服务器信息到控制台

磨磨晨光

谢谢分享！！

liaohuchen

嗯。正在做类似的工作，看看，学习喽。！

hyj026

谢谢不错学习下

枫桥夜泊lwb

谢谢楼主分享

adminc

看看，学习下