Arsip Troubleshooting
Sistem dokumentasi error log dan instruksi perbaikan.
DETAIL LOG ERROR / GEJALA
script ubah data di excel
PROSEDUR SOLUSI FIX
Sub FINAL_Storage_Report()
Dim ws As Worksheet
Dim lastRow As Long
Dim i As Long
Dim dict As Object
Dim host As String
Dim keepMounts As Variant
Dim rng As Range
Set ws = ThisWorkbook.Sheets("Storage Report")
Set dict = CreateObject("Scripting.Dictionary")
' ================= DAFTAR SERVER =================
dict.Add "FIF_C0", True
dict.Add "DATA-ENTRY", True
dict.Add "Training_CC", True
dict.Add "ASSET-LOB-CC", True
dict.Add "TELEINTERVIEWER", True
dict.Add "SME-CentOs", True
dict.Add "FIF-MMU", True
dict.Add "fif-telesales-autodial", True
dict.Add "Sehati DC", True
dict.Add "RESERVE PROXY LB", True
dict.Add "APP_MTF_CS", True
dict.Add "mtf-cs-onebox-ubuntu", True
dict.Add "FIFWA_OFFICIAL", True
dict.Add "Grafana", True
dict.Add "WA-MUF", True
dict.Add "fif-reminder-app", True
dict.Add "FIF_DC", True
dict.Add "Remedial", True
dict.Add "STORAGE 70.23", True
dict.Add "NAS 30.4", True
dict.Add "LKS", True
dict.Add "cloudopenvpn", True
dict.Add "Ping Autodial", True
dict.Add "BCAF-DC-AUTO", True
dict.Add "fif-reminder-db_pbx", True
dict.Add "multiclient-v3", True
dict.Add "JULO_CTC", True
dict.Add "MTF_OVRS", True
dict.Add "apps_dataentry", True
dict.Add "BFI-WA", True
dict.Add "AUTODIAL_C1_CLOUD", True
dict.Add "MTF-AUTODIAL", True
dict.Add "MUF-CLOUD", True
dict.Add "QA Telecollection", True
dict.Add "Itop", True
dict.Add "NEW-CC-DRIVE", True
dict.Add "MTF_CS_INBOUND_CLOUD", True
dict.Add "OVRS-MTFPROJECT-CLOUD", True
dict.Add "FIF_Telesales", True
dict.Add "Bcaf DC", True
dict.Add "Dashboard OTC 70.120", True
dict.Add "FIF TELE-AUDIT", True
dict.Add "Server FTPS NAsional", True
dict.Add "btpn-web", True
dict.Add "AWDA-DC-CLOUD", True
dict.Add "Reporting Dev Cloud", True
dict.Add "STORAGE 172.16.70.15", True
dict.Add "FIF_DC_DB_dan_ASTERISK", True
dict.Add "Backup-KR1", True
dict.Add "btpn-fileserver", True
dict.Add "autodial-smg-new", True
dict.Add "FIF filtering WA", True
dict.Add "FIF-AUTOKRANGGAN", True
dict.Add "btpn-reporting", True
dict.Add "MTF-BALNOL", True
dict.Add "cloudsymmetricsds", True
dict.Add "OVRS-KRANGGAN-CLOUD", True
dict.Add "FIF-WA", True
dict.Add "DevOnebox", True
dict.Add "FIF_PROJECT_BALNOL", True
dict.Add "BS-NSP", True
dict.Add "cloudopenvpn2", True
dict.Add "PINCALL SUCCESS-FEE", True
dict.Add "MTF_SKIPTRACE", True
dict.Add "DATA-WAREHOUSE", True
dict.Add "Zabbix server", True
dict.Add "Bcaf-va", True
dict.Add "MTF-WA", True
dict.Add "btpn-mobile", True
dict.Add "Danastra", True
dict.Add "Webcam Monitoring by PKP", True
dict.Add "FIF_PV_CLOUD", True
dict.Add "BOP-WAREHOUSE", True
dict.Add "wa-non_official-fif-tele", True
dict.Add "Multicam Premis", True
dict.Add "mtf", True
dict.Add "FIF_SKIPTRACE", True
dict.Add "Multicampaign", True
dict.Add "ADIRA", True
dict.Add "icoll", True
dict.Add "NASREC-SIM", True
dict.Add "wa-astrapay", True
dict.Add "btpn-scheduller", True
dict.Add "teleremedial-wa-official", True
dict.Add "Service Warehouse", True
' =================================================
keepMounts = Array("/", "/BACKUP", "/BACKUP3", "/etc/hostname")
lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
Set rng = ws.Range("A1:G" & lastRow)
Application.ScreenUpdating = False
' Reset
If ws.AutoFilterMode Then ws.AutoFilterMode = False
ws.Rows.Hidden = False
' ===== FILTER SERVER (AUTOFILTER ONLY) =====
rng.AutoFilter Field:=1, Criteria1:=dict.Keys, Operator:=xlFilterValues
' ===== FILTER MOUNT =====
rng.AutoFilter Field:=2, Criteria1:=keepMounts, Operator:=xlFilterValues
' ===== FIX DATA (ANTI PERSEN RIBUAN) =====
For i = 2 To lastRow
If Not ws.Rows(i).Hidden Then
' Disk 0 ? 1
If ws.Cells(i, "C").Value = 0 Then ws.Cells(i, "C").Value = 1
' ===== FIX USAGE% AMAN =====
If IsNumeric(ws.Cells(i, "D").Value) Then
If ws.Cells(i, "D").Value > 1 Then
ws.Cells(i, "D").Value = ws.Cells(i, "D").Value / 100
End If
End If
End If
Next i
' Format Usage%
ws.Columns("D").NumberFormat = "0%"
' Sembunyikan kolom Mount
ws.Columns("B").Hidden = True
Application.ScreenUpdating = True
MsgBox "? Storage Report selesai & Usage% AMAN (anti ribuan)", vbInformation
End Sub
DETAIL LOG ERROR / GEJALA
ambil nama snapshoot
PROSEDUR SOLUSI FIX
=VLOOKUP(C2,'[ecs_snapshotLink_list_ap-southeast-5_2026-06-06.csv]ecs_snapshotLink_list_ap-southe'!$E$2:$J$168,6,0)
instance name
CCCM-AWDA-NEW-KRANGGAN
CCCM-wa-non_official-succesfee
CCCM-fif-c0
CCCM-FIF-WA
CCCM-FIF-filtering-WA
CCCM-Data-warehouse
CCCM-Fif-teleaudit
CCCM-ovrs-kranggan
CCCM-MTF_autodial
CCCM-Roleplay
CCCM-ovrs-project
CCCM-Ovrs-Semarang
CCCM-Fifauto-kr
CCCM-Bop-warehouse
CCCM-Fif-PV
CCCM-Webcam-pkp
CCCM-Pingcall_Success-Fee
HO-Teleinterview
CCCM-Autodial-C1
CCCM-Maybank
CCCM-Myrep_API
CCCM-MyRep_DB
CCCM-Myrep_pabx
CCCM-MyRep_APPS
CCCM-multicampaign
CCCM-jogja2
CCCM-autodial-semarang2
CCCM-autodial-semarang
CCCM-autodial-jogja1
CCCM-Symmetric_DS
CCCM-Openvpn1
CCCM-openvpn-router
CCCM-fif-dashboard
CCCM-Autodial-smg3
CCCM-MUF
CCCM-wa-official-muf
CCCM-bcaf-auto
CCCM-FIF-WA-OFFICIAL
CCCM-mtf-balnol
CCCM-apps_mtf-cs-onebox
CCCM-Mtf-cs-inbound
CCCM-BTPN-fileserver
CCCM-BTPN-app-mobile
CCCM-BTPN-app-web
CCCM-BTPN-reporting
HO-BS-NSP
CCCM-Danastra
CCCM-reminder-app1
CCCM-fif-reminder-db_pbx
CCCM-fif-telesales-autodial
CCCM-adira
CCCM-btpn-icoll
CCCM-wa-astrapay
CCCM-wa-bfi (hilang)
CCCM-Amartha
CCCM-fif-teleremedial-waofficial
CCCM-MulticlientV3
CCCM-btpn-scheduller
CCCM-bcaf-va
CCCM-reminder-app2
CCCM-PPTP-cloud-mikrotik
CCCM-Openvpn-YGK
CCCM-Openvpn-SMG2
CCCM-LKS
CCCM-wa-non_official-fif-tele
CCCM-Tiketing
CCCM-Reminder-Autodial
CCCM-wa-call-fif-c2c-app3-smg
CCCM-wa-call-fif-c2c-app2-smg
CCCM-wa-call-fif-c2c-app1-smg
CCCM-wa-call-fif-c2c-jgj2
CCCM-wa-call-fif-c2c-jgj1
CCCM-Wa-call-fif-c2c-kr
CCCM-wa-fif-pv
CCCM-Tiketing
CCCM-fifdc-bali-asterisk
CCCM-fifdc-bali-app
DETAIL LOG ERROR / GEJALA
script ubah data di excel
PROSEDUR SOLUSI FIX
Sub FilterByAllowedNames()
Dim ws As Worksheet
Dim lastRow As Long
Dim i As Long
Dim allowedList As Object
Dim nama As String
' === Daftar nama yang ingin dipertahankan ===
' (Tambahkan / edit di sini sesuai kebutuhan)
Dim allowedArray As Variant
allowedArray = Array( _
"CCCM-AWDA-NEW-KRANGGAN", "CCCM-wa-non_official-succesfee", "CCCM-fif-c0", "CCCM-FIF-WA", "CCCM-FIF-filtering-WA", _
"CCCM-Data-warehouse", "CCCM-Fif-teleaudit", "CCCM-ovrs-kranggan", "CCCM-MTF_autodial", _
"CCCM-Roleplay", "CCCM-ovrs-project", "CCCM-Ovrs-Semarang", "Fifauto-kr", _
"CCCM-Bop-warehouse", "CCCM-Fif-PV", "CCCM-Webcam-pkp", "CCCM-Pingcall_Success-Fee", _
"HO-Teleinterview", "CCCM-Autodial-C1", "CCCM-Maybank", "CCCM-Myrep_API", "CCCM-MyRep_DB", _
"CCCM-Myrep_pabx", "CCCM-MyRep_APPS", "CCCM-multicampaign", "CCCM-jogja2", _
"CCCM-autodial-semarang2", "CCCM-autodial-semarang", "CCCM-autodial-jogja1", _
"CCCM-Symmetric_DS", "CCCM-Openvpn1", "CCCM-openvpn-router", "CCCM-Fif-Dashboard", _
"CCCM-Autodial-smg3", "CCCM-MUF", "CCCM-wa-official-muf", "CCCM-bcaf-auto", _
"CCCM-FIF-WA-OFFICIAL", "CCCM-mtf-balnol", "CCCM-apps_mtf-cs-onebox", "CCCM-Mtf-cs-inbound", _
"CCCM-BTPN-fileserver", "CCCM-BTPN-app-mobile", "CCCM-wa-non_official-fif-tele", "CCCM-BTPN-app-web", _
"CCCM-BTPN-reporting", "HO-BS-NSP", "CCCM-Danastra", "CCCM-reminder-app1", _
"CCCM-fif-reminder-db_pbx", "CCCM-fif-telesales-autodial", "CCCM-adira", "CCCM-btpn-icoll", _
"CCCM-wa-astrapay", "CCCM-wa-bfi", "CCCM-Amartha", "CCCM-fif-teleremedial-waofficial", _
"CCCM-MulticlientV3", "CCCM-btpn-scheduller", "CCCM-bcaf-va", "CCCM-reminder-app2", _
"CCCM-Openvpn1", "CCCM-Openvpn-YGK", "CCCM-Openvpn-SMG2", "CCCM-Reminder-Autodial", "CCCM-LKS", _
"CCCM-PPTP-cloud-mikrotik", "CCCM-Tiketing", "CCCM-wa-call-fif-c2c-app3-smg", "CCCM-wa-call-fif-c2c-app2-smg", _
"CCCM-wa-call-fif-c2c-app1-smg", "CCCM-wa-call-fif-c2c-jgj2", "CCCM-wa-call-fif-c2c-jgj1", "CCCM-wa-call-fif-c2c-kr", _
"CCCM-wa-fif-pv", "CCCM-Tiketing", "CCCM-fifdc-bali-app", "CCCM-fifdc-bali-asterisk" _
)
' Buat dictionary untuk pengecekan cepat
Set allowedList = CreateObject("Scripting.Dictionary")
For i = LBound(allowedArray) To UBound(allowedArray)
allowedList(Trim(LCase(allowedArray(i)))) = True
Next i
Set ws = ActiveSheet
Const colS As Long = 19 ' Kolom S
lastRow = ws.Cells(ws.Rows.Count, colS).End(xlUp).Row
' Loop dari bawah agar aman saat menghapus baris
For i = lastRow To 2 Step -1
nama = Trim(LCase(ws.Cells(i, colS).Value))
' Jika nama tidak ada di daftar ? hapus baris
If Not allowedList.exists(nama) Then
ws.Rows(i).Delete
End If
Next i
MsgBox "Selesai! Hanya data yang ada dalam daftar yang tersisa.", vbInformation
End Sub
DETAIL LOG ERROR / GEJALA
nyalakan pc dan menampilkan monitoring yang akan di tampilkan di tv
PROSEDUR SOLUSI FIX
10.10.12.188
https://dashboard-fif-dc.simgroup.co.id/autodial/fif_dc_dashboard/index.php/home/loginpage
sim_opr
ts4m4r@_R3st0
chrome
arahin ke kranggan
10.10.12.186
sim123
pkp123
https://wfhmonitor.simgroup.co.id:7100/dashboard
chrome
10.10.12.250
sim123
https://api-myrep.simgroup.co.id/dashboardPDS/dashboard.html
mozila
password
123456