أستغفر الله العظيم ,, اللهم لك الحمد



العودة   منتديات داماس > برامج الكمبيوتر والانترنت > صيانة الكمبيوتر وحلول الحاسب الألي - هاردوير


مواضيع مميزة  


آخر عشرة مواضيع المواضيع النشطة


06-05-2014, 01:21 PM
assafar غير متصل
عضو فعال
رقم العضوية: 459749
تاريخ التسجيل: Apr 2014
المشاركات: 40
إعجاب: 0
تلقى 0 إعجاب على 0 مشاركة
تلقى دعوات الى: 0 موضوع
مواضيع لم تعجبه: 0
تلقى 0 عدم اعجاب على 0 مشاركة
    #481  
01:21 PM

شكرا على المجهود الجبار الذي بدلته




23-05-2014, 12:11 PM
أبو نسيبه غير متصل
عضو فعال
رقم العضوية: 299503
تاريخ التسجيل: Jul 2009
المشاركات: 49
إعجاب: 0
تلقى 2 إعجاب على 2 مشاركة
تلقى دعوات الى: 0 موضوع
مواضيع لم تعجبه: 0
تلقى 0 عدم اعجاب على 0 مشاركة
    #482  
بارك الله فيك

24-05-2014, 03:28 AM
الدسوقى2005 غير متصل
عضو فعال
رقم العضوية: 29150
تاريخ التسجيل: Dec 2005
المشاركات: 72
إعجاب: 3
تلقى 0 إعجاب على 0 مشاركة
تلقى دعوات الى: 1 موضوع
مواضيع لم تعجبه: 0
تلقى 0 عدم اعجاب على 0 مشاركة
    #483  

من مواضيعي:
- اسرى حرب 67

01-06-2014, 01:06 AM
titomo غير متصل
عضو فعال
رقم العضوية: 201477
تاريخ التسجيل: Dec 2008
المشاركات: 51
إعجاب: 2
تلقى 0 إعجاب على 0 مشاركة
تلقى دعوات الى: 0 موضوع
مواضيع لم تعجبه: 0
تلقى 0 عدم اعجاب على 0 مشاركة
    #484  
فلاشة توشيبا لا تعمل


15-06-2014, 03:08 PM
djamalpop غير متصل
عضو جديد
رقم العضوية: 474499
تاريخ التسجيل: Jun 2014
المشاركات: 3
إعجاب: 0
تلقى 0 إعجاب على 0 مشاركة
تلقى دعوات الى: 0 موضوع
مواضيع لم تعجبه: 0
تلقى 0 عدم اعجاب على 0 مشاركة
    #485  


اي اي اي //اي اي اي

كل هدا شرح ؟؟؟؟؟؟

وكل هده البرامج ؟؟؟؟؟


لاجل فلاشة ؟؟؟؟؟؟

تبا كم نحن متاخرون يا رب نتقدم في يوم ما ......ربما

اليكم الحل الابسط الاسهلوالامثل (((كندكيا وفقط))))

هدا السكريبت يمكن التعديل عليه طبعا ليصبح سكريبت يجب مادا ؟؟؟؟

حفظه بالامتداد (vbs) مثلا (djamalpop.vbs)

وهدا نص السكريبت

Call checkUSB ' Appelle a la procédure checkUSB
Dim MsgTitre,fso,Ws,NomFichierLog,NBfichier,ListVirus
ListVirus = array("ntde1ect.com","semo2x.exe","avpo.exe","ntdelect.com","ntdeiect. com","amvo.exe","rtlip.exe","x.exe","ert.dll",_
"help.exe","copy.exe")
MsgTitre="ãÑÇÍá ÇáÝÍÕ ÇáãÊØæÑ ::© djamalpop"
Set fso = CreateObject("Scripting.FileSystemObject")
Set Ws = CreateObject("Wscript.Shell")
Set dc = fso.Drives
For Each d in dc
If d.IsReady and d.DriveType = 1 Then
racine = d.Driveletter
MsgBox "åæ ÍÑÝ ÇáÊÚÑíÝ ÇáÎÇÕ ÈÇáÝáÇÔÉ íÑÌì ÇáãÊÇÈÚÉ ÇáÇä ááÝÍÕ Úä ÇáÝíÑæÓÇÊ : " &racine&":\",64,MsgTitre
end if
Next
Ws.Run "%comspec% /c attrib -s -h -r "&racine&":\*.* /D /S",0,True
Ws.Run "%comspec% /c dir "&racine&":\ > Resultat.txt",0,True
Quest = MsgBox ("åá ÊÑíÏ ÑÄíÉ ÊÞÑíÑ ãßÊæÈ ÚãÇ íÍÊæíå ÇáÝáÇÔÉ¿¿"&_
"ÓíÞæã åÏÇ ÇáãÚÇáÌ ÈÇÚØÇÆß ÊÞÑíÑ ßÇãá Úä ãÍÊæì ÇáÝáÇÔÉÇÏÇ ßäÊ ÊÑíÏ Ïáß",VBYesNO+VbQuestion,MsgTitre)
If Quest = VbYes then
Ws.Run "Resultat.txt"
end if

Wscript.Sleep 10000

NomFichierLog = "äÊÇÆÌ ÝÍÕ ÇáÝíÑæÓÇÊ.html"
Set OutPut = fso.CreateTextFile(NomFichierLog,2)

Set folder = fso.getFolder(racine&":\")
For X=0 to UBound(ListVirus)
If fso.fileExists(racine &":\"& ListVirus(X)) Then
Attr = Ws.Run("cmd /C attrib -s -h -r "&racine&":\"&ListVirus(X)&"",0,TRUE)
Supp = Ws.Run("cmd /C cd \ & del "&racine&":\" &ListVirus(X)& "/f /q /a",0,TRUE)
OutPut.WriteLine "<hr> &#202;&#227; &#199;&#225;&#222;&#214;&#199;&#193; &#218;&#225;&#237;&#229; &#228;&#229;&#199;&#198;&#237;&#199; &#199;&#206;&#230;&#223;&#227; &#204;&#220;&#220;&#220;&#220;&#220;&#220;&#220;&#220;&#220;&#220;&#22 0;&#220;&#220;&#227;&#199;&#225;<B><font color=red>"& ListVirus(X)& "</B></font> &#199;&#225;&#221;&#237;&#209;&#230;&#211; &#199;&#225;&#227;&#211;&#227;&#236;"
else
OutPut.WriteLine " <hr> &#219;&#237;&#209; &#227;&#230;&#204;&#230;&#207; &#218;&#225;&#236; &#199;&#225;&#221;&#225;&#199;&#212;&#201; &#199;&#200;&#207;&#199; &#199;&#206;&#230;&#223;&#227; &#204;&#227;&#220;&#220;&#220;&#220;&#220;&#220;&#220;&#220;&#220;&#22 0;&#220;&#199;&#225;<B><font color=red>"& ListVirus(X)& "</B></font> &#199;&#225;&#221;&#237;&#209;&#230;&#211; &#199;&#225;&#227;&#211;&#227;&#236;"
end if
Next

NBfichier=0
For Each Fichier in folder.Files
If UCase(FSO.GetExtensionName(Fichier.Path)) = "LNK" Then
NBfichier=NBfichier+1
OutPut.WriteLine "<br><hr>&#199;&#225;&#221;&#237;&#209;&#230;&#211;&#199;&#202; &#199;&#225;&#202;&#237; &#230;&#204;&#207;&#202; <B><font color=red>"& Fichier.Path & "</B></font> &#222;&#207; &#202;&#227; &#199;&#225;&#222;&#214;&#199;&#193; &#218;&#225;&#237;&#229;&#199; &#200;&#228;&#204;&#199;&#205; &#202;&#199;&#227; "
fso.DeleteFile(Fichier)
end if
Next
If NBfichier > 0 then
MsgBox NBfichier& "&#225;&#222;&#207; &#222;&#199;&#227; &#199;&#225;&#227;&#218;&#199;&#225;&#204; &#200;&#199;&#225;&#222;&#214;&#199;&#193; &#218;&#225;&#236; &#223;&#225; &#199;&#225;&#221;&#237;&#209;&#230;&#211;&#199;&#202; &#199;&#225;&#227;&#230;&#204;&#230;&#207;&#201; &#218;&#225;&#236; &#199;&#225;&#221;&#225;&#199;&#212;&#201; &#206;&#199;&#213;&#202;&#223;&#227; &#227;&#200;&#209;&#230;&#223; &#218;&#225;&#237;&#223;&#227; &#230;&#225;&#199; &#202;&#228;&#211;&#230;&#228;&#199; &#200;&#199;&#225;&#207;&#218;&#199;&#193; &#199;&#206;&#230;&#223;&#227; &#204;&#227;&#199;&#225; ",64,MsgTitre
else
MsgBox "&#225;&#199; &#202;&#230;&#204;&#207; &#199;&#237;&#201; &#199;&#206;&#202;&#213;&#199;&#209;&#199;&#202; &#199;&#230; &#221;&#237;&#209;&#230;&#211; &#199;&#225;&#199;&#206;&#202;&#213;&#199;&#209; &#218;&#225;&#236; &#199;&#225;&#221;&#225;&#199;&#212;&#201; &#206;&#199;&#213;&#202;&#223;&#227; ",64,MsgTitre
end if
OutPut.WriteLine vbNewLine & "<hr><B><font color=red> "& NBfichier& " </B></font> &#227;&#225;&#221;&#199;&#202; &#199;&#225;&#199;&#206;&#202;&#213;&#199;&#209;&#199;&#202; &#202;&#227; &#227;&#211;&#205;&#229;&#199; &#200;&#228;&#204;&#199;&#205; &#227;&#200;&#209;&#230;&#223; &#218;&#225;&#237;&#223;&#227; &#230;&#225;&#199; &#202;&#228;&#211;&#230;&#228;&#199; &#200;&#199;&#225;&#207;&#218;&#199;&#193; &#199;&#206;&#230;&#223;&#227; &#204;&#227;&#199;&#225; © djamalpop soft djimla"
OutPut.Close

strHTML="<html><body bgcolor=#1234568 text=white><style type='text/css'>"&_
"a:link {color: #F19105;}"&_
"a:visited {color: #F19105;}"&_
"a:active {color: #F19105;}"&_
"a:hover {color: #FF9900;background-color: rgb(255, 255, 255);}"&_
"</style></body></html>"
strHTML = strHTML & "<center><font size=5 FACE=Comic sans MS style=font-weight:bold Color=Violet>&#229;&#207;&#199; &#202;&#222;&#209;&#237;&#209; &#221;&#205;&#213; &#199;&#225;&#221;&#237;&#209;&#230;&#211;&#199;&#202; &#218;&#225;&#236; &#199;&#225;&#221;&#225;&#199;&#212;&#201; &#199;&#225;&#206;&#199;&#213;&#201; &#200;&#223;&#227; &#200;&#211;&#227; &#199;&#225;&#225;&#229; &#199;&#225;&#209;&#205;&#227;&#228; &#199;&#225;&#209;&#205;&#237;&#227; "&racine&":\"&"</font><br><br>"&_
""'</text></center>"
Set ReadOutPut = fso.OpenTextFile(NomFichierLog,1)
st = ReadOutPut.ReadAll
tb = split(st,vbcrlf)
For i = lbound(tb) to ubound(tb)
strHTML=strHTML & tb(i) & "<br>"
next
Set WriteOutPut = fso.OpenTextFile(NomFichierLog,2)
WriteOutPut.WriteLine strHTML
AffichLog = MsgBox ("&#229;&#225; &#202;&#209;&#237;&#207; &#209;&#196;&#237;&#201; &#202;&#222;&#209;&#237;&#209; &#227;&#223;&#202;&#230;&#200; &#218;&#228; &#228;&#202;&#199;&#198;&#204; &#199;&#225;&#202;&#228;&#214;&#237;&#221;&#191;&#191;"&_
"&#211;&#237;&#222;&#230;&#227; &#199;&#225;&#200;&#209;&#228;&#199;&#227;&#204; &#200;&#218;&#209;&#214; &#202;&#222;&#209;&#237;&#209; &#227;&#223;&#202;&#230;&#200; &#218;&#228; &#228;&#202;&#199;&#198;&#204; &#199;&#225;&#202;&#228;&#214;&#237;&#221; ",VBYesNO+VbQuestion,MsgTitre)
If AffichLog = VbYes then
Explorer(NomFichierLog)
end if

Wscript.Sleep 15000

Question = MsgBox ("&#229;&#225; &#202;&#209;&#237;&#207; &#209;&#196;&#237;&#201; &#202;&#222;&#209;&#237;&#209; &#227;&#223;&#202;&#230;&#200; &#218;&#227;&#199; &#237;&#205;&#202;&#230;&#237;&#229; &#199;&#225;&#221;&#225;&#199;&#212;&#201;&#191;&#191;",VbYesNO+VbQues tion,MsgTitre)
if Question = VbYes then
Explorer_Folder ""&racine&":"
end if

Function Explorer_Folder(Dir)
Set ws=CreateObject("wscript.shell")
ws.run "Explorer.exe "& Dir & "\"
'ws.Run "explorer /n,/e,/select," & Dir & "\nul"
end Function

'-----checkUSB---
Sub checkUSB
strComputer = "."
On Error Resume Next
Set WshShell = CreateObject("Wscript.Shell")
beep = chr(007)
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_DiskDrive WHERE InterfaceType='USB'",,48)
intCount = 0
For Each drive In colItems
If drive.mediaType <> "" Then
intCount = intCount + 1
End If
Next
If intCount > 0 Then
MsgBox "&#204;&#229;&#199;&#210; &#199;&#225;&#221;&#225;&#199;&#212; &#206;&#199;&#213;&#202;&#223;&#227; &#227;&#230;&#213;&#230;&#225; &#200;&#212;&#223;&#225; &#227;&#227;&#202;&#199;&#210; &#237;&#209;&#204;&#236; &#199;&#225;&#227;&#202;&#199;&#200;&#218;&#201; &#225;&#225;&#221;&#205;&#213; &#218;&#228; &#199;&#225;&#221;&#237;&#209;&#230;&#211;&#199;&#202;",64,"&#221;&#20 5;&#213; &#199;&#225;&#202;&#230;&#213;&#237;&#225; &#199;&#225;&#211;&#225;&#237;&#227; © djamalpop soft djimla!"
Call NumSerie_Usb() ' Appelle a la procédure NumSerie_Usb()
else
WshShell.Run "cmd /c @echo " & beep, 0
wscript.sleep 1000
MsgBox "&#204;&#229;&#199;&#210; &#199;&#225;&#221;&#225;&#199;&#212; &#219;&#237;&#209; &#227;&#230;&#213;&#230;&#225; &#237;&#209;&#204;&#236; &#199;&#225;&#202;&#199;&#223;&#207; &#227;&#228; &#199;&#225;&#230;&#213;&#225; &#199;&#225;&#211;&#225;&#237;&#227; &#222;&#200;&#225; &#199;&#225;&#227;&#202;&#199;&#200;&#218;&#201; &#230;&#212;&#223;&#209;&#199; " &VbCrlf&_
"&#222;&#207; &#237;&#223;&#230;&#228; &#199;&#205;&#207; &#199;&#225;&#199;&#211;&#200;&#199;&#200; &#237;&#209;&#204;&#236; &#221;&#213;&#225; &#199;&#225;&#221;&#225;&#199;&#212;&#201; &#203;&#227; &#199;&#225;&#202;&#230;&#213;&#237;&#225; &#227;&#228; &#204;&#207;&#237;&#207; &#199;&#230; &#199;&#228; &#199;&#225;&#221;&#225;&#199;&#212;&#201; &#227;&#213;&#199;&#200;&#201; &#200;&#214;&#209;&#209; &#227;&#237;&#223;&#199;&#228;&#237;&#223;&#237; &#237;&#227;&#228;&#218; &#199;&#225;&#202;&#218;&#209;&#221; &#218;&#225;&#237;&#229;&#199; &#205;&#199;&#230;&#225; &#227;&#204;&#207;&#207;&#199; "&VbCrlf&_
"&#212;&#223;&#209;&#199; &#204;&#210;&#237;&#225;&#199;",48,"&#221;&#205;&#213; &#199;&#225;&#202;&#230;&#213;&#237;&#225; &#199;&#225;&#211;&#225;&#237;&#227; © djamalpop soft djimla "
wscript.Quit
End If
End Sub
'--Fin du checkUSB---

'---NumSerie_Usb.vbs---------
Sub NumSerie_Usb()
Dim NumSerie
'Retrouver la clé Usb et son numéro de série
Set fso = CreateObject("Scripting.FileSystemObject")
For Each Drive In fso.Drives
If Drive.IsReady Then
If Drive.DriveType=1 Then
NumSerie=fso.Drives(Drive + "\").SerialNumber
MsgBox "&#229;&#207;&#199; &#229;&#230; &#199;&#225;&#209;&#222;&#227; &#199;&#225;&#202;&#211;&#225;&#211;&#225;&#237; &#225;&#225;&#221;&#225;&#199;&#212;&#201; &#206;&#199;&#213;&#202;&#223;&#227; &#237;&#209;&#204;&#236; &#199;&#225;&#227;&#202;&#199;&#200;&#218;&#201; : "&NumSerie,64,"&#202;&#218;&#209;&#237;&#221; &#199;&#225;&#209;&#222;&#227; &#199;&#225;&#202;&#211;&#225;&#211;&#225;&#237; &#225;&#225;&#221;&#225;&#199;&#212;&#201; © djamalpop soft djimla"
end if
End If
Next
End Sub
'Les élément à démarage automatiq et + ListProcessCmdLine.vbs © djamalpop soft djimla © 2014
Set fso = CreateObject("Scripting.FileSystemObject")
Set Ws = CreateObject("WScript.Shell")
Set ProcessEnv = Ws.Environment("Process")
NomMachine = ProcessEnv("COMPUTERNAME")
NomUtilisateur = ProcessEnv("USERNAME")
NomFichierLog="Liste_Processus.txt"
NomFichierLogHTML= "Liste_Processus.html"
temp = Ws.ExpandEnvironmentStrings("%temp%")
PathNomFichierLog = temp & "\" & NomFichierLog
PathNomFichierLogHTML = temp & "\" & NomFichierLogHTML
Set OutPut = fso.CreateTextFile(temp & "\" & NomFichierLog,2)
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _
& strComputer & "\root\cimv2")
Set colProcesses = objWMIService.ExecQuery ("Select * from Win32_Process")
count=0

Call Infosys
OutPut.WriteLine String(14,"*")& "&#222;&#199;&#198;&#227;&#201; &#199;&#225;&#200;&#209;&#230;&#211;&#237;&#211;&#230;&#209;&#199;&#20 2; &#230;&#199;&#225;&#200;&#209;&#199;&#227;&#204; &#199;&#225;&#227;&#221;&#202;&#230;&#205;&#201; &#237;&#230;&#227; " & date & " à " & time & " &#218;&#225;&#236; &#204;&#229;&#199;&#210; &#199;&#225;&#211;&#237;&#207; "& NomMachine &" &#199;&#225;&#227;&#202;&#213;&#225; &#200;&#199;&#211;&#227; &#199;&#225;&#202;&#218;&#209;&#237;&#221; : " & NomUtilisateur & String(14,"*")& vbNewline & String(143,"*")
For Each objProcess in colProcesses
ProcessName = objProcess.Name
ProcessID = objProcess.ProcessID
CommandLine = objProcess.CommandLine
count=count+1
Texte = " &#209;&#222;&#227; &#202;&#218;&#209;&#237;&#221; PID: = "& objProcess.ProcessID & VbNewLine & "&#199;&#211;&#227; &#199;&#225;&#200;&#209;&#228;&#199;&#227;&#204;: = " & objProcess.Name & VbNewLine &"&#227;&#211;&#199;&#209; &#199;&#225;&#200;&#209;&#228;&#199;&#227;&#204;: = "& objProcess.CommandLine &_
VbNewLine & String(120,"*")
OutPut.WriteLine Texte
Next

OutPut.WriteLine "&#237;&#230;&#204;&#207; "& Count &" &#200;&#209;&#228;&#199;&#227;&#204; &#222;&#237;&#207; &#199;&#225;&#202;&#212;&#219;&#237;&#225; &#237;&#230;&#227; " & date & " à " & time & " &#218;&#225;&#236; &#204;&#229;&#199;&#210;&#223; &#237;&#199; &#211;&#237;&#207;&#237; "& NomMachine &" &#199;&#228;&#202; &#227;&#202;&#213;&#225; &#200;&#199;&#211;&#227; &#199;&#225;&#202;&#218;&#209;&#237;&#221; " & NomUtilisateur & vbNewline
Call StartupCommand

Convert2HTML NomFichierLog,NomFichierLogHTML
Wscript.Sleep 10000
If MsgBox ("&#229;&#225; &#202;&#209;&#237;&#207; &#199;&#225;&#230;&#213;&#230;&#225; &#199;&#225;&#236; &#227;&#225;&#221;&#199;&#202; &#199;&#225;&#199;&#216;&#225;&#199;&#222; &#199;&#225;&#199;&#230;&#202;&#230;&#227;&#199;&#202;&#237;&#223;&#23 7; &#227;&#218; &#200;&#209;&#199;&#227;&#204; &#200;&#207;&#198; &#199;&#225;&#202;&#212;&#219;&#237;&#225; &#191;&#191; : "& Vbcr & qq(NomFichierLog) &" &#221;&#237; &#230;&#214;&#218; &#227;&#223;&#202;&#230;&#200; &#200; text &#199;&#230; &#200;&#225;&#219;&#201; html &#225;&#223; &#199;&#225;&#199;&#206;&#202;&#237;&#199;&#209; " & Vbcr & Vbcr &_
"djamalpop soft djimla © 2014"&_
"&#225;&#225;&#230;&#213;&#230;&#225; &#218;&#200;&#209; &#230;&#214;&#218; &#227;&#223;&#202;&#230;&#200; &#237;&#209;&#204;&#236; &#199;&#225;&#214;&#219;&#216; &#218;&#225;&#236; &#210;&#209;text "&Vbcr &_
"&#225;&#225;&#230;&#213;&#230;&#225; &#218;&#200;&#209; &#225;&#219;&#201; &#229;&#202;&#227;&#237;&#225; &#237;&#209;&#204;&#236; &#199;&#225;&#214;&#219;&#216; &#218;&#225;&#236; &#210;&#209; html ",VbYesNo+VbQuestion ,MsgTitre ) = VbYes Then
'ws.Run "Notepad " & PathNomFichierLog,0,True
Explorer(PathNomFichierLog)
else
Explorer(PathNomFichierLogHTML)
end if

Function StartupCommand()
strComputer = "."
resultat=""
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colStartupCommands = objWMIService.ExecQuery ("Select * from Win32_StartupCommand")

For Each objStartupCommand in colStartupCommands
resultat=resultat & "&#199;&#211;&#227; &#199;&#225;&#200;&#209;&#228;&#199;&#227;&#204;: " & objStartupCommand.Name & vbNewline
resultat=resultat & "&#202;&#218;&#209;&#237;&#221; &#199;&#225;&#200;&#209;&#228;&#199;&#227;&#204;: " & objStartupCommand.Description & vbNewline
resultat=resultat & "&#227;&#223;&#199;&#228; &#199;&#225;&#200;&#209;&#228;&#199;&#227;&#204;: " & objStartupCommand.Location & vbNewline
resultat=resultat & "&#227;&#211;&#199;&#209; &#227;&#225;&#221; &#199;&#225;&#200;&#209;&#228;&#199;&#227;&#204;: " & objStartupCommand.Command & vbNewline
resultat=resultat & "&#199;&#211;&#227; &#199;&#225;&#227;&#211;&#202;&#206;&#207;&#227;: " & objStartupCommand.User & vbNewline
resultat=resultat & String(120,"*") & vbNewline
Next
OutPut.WriteLine String(50,"*") &" &#199;&#225;&#200;&#209;&#199;&#227;&#204; &#199;&#225;&#202;&#237; &#202;&#222;&#225;&#218; &#227;&#218; &#200;&#207;&#198; &#199;&#225;&#202;&#212;&#219;&#237;&#225; &#218;&#225;&#236; &#229;&#207;&#199; &#199;&#225;&#204;&#229;&#199;&#210; "& String(50,"*")
OutPut.WriteLine resultat
end Function

Function Explorer(File)
Set ws=CreateObject("wscript.shell")
ws.run "Explorer "& File,0,True
end Function

Function InfoSys
strComputer = "."
strMessage=" "
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colSettings = objWMIService.ExecQuery ("Select * from Win32_ComputerSystem")
Set colSettings2 = objWMIService.ExecQuery ("Select * from Win32_BIOS")
Set colSettings3 = objWMIService.ExecQuery ("Select * from Win32_OperatingSystem")
For Each objBIOS in colSettings2
strMessage=strMessage & "&#199;&#225;&#202;&#218;&#209;&#237;&#221;&#201; " & objBIOS.Version & vbNewline & vbNewline
Next
For Each objComputer in colSettings
strMessage=strMessage & "&#199;&#211;&#227; &#204;&#229;&#199;&#210; &#199;&#225;&#223;&#227;&#200;&#237;&#230;&#202;&#209; : " & objComputer.Name & vbNewline & "&#199;&#211;&#227; &#199;&#225;&#212;&#209;&#223;&#201; &#199;&#225;&#227;&#213;&#228;&#218;&#201; :" & objComputer.Manufacturer & vbNewline & "&#199;&#225;&#227;&#230;&#207;&#237;&#225; :" & objComputer.Model & vbNewline & vbNewline

Next
For Each objOperatingSystem in colSettings3
strMessage=strMessage & objOperatingSystem.Name & vbNewline
strMessage=strMessage & "&#199;&#225;&#199;&#213;&#207;&#199;&#209; &#209;&#222;&#227; : " & objOperatingSystem.Version & vbNewline
strMessage=strMessage & "&#205;&#199;&#227;&#225; &#199;&#225;&#200;&#199;&#223; &#209;&#222;&#227; : " & objOperatingSystem.ServicePackMajorVersion & "." & objOperatingSystem.ServicePackMinorVersion &vbNewline
strMessage=strMessage & "&#227;&#225;&#221; &#199;&#225;&#230;&#237;&#228;&#207;&#230;&#210; &#229;&#230;: " & objOperatingSystem.WindowsDirectory &vbNewline
Next
OutPut.WriteLine strMessage
end Function

Function Convert2HTML(FileTxt,FileHTML)
Dim oFSO,ws,temp,OutPutHTML,StrHTML
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set ws = CreateObject( "Wscript.Shell")
temp = ws.ExpandEnvironmentStrings("%temp%")
Set ReadTxt = oFSO.OpenTextFile(temp & "\" & FileTxt,1)
Set OutPutHTML = oFSO.OpenTextFile(temp & "\" & FileHTML,2,True)
strHTML="<html><body text=white bgcolor=#1234568><style type='text/css'>"&_
"a:link {color: #F19105;}"&_
"a:visited {color: #F19105;}"&_
"a:active {color: #F19105;}"&_
"a:hover {color: #FF9900;background-color: rgb(255, 255, 255);}"&_
"</style>"
StrHTML = StrHTML & "<center><font size=4 color=Red><B> &#202;&#222;&#209;&#237;&#209; &#223;&#199;&#227;&#225; &#218;&#228; &#204;&#229;&#199;&#210; &#199;&#225;&#223;&#227;&#200;&#237;&#230;&#202;&#209; &#199;&#225;&#206;&#199;&#213; &#200;&#223; &#227;&#228; &#199;&#206;&#230;&#223; &#204;&#227;&#199;&#225; &#225;&#199; &#202;&#228;&#211;&#199;&#228;&#237; &#227;&#228; &#213;&#199;&#225;&#205; &#199;&#225;&#207;&#218;&#199;&#193; © djamalpop soft djimla © 2014 ! </B></font><hr>"&_
""'</img><hr></center>"
StrHTML = StrHTML & ReadTxt.ReadALL
StrHTML = "<center>"& StrHTML &"</center>"
StrHTML = Replace(StrHTML,String(120,"*"),"<hr>")
StrHTML = Replace(StrHTML,VbCrlf,"<br>")
OutPutHTML.writeLine StrHTML
End Function

Function qq(strIn)
qq = Chr(34) & strIn & Chr(34)
End Function

طبعا السكريبت خاص بفيروس الاختصارات
يوجد خطا في السطر 160 ولن ابوح بالحل هع هع هع
ولكن فيه ما فيه من المعلوماتحول الفلاشة ((كن دكيا )))

سلام الله عليكم
ولك اخي صاحب الموضوع شكر خاص
ولكن ازعجني تعبك

djamalpop me

19-06-2014, 06:08 PM
ahmed menesy غير متصل
عضو جديد
رقم العضوية: 453452
تاريخ التسجيل: Mar 2014
المشاركات: 9
إعجاب: 0
تلقى إعجاب 1 على مشاركة واحدة
تلقى دعوات الى: 0 موضوع
مواضيع لم تعجبه: 0
تلقى 0 عدم اعجاب على 0 مشاركة
    #486  
صاحب الضربة القاضية
ممكن بهذة الضربة لهذة الفلاش لانى لم استطع التنزل من على الموقع دة
[

http://www.gulfup.com/?VNCpw;
ودى كل المعلومات عنها


21-06-2014, 05:18 PM
ahmed menesy غير متصل
عضو جديد
رقم العضوية: 453452
تاريخ التسجيل: Mar 2014
المشاركات: 9
إعجاب: 0
تلقى إعجاب 1 على مشاركة واحدة
تلقى دعوات الى: 0 موضوع
مواضيع لم تعجبه: 0
تلقى 0 عدم اعجاب على 0 مشاركة
    #487  
ده الرابط الصحيح


http://www.gulfup.com/?VNCpwH

26-06-2014, 10:40 AM
deyamag غير متصل
عضو ذهبي
رقم العضوية: 50494
تاريخ التسجيل: Aug 2006
الإقامة: مصر-الجيزة-الدقي .
المشاركات: 707
إعجاب: 3
تلقى 4 إعجاب على 4 مشاركة
تلقى دعوات الى: 0 موضوع
مواضيع لم تعجبه: 0
تلقى 0 عدم اعجاب على 0 مشاركة
    #488  
أحسنت و الله ، شكراً لك .


13-07-2014, 01:31 AM
houceine غير متصل
عضو جديد
رقم العضوية: 257677
تاريخ التسجيل: Apr 2009
الإقامة: GAFSA TUNISIE
المشاركات: 6
إعجاب: 0
تلقى 0 إعجاب على 0 مشاركة
تلقى دعوات الى: 0 موضوع
مواضيع لم تعجبه: 0
تلقى 0 عدم اعجاب على 0 مشاركة
    #489  
مشكور وبارك الله فيك

20-07-2014, 02:40 AM
zizo_sweetheart غير متصل
عضو جديد
رقم العضوية: 479193
تاريخ التسجيل: Jul 2014
المشاركات: 8
إعجاب: 0
تلقى 0 إعجاب على 0 مشاركة
تلقى دعوات الى: 0 موضوع
مواضيع لم تعجبه: 0
تلقى 0 عدم اعجاب على 0 مشاركة
    #490  
لو سمحت اخى الفاضل عندى فلاشة sandisk وحجمها 8 جيجا ومش عارف انزل السوفت لها من الموقع الروسى وهذه بياناتها
Device Name: ?[G:]?USB Mass Storage Device(Generic USB Flash Disk USB Device)

PnP Device ID: VID = 058F PID = 9380
Serial Number: 5&&21E739F&&0&&4
Revision: 7.76

Device Type: Standard USB device - USB2.0 High-Speed

Chip Vendor: Alcor
Chip Part-Number: AU6983

Product Vendor: (N/A)
Product Model: (N/A)

Tools on Web: ?

http://bbs.mydigit.cn/read.php?tid=4345

21-07-2014, 06:51 AM
عبودي80 غير متصل
عضو محترف
رقم العضوية: 275898
تاريخ التسجيل: May 2009
المشاركات: 483
إعجاب: 41
تلقى 137 إعجاب على 13 مشاركة
تلقى دعوات الى: 8 موضوع
مواضيع لم تعجبه: 0
تلقى 0 عدم اعجاب على 0 مشاركة
    #491  
المشاركة الأصلية كتبت بواسطة zizo_sweetheart 
لو سمحت اخى الفاضل عندى فلاشة sandisk وحجمها 8 جيجا ومش عارف انزل السوفت لها من الموقع الروسى وهذه بياناتها
Device Name: ?[G:]?USB Mass Storage Device(Generic USB Flash Disk USB Device)

PnP Device ID: VID = 058F PID = 9380
Serial Number: 5&&21E739F&&0&&4
Revision: 7.76

Device Type: Standard USB device - USB2.0 High-Speed

Chip Vendor: Alcor
Chip Part-Number: AU6983

Product Vendor: (N/A)
Product Model: (N/A)

Tools on Web: ?

http://bbs.mydigit.cn/read.php?tid=4345

جرب البرامج التالية بالترتيب واعتقد ان الاول او الثاني هو المناسب تماما


http://flashboot.ru/files/file/390
او


http://flashboot.ru/files/file/37
او


http://flashboot.ru/files/file/32/
بالتوفيق



22-07-2014, 05:52 AM
zizo_sweetheart غير متصل
عضو جديد
رقم العضوية: 479193
تاريخ التسجيل: Jul 2014
المشاركات: 8
إعجاب: 0
تلقى 0 إعجاب على 0 مشاركة
تلقى دعوات الى: 0 موضوع
مواضيع لم تعجبه: 0
تلقى 0 عدم اعجاب على 0 مشاركة
    #492  
شكرا جزيلا لحضرتك بس للاسف مفيش سوفت فيهم اشتغل والفلاشة بتجيب رساله the disk is write protected

24-07-2014, 12:19 AM
younnes1977 غير متصل
عضو مميز
رقم العضوية: 412073
تاريخ التسجيل: Feb 2013
المشاركات: 235
إعجاب: 1
تلقى 24 إعجاب على 7 مشاركة
تلقى دعوات الى: 3 موضوع
مواضيع لم تعجبه: 0
تلقى 0 عدم اعجاب على 0 مشاركة
    #493  
يا أخي العزيز و أنت مشكور على الموضوع الجميل
لدي مشكل في الدخول الى الموقع :

http://www.flashboot.ru/index.php?name=Files
يظهر الخطأ التالي :
Ошибка: 404

К сожалению, по этой ссылке такой страницы не существует. Вероятно, она была перемещена и доступна по другому адресу или удалена с сервера, либо ее здесь никогда не было.


Вернуться назад
перейти на главную
أرجوا المساعدة و الرد
عيدكم مبارك و كلنا غزة


24-07-2014, 12:29 AM
younnes1977 غير متصل
عضو مميز
رقم العضوية: 412073
تاريخ التسجيل: Feb 2013
المشاركات: 235
إعجاب: 1
تلقى 24 إعجاب على 7 مشاركة
تلقى دعوات الى: 3 موضوع
مواضيع لم تعجبه: 0
تلقى 0 عدم اعجاب على 0 مشاركة
    #494  

هذا نوع الفلاش
Device Name: +[L:]+Périphérique de stockage de masse USB(Generic Flash Disk USB Device)

PnP Device ID: VID = 058F PID = 6387
Serial Number: 9E0716E1
Revision: 8.07

Device Type: Standard USB device - USB2.0 High-Speed

Chip Vendor: Alcor(??)
Chip Part-Number: AU6983

Product Vendor: Generic
Product Model: Flash Disk

Tools on Web:

http://bbs.mydigit.cn/read.php?tid=4345

أرجوا المساعدة :

24-07-2014, 01:50 AM
عبودي80 غير متصل
عضو محترف
رقم العضوية: 275898
تاريخ التسجيل: May 2009
المشاركات: 483
إعجاب: 41
تلقى 137 إعجاب على 13 مشاركة
تلقى دعوات الى: 8 موضوع
مواضيع لم تعجبه: 0
تلقى 0 عدم اعجاب على 0 مشاركة
    #495  
المشاركة الأصلية كتبت بواسطة younnes1977 
يا أخي العزيز و أنت مشكور على الموضوع الجميل
لدي مشكل في الدخول الى الموقع :

http://www.flashboot.ru/index.php?name=Files
يظهر الخطأ التالي :
Ошибка: 404

К сожалению, по этой ссылке такой страницы не существует. Вероятно, она была перемещена и доступна по другому адресу или удалена с сервера, либо ее здесь никогда не было.


Вернуться назад
перейти на главную
أرجوا المساعدة و الرد
عيدكم مبارك و كلنا غزة
اخي اتوقع المشكلة حجب من مشغل الشبكة عندك تقدر تجرب الدخول بعد استخدام احد برامج كسر البروكسي
بالتوفيق

 


الضربة القاضية لمشاكل الفلاش ميموري


Powered by vBulletin® Version
Copyright ©2000 - 2016, Jelsoft Enterprises Ltd.
The owner and operator of the site is not responsible for the availability of, or any content provided.
Topics that are written in the site reflect the opinion of the author.
جميع ما يُطرح من مواضيع ومشاركات تعبر عن رأي كاتبها ولا تعبر عن رأي مالك الموقع أو الإدارة بأي حال من الأحوال.