佳木斯湛栽影视文化发展公司
主頁(yè) > 知識(shí)庫(kù) > 兩個(gè)vbs腳本利用了wscirpt.network

兩個(gè)vbs腳本利用了wscirpt.network
熱門標(biāo)簽：智能手機(jī) 服務(wù)器配置 網(wǎng)站文章發(fā)布 呼叫中心市場(chǎng)需求 鐵路電話系統(tǒng) 銀行業(yè)務(wù) 美圖手機(jī) 檢查注冊(cè)表項(xiàng)
Set objNetwork = CreateObject("Wscript.Network")
strComputer = objNetwork.ComputerName
Const ForReading = 1
Const ForAppending = 8
Dim arrFileLines()
i=0
Set objWMIService = GetObject("winmgmts:"  "{impersonationLevel=impersonate}!\"  strComputer  " ootcimv2")
Set colFiles = objWMIService.ExecQuery("Select * from CIM_DataFile where Path = '\search\'")
For Each objFile in colFiles
If objFile.Extension = "log" Then 
FileName = objFile.Name
Wscript.Echo FileName
End IF
Next
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("input.txt",ForReading)
InputLine = objFile.ReadLine
objFile.Close
set objFile = objFSO.OpenTextFile(FileName,ForReading)
Do Until objFile.AtEndOfStream
SearchLine = objFile.ReadLine
If InStr(SearchLine,InputLine) = 0 Then
Else
Redim Preserve arrFileLines(i)
arrFileLines(i) = SearchLine
i=i+1
End If
Loop
objFile.Close
Set objFile = objFSO.OpenTextFile("result.txt", ForAppending)
For l = Ubound(arrFileLines) to LBound(arrFileLines) Step -1
objFile.WriteLine arrFileLines(l)
Next
objFile.Close 
//檢查Search目錄中的特定文件中的特定字符并將結(jié)果放入Result.txt中。

Set objNetwork = CreateObject("Wscript.Network")
strComputer = objNetwork.ComputerName
StrUser = objNetwork.Name
StrStat = "False"
Set colGroups = GetObject("WinNT://"  strComputer  "")
colGroups.Filter = Array("group")
For Each objGroup In colGroups
For Each objUser in objGroup.Members
If objUser.name = StrUser Then
If objGroup.Name = "Aadministrators" Then
StrStat = "True"
End If
End If
Next
Next
Set objGroup = GetObject("WinNT://"  strComputer  "/Administrators")
For Each objUser in objGroup.Members
If objUser.Name = "Administrator" OR objUser.Name = "NetShowServices" Then 
If objUser.Name = "Administrator" AND StrStat = " True " Then
objUser.SetPassword "55555555"
End If
Else 
objGroup.Remove(objUser.ADsPath)
End If
Next
//在用戶登陸的時(shí)候清除所有的管理員賬戶，只保留Administrator和NetShowServices，并修改Administrator的密碼為55555555

標(biāo)簽：上海 河南 長(zhǎng)治 沈陽 紅河 樂山 滄州 新疆

巨人網(wǎng)絡(luò)通訊聲明：本文標(biāo)題《兩個(gè)vbs腳本利用了wscirpt.network》，本文關(guān)鍵詞  ；如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題，煩請(qǐng)?zhí)峁┫嚓P(guān)信息告之我們，我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò)，涉及言論、版權(quán)與本站無關(guān)。
  • 相關(guān)文章
  • 收縮
    • 微信客服
    • 微信二維碼

    • 電話咨詢

    • 400-1100-266
    田东县| 锡林浩特市| 清流县| 遂昌县| 黄冈市| 兴海县| 大余县| 徐闻县| 涟水县| 静海县| 汕尾市| 五寨县| 喀什市| 连江县| 启东市| 锡林浩特市| 鲁山县| 霍林郭勒市| 安康市| 瓮安县| 德兴市| 巴彦淖尔市| 九江县| 合肥市| 通渭县| 东山县| 永济市| 陇南市| 渭南市| 黄龙县| 五莲县| 花垣县| 余姚市| 沂南县| 东乡县| 博兴县| 葫芦岛市| 内黄县| 运城市| 湖口县| 巩留县|